Function: footnote--make-hole

footnote--make-hole is a byte-compiled function defined in footnote.el.gz.

Signature

(footnote--make-hole)

Documentation

Make room in the alist for a new footnote at point.

Return the footnote number to use.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/footnote.el.gz
;;; User functions

(defun footnote--make-hole ()
  "Make room in the alist for a new footnote at point.
Return the footnote number to use."
  (save-excursion
    (let (rc)
      (dolist (alist-elem footnote--markers-alist)
        (when (<= (point) (caddr alist-elem))
	  (unless rc
	    (setq rc (car alist-elem)))
	  (save-excursion
	    (message "Renumbering from %s to %s"
		     (footnote--index-to-string (car alist-elem))
		     (footnote--index-to-string
		      (1+ (car alist-elem))))
	    (footnote--renumber (1+ (car alist-elem))
                                alist-elem))))
      (or rc
          (1+ (or (caar (last footnote--markers-alist)) 0))))))