summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-04-09 16:20:18 +0200
committerBastien Guerry <bzg@altern.org>2011-04-09 16:20:18 +0200
commitacdf82f66e8fc7e43d33ba8856977b0984f5e6ed (patch)
tree3848dc54559d80d49b67cd720aa08c8cde79e526
parenta8a436317c9d0fb1c8d5fb4d452f9ed55b4703cf (diff)
parenta7a4693f66d90691b06afd89d4f44575042c5dfd (diff)
downloadorg-mode-acdf82f66e8fc7e43d33ba8856977b0984f5e6ed.tar.gz
Merge branch 'master' of orgmode.org:org-mode
-rw-r--r--lisp/org-list.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index b657042..a39a35d 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -396,9 +396,13 @@ group 4: description tag")
(and (org-at-item-p)
(save-excursion
(goto-char (match-end 0))
- ;; Ignore counter if any
- (when (looking-at "\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?")
- (goto-char (match-end 0)))
+ (let ((counter-re (concat "\\(?:\\[@\\(?:start:\\)?"
+ (if org-alphabetical-lists
+ "\\([0-9]+\\|[A-Za-z]\\)"
+ "[0-9]+")
+ "\\][ \t]*\\)")))
+ ;; Ignore counter if any
+ (when (looking-at counter-re) (goto-char (match-end 0))))
(looking-at regexp))))
(defun org-list-in-valid-context-p ()