diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-15 11:15:57 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-15 11:15:57 +0100 |
commit | 7afb487a28c54f21ad233c6b48d34c2bb5808073 (patch) | |
tree | d55c4e852fe60994953f23c624343ddf83a46aed | |
parent | 614a80490ff3c7d1c118e5d6623753666e8089ee (diff) | |
download | org-mode-7afb487a28c54f21ad233c6b48d34c2bb5808073.tar.gz |
org.el (org-make-org-heading-search-string): Don't use statistic or [x/y] cookies when creating a link
* org.el (org-make-org-heading-search-string): Don't use
statistic or [x/y] cookies when creating a link.
Thanks to William Lechelle for reporting this.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index ffecf98..ace0e69 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9269,10 +9269,10 @@ according to FMT (default from `org-email-link-description-format')." (and (derived-mode-p 'org-mode) (save-excursion (org-back-to-heading t) - (plist-get (cadr (org-element-at-point)) - :raw-value))))) + (org-element-property :raw-value (org-element-at-point)))))) (lines org-context-in-file-links)) (or string (setq s (concat "*" s))) ; Add * for headlines + (setq s (replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" s)) (when (and string (integerp lines) (> lines 0)) (let ((slines (org-split-string s "\n"))) (when (< lines (length slines)) |