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

Fix org-activate-links 

* lisp/org.el (org-activate-links): Set the match group number
  back.  See commit d07d8ff4 for the number switch.
This commit is contained in:
Marco Wahl 2019-09-18 10:45:21 +02:00
parent 23113feb9a
commit 1fd07c1eeb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -5151,8 +5151,8 @@ This includes angle, plain, and bracket links."
(while (re-search-forward org-link-any-re limit t) (while (re-search-forward org-link-any-re limit t)
(let* ((start (match-beginning 0)) (let* ((start (match-beginning 0))
(end (match-end 0)) (end (match-end 0))
(visible-start (or (match-beginning 4) (match-beginning 2))) (visible-start (or (match-beginning 3) (match-beginning 2)))
(visible-end (or (match-end 4) (match-end 2))) (visible-end (or (match-end 3) (match-end 2)))
(style (cond ((eq ?< (char-after start)) 'angle) (style (cond ((eq ?< (char-after start)) 'angle)
((eq ?\[ (char-after (1+ start))) 'bracket) ((eq ?\[ (char-after (1+ start))) 'bracket)
(t 'plain)))) (t 'plain))))
@ -10646,7 +10646,7 @@ prefer a state in the current sequence over on in another sequence."
(setq tg (org-add-props tg nil 'face (setq tg (org-add-props tg nil 'face
(org-get-todo-face tg))) (org-get-todo-face tg)))
(when (and (= cnt 0) (not ingroup)) (insert " ")) (when (and (= cnt 0) (not ingroup)) (insert " "))
(setq prompt (concat prompt "[" (char-to-string c) "] " tg " ")) (setq prompt (concat prompt "[" (char-to-string c) "] " tg " "))
(insert "[" c "] " tg (make-string (insert "[" c "] " tg (make-string
(- fwidth 4 (length tg)) ?\ )) (- fwidth 4 (length tg)) ?\ ))
(when (and (= (setq cnt (1+ cnt)) ncol) (when (and (= (setq cnt (1+ cnt)) ncol)