Browse Source

org-list: don't forget to allow alphabetical counters

Nicolas Goaziou 14 years ago
parent
commit
a7a4693f66
1 changed files with 7 additions and 3 deletions
  1. 7 3
      lisp/org-list.el

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