diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-01-11 20:34:08 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-01-11 20:34:08 +0100 |
commit | 378beac76220e8b55e4c0d24b4f02ddba5142bbe (patch) | |
tree | db9ddfa49fd9cbffe0a38b64c22a69d8a89d0b29 | |
parent | bff981d23fd3fbaa26ca8f16ea5aac6c10617d0f (diff) | |
download | org-mode-378beac76220e8b55e4c0d24b4f02ddba5142bbe.tar.gz |
Fix sorting with a bold emphasis at beginning of line
* lisp/org.el (org-sort-entries): Fix sorting with a bold emphasis at bol
-rw-r--r-- | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 98c85d0..b2b08ae 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7744,7 +7744,7 @@ WITH-CASE, the sorting considers case as well." (looking-at "\\(\\*+\\)") (setq stars (match-string 1) re (concat "^" (regexp-quote stars) " +") - re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[^*]") + re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[ \t\n]") txt (buffer-substring beg end)) (if (not (equal (substring txt -1) "\n")) (setq txt (concat txt "\n"))) (if (and (not (equal stars "*")) (string-match re2 txt)) |