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

org.el (org-sort-remove-invisible): Remove emphasis markers 

* org.el (org-sort-remove-invisible): Remove emphasis markers.
This commit is contained in:
Bastien Guerry 2013-02-25 11:12:55 +01:00
parent 1ab872c51e
commit 662cb98684
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -8326,6 +8326,10 @@ Optional argument WITH-CASE means sort case-sensitively."
(setq s (replace-match (if (match-end 2)
(match-string 3 s)
(match-string 1 s)) t t s)))
(let ((st (format " %s " s)))
(while (string-match org-emph-re st)
(setq st (replace-match (format " %s " (match-string 4 st)) t t st)))
(setq s (substring st 1 -1)))
s)
(defvar org-priority-regexp) ; defined later in the file