tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org.el (org-store-link): Fix the naming of internal links to lines starting with a keyword 

* org.el (org-store-link): Fix the naming of internal links to
lines starting with a keyword.

Thanks to Thomas S. Dye for reporting a related issue.
This commit is contained in:
Bastien Guerry 2012-12-29 06:30:47 +01:00
parent 9cf6800a95
commit 95096f14b6
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/org.el
View File

@ -9032,21 +9032,23 @@ part of Org's core."
(buffer-file-name (buffer-base-buffer)))))
;; Add a context search string
(when (org-xor org-context-in-file-links arg)
(let ((e (org-element-at-point)))
(let* ((ee (org-element-at-point))
(et (org-element-type ee))
(ev (plist-get (cadr ee) :value)))
(setq txt (cond
((org-at-heading-p) nil)
((eq (org-element-type e) 'keyword)
(plist-get (cadr e) :value))
((org-region-active-p)
(buffer-substring (region-beginning) (region-end))))))
(when (or (null txt) (string-match "\\S-" txt))
(setq cpltxt
(concat cpltxt "::"
(condition-case nil
(org-make-org-heading-search-string txt)
(error "")))
desc (or (nth 4 (ignore-errors
(org-heading-components))) "NONE"))))
((org-at-heading-p) nil)
((eq et 'keyword) ev)
((org-region-active-p)
(buffer-substring (region-beginning) (region-end)))))
(when (or (null txt) (string-match "\\S-" txt))
(setq cpltxt
(concat cpltxt "::"
(condition-case nil
(org-make-org-heading-search-string txt)
(error "")))
desc (or (and (eq et 'keyword) ev)
(nth 4 (ignore-errors (org-heading-components)))
"NONE")))))
(if (string-match "::\\'" cpltxt)
(setq cpltxt (substring cpltxt 0 -2)))
(setq link cpltxt))))