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

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

Browse source 
This reverts commit 30d6dc8baa.
This commit is contained in:
Bastien Guerry 2013-02-25 11:00:55 +01:00
parent b5460d5722
commit 1ab872c51e
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/org.el
View file

@ -8319,13 +8319,14 @@ Optional argument WITH-CASE means sort case-sensitively."
(t
(org-call-with-arg 'org-sort-entries with-case))))
(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) "")))
(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)
(defvar org-priority-regexp) ; defined later in the file