Function: footnote--english-upper

footnote--english-upper is a byte-compiled function defined in footnote.el.gz.

Signature

(footnote--english-upper N)

Documentation

Upper case English footnoting.

Wrapping around the alphabet implies successive repetitions of letters.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/footnote.el.gz
(defun footnote--english-upper (n)
  "Upper case English footnoting.
Wrapping around the alphabet implies successive repetitions of letters."
  (let* ((ltr (mod (1- n) (length footnote-english-upper)))
	 (rep (/ (1- n) (length footnote-english-upper)))
	 (chr (char-to-string (aref footnote-english-upper ltr)))
	 rc)
    (while (>= rep 0)
      (setq rc (concat rc chr))
      (setq rep (1- rep)))
    rc))