From 4f89c37ceaede6a2e97ee7ab0d8e8996eecdf406 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 16 Apr 2013 16:05:55 +0200 Subject: [PATCH] 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. --- lisp/org.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index de03ac07b..0afa3d901 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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) -- 2.11.4.GIT