mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 13:12:57 +00:00
Code Releases Activity

Fix `org-link-display-format'

Browse source 
* lisp/org.el (org-link-display-format): Replace all links in give
  string instead of the first one only.
This commit is contained in:
Nicolas Goaziou 2016-02-25 18:10:24 +01:00
parent 642c50f0cb
commit a0047bcd47
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/org.el
View file

@ -25048,17 +25048,16 @@ when non-nil, is a regexp matching keywords names."
(if (derived-mode-p 'org-mode)
(org-show-context 'org-goto))))))
(defun org-link-display-format (link)
"Replace a link with its the description.
(defun org-link-display-format (s)
"Replace links in string S with their description.
If there is no description, use the link target."
(save-match-data
(if (string-match org-bracket-link-analytic-regexp link)
(replace-match (if (match-end 5)
(match-string 5 link)
(concat (match-string 1 link)
(match-string 3 link)))
nil t link)
link)))
(replace-regexp-in-string
org-bracket-link-analytic-regexp
(lambda (m)
(if (match-end 5) (match-string 5 m)
(concat (match-string 1 m) (match-string 3 m))))
s nil t)))
(defun org-toggle-link-display ()
"Toggle the literal or descriptive display of links."