From e30bf260613e001a5bec3869a35d91c7960cd9ea Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 6 Jan 2009 09:22:03 +0100 Subject: [PATCH] Bugfix: Fix regexp The regular expression org-complex-heading-regexp had an error, it would also match lines where there is no space after the stars. --- lisp/ChangeLog | 5 +++++ lisp/org.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a0afa66c..ad6d4ad20 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-06 Carsten Dominik + + * org.el (org-set-regexps-and-options): Fix the regexp + `org-complex-heading-regexp'. + 2009-01-05 Carsten Dominik * org.el (org-edit-src-get-label-format): New function. diff --git a/lisp/org.el b/lisp/org.el index 0bd6dad49..1f03c381d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3233,7 +3233,7 @@ means to push this value onto the list in the variable.") (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\)\\>\\)?[ \t]*\\(.*\\)") org-complex-heading-regexp - (concat "^\\(\\*+\\)\\(?:[ \t]+\\(" + (concat "^\\(\\*+\\)[ \t]+\\(?:\\(" (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\)\\>\\)?\\(?:[ \t]*\\(\\[#.\\]\\)\\)?[ \t]*\\(.*?\\)" "\\(?:[ \t]+\\(:[[:alnum:]_@:]+:\\)\\)?[ \t]*$") -- 2.11.4.GIT