diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-05-08 12:51:32 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-05-08 12:51:32 +0200 |
commit | e516a3be2250f00efef800f6d9502bc27532f3ae (patch) | |
tree | 51eacaa449b55279a70702816c14b1211d198e41 | |
parent | e15ada501b15b5a1eb2cbb1e01f67349cfaea3e4 (diff) | |
download | org-mode-e516a3be2250f00efef800f6d9502bc27532f3ae.tar.gz |
Visibility cycling: Fix bug when org-cycle-include-plain-lists is t
Peter Westlake writes:
> On Fri, 8 May 2009 06:24:54 +0200, "Carsten Dominik"
> <carsten.dominik@gmail.com> said:
>
> I anyone could make an example that allos me to reproduce this
> problem, then I might be able to fix it.
>
> It's trivial:
>
> * top
> ** sub 1
> Set org-cycle-include-plain-lists.
> Type TAB on this line, and the whole of top gets folded.
>
> ** sub 2
> This entry is not needed to reproduce the bug. It just
> makes it more visible.
There was indeed a bug, I think it is fixed now.
-rwxr-xr-x | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc2f6d5..5627f3c 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-05-08 Carsten Dominik <carsten.dominik@gmail.com> + * org.el (org-cycle): Remove erraneous space character. + * org-icalendar.el (org-icalendar-timezone): Initialize from environment. diff --git a/lisp/org.el b/lisp/org.el index 4be36de..5919153 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4637,7 +4637,7 @@ in special contexts. ((not (org-mode-p)) outline-regexp) (org-cycle-include-plain-lists (concat "\\(?:\\*" - (if nstars (format "\\{1,%d\\} " nstars) "+") + (if nstars (format "\\{1,%d\\}" nstars) "+") " \\|\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) \\)")) (t (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ "))))) (bob-special (and org-cycle-global-at-bob (bobp) |