From 0fb28c3405d5795011a67d463f3dc2cb0bb654db Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 29 Apr 2009 21:21:36 +0200 Subject: [PATCH] Plain lists: Fix regular expression. There was a bug in a regular expression, visible when `org-list-two-spaces-after-bullet-regexp' is set to ?) --- lisp/ChangeLog | 4 ++++ lisp/org-list.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fe3256c5d..51b8811de 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-04-29 Carsten Dominik + + * org-list.el (org-at-item-p): Fix regular expression. + 2009-04-24 Carsten Dominik * org.el (org-end-of-subtree): Improve speed. diff --git a/lisp/org-list.el b/lisp/org-list.el index 7469addd9..d135ac08b 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -160,7 +160,7 @@ list, obtained by prompting the user." (cond ((eq llt t) "\\([ \t]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)") ((= llt ?.) "\\([ \t]*\\([-+]\\|\\([0-9]+\\.\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)") - ((= llt ?\)) "\\([ \t]*\\([-+]\\|\\([0-9]+))\\)\\|[ \t]+\\*\\)\\( \\|$\\)") + ((= llt ?\)) "\\([ \t]*\\([-+]\\|\\([0-9]+)\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)") (t (error "Invalid value of `org-plain-list-ordered-item-terminator'"))))))) (defun org-at-item-bullet-p ()