diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-02-25 11:12:55 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-02-25 11:12:55 +0100 |
| commit | 662cb9868474b01da31413fd034111373e662edb (patch) | |
| tree | 92502622ff741780da0ad6f84bdc015e745976b0 | |
| parent | 1ab872c51e5e3e39de4d3154d050db995bce5d8f (diff) | |
| download | org-mode-662cb9868474b01da31413fd034111373e662edb.tar.gz | |
org.el (org-sort-remove-invisible): Remove emphasis markers
* org.el (org-sort-remove-invisible): Remove emphasis markers.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el index af6499a..4cc1035 100644 --- a/lisp/org.el +++ b/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 |