소스 검색

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 13 년 전
부모
커밋
1db82b269a
1개의 변경된 파일6개의 추가작업 그리고 1개의 파일을 삭제
  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