mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org.el (org-store-link): When a bracket link is found in a headline, use the link description or the link path 

* org.el (org-store-link): When a bracket link is found in a
headline, use the link description or the link path.
This commit is contained in:
Bastien Guerry 2013-04-16 16:05:55 +02:00
parent 407a6acf4d
commit 4f89c37cea
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org.el
View File

@ -9547,12 +9547,15 @@ active region."
(setq link (or link cpltxt)
desc (or desc cpltxt))
(cond ((equal desc "NONE") (setq desc nil))
((string-match org-bracket-link-regexp desc)
(setq desc
(replace-regexp-in-string
org-bracket-link-regexp
(concat "\\3" (if (equal (length (match-string 0 desc))
(length desc)) "*" "")) desc))))
((string-match org-bracket-link-analytic-regexp desc)
(let ((d0 (match-string 3 desc))
(p0 (match-string 5 desc)))
(setq desc
(replace-regexp-in-string
org-bracket-link-regexp
(concat (or p0 d0)
(if (equal (length (match-string 0 desc))
(length desc)) "*" "")) desc)))))
;; Return the link
(if (not (and (or (org-called-interactively-p 'any)