mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 17:46:27 +00:00
Code Releases Activity

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

Browse source 
* 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.
This commit is contained in:
Bastien Guerry 2012-12-22 19:39:03 +01:00
parent 12fd14b858
commit 1db82b269a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

@ -9062,7 +9062,12 @@ part of Org's core."
(if (consp link) (setq cpltxt (car link) link (cdr link)))
(setq link (or link 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)
(progn