Browse Source

org.el: Don't add curly braces to bracket links within internal links

* org.el (org-store-link): When creating a link to a heading
with a bracket link, don't escape this link with curly braces
as the escaped link is not active anyway; use the description
instead.  If the headline only consists of a bracket link, add
a star to the description so that the user knows this is an
internal link.

Thanks to Dave Abrahams for triggering this.
Bastien Guerry 12 years ago
parent
commit
1db82b269a
1 changed files with 6 additions and 1 deletions
  1. 6 1
      lisp/org.el

+ 6 - 1
lisp/org.el

@@ -9062,7 +9062,12 @@ part of Org's core."
      (if (consp link) (setq cpltxt (car link) link (cdr link)))
      (if (consp link) (setq cpltxt (car link) link (cdr link)))
      (setq link (or link cpltxt)
      (setq link (or link cpltxt)
 	   desc (or desc cpltxt))
 	   desc (or desc cpltxt))
-     (if (equal desc "NONE") (setq desc nil))
+     (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))))
 
 
      (if (and (or (org-called-interactively-p 'any) executing-kbd-macro) link)
      (if (and (or (org-called-interactively-p 'any) executing-kbd-macro) link)
 	 (progn
 	 (progn