Merge branch 'maint'
This commit is contained in:
commit
6589b9925c
10
lisp/org.el
10
lisp/org.el
|
@ -5455,13 +5455,7 @@ will be prompted for."
|
||||||
"Run through the buffer and add overlays to links."
|
"Run through the buffer and add overlays to links."
|
||||||
(catch 'exit
|
(catch 'exit
|
||||||
(let (f)
|
(let (f)
|
||||||
(if (and (re-search-forward (concat org-plain-link-re) limit t)
|
(when (re-search-forward (concat org-plain-link-re) limit t)
|
||||||
(or (not (member 'bracket org-activate-links))
|
|
||||||
(save-excursion
|
|
||||||
(save-match-data
|
|
||||||
(goto-char (match-beginning 0))
|
|
||||||
(not (looking-back "\\[\\["))))))
|
|
||||||
(progn
|
|
||||||
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
|
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
|
||||||
(setq f (get-text-property (match-beginning 0) 'face))
|
(setq f (get-text-property (match-beginning 0) 'face))
|
||||||
(if (or (eq f 'org-tag)
|
(if (or (eq f 'org-tag)
|
||||||
|
@ -5472,7 +5466,7 @@ will be prompted for."
|
||||||
'face 'org-link
|
'face 'org-link
|
||||||
'keymap org-mouse-map))
|
'keymap org-mouse-map))
|
||||||
(org-rear-nonsticky-at (match-end 0)))
|
(org-rear-nonsticky-at (match-end 0)))
|
||||||
t)))))
|
t))))
|
||||||
|
|
||||||
(defun org-activate-code (limit)
|
(defun org-activate-code (limit)
|
||||||
(if (re-search-forward "^[ \t]*\\(:\\(?: .*\\|$\\)\n?\\)" limit t)
|
(if (re-search-forward "^[ \t]*\\(:\\(?: .*\\|$\\)\n?\\)" limit t)
|
||||||
|
|
Loading…
Reference in New Issue