Function: footnote--english-lower

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

Signature

(footnote--english-lower N)

Documentation

Lower 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-lower (n)
  "Lower case English footnoting.
Wrapping around the alphabet implies successive repetitions of letters."
  (let* ((ltr (mod (1- n) (length footnote-english-lower)))
	 (rep (/ (1- n) (length footnote-english-lower)))
	 (chr (char-to-string (aref footnote-english-lower ltr)))
	 rc)
    (while (>= rep 0)
      (setq rc (concat rc chr))
      (setq rep (1- rep)))
    rc))