浏览代码

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 ?)
Carsten Dominik 16 年之前
父节点
当前提交
0fb28c3405
共有 2 个文件被更改,包括 5 次插入1 次删除
  1. 4 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-list.el

+ 4 - 0
lisp/ChangeLog

@@ -1,3 +1,7 @@
+2009-04-29  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-list.el (org-at-item-p): Fix regular expression.
+
 2009-04-24  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org.el (org-end-of-subtree): Improve speed.

+ 1 - 1
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 ()