>From a41bc3569e6812ce0c35e50abfc91590a47919c6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 12 Feb 2013 08:30:14 +0100 Subject: [PATCH] org.el (org-mode): Set ?* to be syntactically a whitespace character * org-list.el (org-list-bullet-string): Don't skip all whitespace characters, skip whitespace and tab explicitely. * org.el (org-mode): Set ?* to be syntactically a whitespace character. --- lisp/org-list.el | 4 ++-- lisp/org.el | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index d86746f..e4d6d6d 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1081,8 +1081,8 @@ It determines the number of whitespaces to append by looking at org-list-two-spaces-after-bullet-regexp bullet)) " " " "))) - (string-match "\\S-+\\([ \t]*\\)" bullet) - (replace-match spaces nil nil bullet 1)))) + (if (string-match "[^ \t]+\\([ \t]*\\)" bullet) + (replace-match spaces nil nil bullet 1))))) (defun org-list-swap-items (beg-A beg-B struct) "Swap item starting at BEG-A with item starting at BEG-B in STRUCT. diff --git a/lisp/org.el b/lisp/org.el index 461cdf0..a58c10b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5173,6 +5173,7 @@ The following commands are available: (org-set-tag-faces 'org-tag-faces org-tag-faces)) ;; Calc embedded (org-set-local 'calc-embedded-open-mode "# ") + (modify-syntax-entry ?* " ") (modify-syntax-entry ?@ "w") (modify-syntax-entry ?\" "\"") (if org-startup-truncated (setq truncate-lines t)) -- 1.8.1.2