瀏覽代碼

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

* org.el (org-sort-remove-invisible): Remove emphasis markers.
Bastien Guerry 12 年之前
父節點
當前提交
662cb98684
共有 1 個文件被更改,包括 4 次插入0 次删除
  1. 4 0
      lisp/org.el

+ 4 - 0
lisp/org.el

@@ -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