Function: org-list-use-alpha-bul-p

org-list-use-alpha-bul-p is a byte-compiled function defined in org-list.el.gz.

Signature

(org-list-use-alpha-bul-p FIRST STRUCT PREVS)

Documentation

Non-nil if list starting at FIRST can have alphabetical bullets.

STRUCT is list structure. PREVS is the alist of previous items, as returned by org-list-prevs-alist.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-list.el.gz
;;; Repairing structures

(defun org-list-use-alpha-bul-p (first struct prevs)
  "Non-nil if list starting at FIRST can have alphabetical bullets.

STRUCT is list structure.  PREVS is the alist of previous items,
as returned by `org-list-prevs-alist'."
  (and org-list-allow-alphabetical
       (catch 'exit
	 (let ((item first) (ascii 64) (case-fold-search nil))
	   ;; Pretend that bullets are uppercase and check if alphabet
	   ;; is sufficient, taking counters into account.
	   (while item
	     (let ((count (org-list-get-counter item struct)))
	       ;; Virtually determine current bullet
	       (if (and count (string-match-p "[a-zA-Z]" count))
		   ;; Counters are not case-sensitive.
		   (setq ascii (string-to-char (upcase count)))
		 (setq ascii (1+ ascii)))
	       ;; Test if bullet would be over z or Z.
	       (if (> ascii 90)
		   (throw 'exit nil)
		 (setq item (org-list-get-next-item item struct prevs)))))
	   ;; All items checked.  All good.
	   t))))