summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-02-15 10:15:57 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-02-15 10:15:57 (GMT)
commit7afb487a28c54f21ad233c6b48d34c2bb5808073 (patch)
treed55c4e852fe60994953f23c624343ddf83a46aed
parent614a80490ff3c7d1c118e5d6623753666e8089ee (diff)
downloadorg-mode-7afb487a28c54f21ad233c6b48d34c2bb5808073.zip
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.el4
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))