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

Fix `org-offer-links-in-entry' 

* lisp/org.el (org-offer-links-in-entry): Fix match groups.

Reported-by: Bernt Hansen <bernt@norang.ca>
<http://lists.gnu.org/r/emacs-orgmode/2019-03/msg00192.html>
This commit is contained in:
Nicolas Goaziou 2019-03-16 18:05:50 +01:00
parent a70ab164f4
commit ce1681b597
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -8730,9 +8730,9 @@ there is one, return it."
((not (string-match org-link-bracket-re l)) ((not (string-match org-link-bracket-re l))
(princ (format "[%c] %s\n" (cl-incf cnt) (princ (format "[%c] %s\n" (cl-incf cnt)
(org-unbracket-string "<" ">" l)))) (org-unbracket-string "<" ">" l))))
((match-end 3) ((match-end 2)
(princ (format "[%c] %s (%s)\n" (cl-incf cnt) (princ (format "[%c] %s (%s)\n" (cl-incf cnt)
(match-string 3 l) (match-string 1 l)))) (match-string 2 l) (match-string 1 l))))
(t (princ (format "[%c] %s\n" (cl-incf cnt) (t (princ (format "[%c] %s\n" (cl-incf cnt)
(match-string 1 l))))))) (match-string 1 l)))))))
(org-fit-window-to-buffer (get-buffer-window "*Select Link*")) (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))