ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2012-09-13 03:20:30 +02:00
parent 93c692ba27 b0e5c6d1ad
commit 6589b9925c
1 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/org.el
View File

@ -5455,24 +5455,18 @@ 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)) (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
(save-excursion (setq f (get-text-property (match-beginning 0) 'face))
(save-match-data (if (or (eq f 'org-tag)
(goto-char (match-beginning 0)) (and (listp f) (memq 'org-tag f)))
(not (looking-back "\\[\\[")))))) nil
(progn (add-text-properties (match-beginning 0) (match-end 0)
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0)) (list 'mouse-face 'highlight
(setq f (get-text-property (match-beginning 0) 'face)) 'face 'org-link
(if (or (eq f 'org-tag) 'keymap org-mouse-map))
(and (listp f) (memq 'org-tag f))) (org-rear-nonsticky-at (match-end 0)))
nil t))))
(add-text-properties (match-beginning 0) (match-end 0)
(list 'mouse-face 'highlight
'face 'org-link
'keymap org-mouse-map))
(org-rear-nonsticky-at (match-end 0)))
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)