Hi Eric,
thanks for testing.
Eric S Fraga <e.fr...@ucl.ac.uk> writes:
> this seems to cause a problem with org-ctrl-c-minus when trying to cycle
> a bullet point past +. That is, it works if the bullet is - so you can
> cycle to the next which is + but you cannot cycle past that.
Attached patch (against master) fixes this problem.
I'm not sure I'm in favor of this change, though, I expect
it to cause other problems and the benefit looks small for
now.
Do you see other reasons than M-m where stars as whitespace
chars are useful? What about *markup*?
Thanks,
>From a41bc3569e6812ce0c35e50abfc91590a47919c6 Mon Sep 17 00:00:00 2001
From: Bastien Guerry <b...@altern.org>
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
--
Bastien
