diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2019-09-18 10:45:21 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2019-09-18 10:45:21 +0200 |
commit | 1fd07c1eeb0f29de9ce058fac995031413201d4d (patch) | |
tree | 539593e985f711d0b0c0f6770eea35eac42dc89b | |
parent | 23113feb9a645f2f612459870fd258b6295ccddb (diff) | |
download | org-mode-1fd07c1eeb0f29de9ce058fac995031413201d4d.tar.gz |
Fix org-activate-links
* lisp/org.el (org-activate-links): Set the match group number
back. See commit d07d8ff4 for the number switch.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 798a8b7..450d160 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5151,8 +5151,8 @@ This includes angle, plain, and bracket links." (while (re-search-forward org-link-any-re limit t) (let* ((start (match-beginning 0)) (end (match-end 0)) - (visible-start (or (match-beginning 4) (match-beginning 2))) - (visible-end (or (match-end 4) (match-end 2))) + (visible-start (or (match-beginning 3) (match-beginning 2))) + (visible-end (or (match-end 3) (match-end 2))) (style (cond ((eq ?< (char-after start)) 'angle) ((eq ?\[ (char-after (1+ start))) 'bracket) (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 (org-get-todo-face tg))) (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 (- fwidth 4 (length tg)) ?\ )) (when (and (= (setq cnt (1+ cnt)) ncol) |