瀏覽代碼

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

Nicolas Goaziou 14 年之前
父節點
當前提交
a7a4693f66
共有 1 個文件被更改,包括 7 次插入3 次删除
  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 ()