mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

org.el (org-sort-remove-invisible): Truly returns the visible part of the string

Browse Source 
* org.el (org-sort-remove-invisible): Use defsust.  Do not
only check against invisible links, truly returns the visible
part of the string.

Thanks to François Pinard for suggesting this.
This commit is contained in:
Bastien Guerry 2013-02-25 10:24:29 +01:00
parent 5700a0eb2d
commit 30d6dc8baa
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org.el
View File

@ -8319,14 +8319,13 @@ Optional argument WITH-CASE means sort case-sensitively."
(t
(org-call-with-arg 'org-sort-entries with-case))))
(defun org-sort-remove-invisible (s)
"Remove invisible links from string S."
(remove-text-properties 0 (length s) org-rm-props s)
(while (string-match org-bracket-link-regexp s)
(setq s (replace-match (if (match-end 2)
(match-string 3 s)
(match-string 1 s)) t t s)))
s)
(defsubst org-sort-remove-invisible (s)
"Return the visible string from string S."
(let (result)
(dotimes (c (length s))
(let ((st (substring s c (1+ c))))
(unless (get-text-property 0 'invisible st) (push st result))))
(mapconcat 'identity (reverse result) "")))
(defvar org-priority-regexp) ; defined later in the file