161 |
(setq rc (concat rc chr)) |
(setq rc (concat rc chr)) |
162 |
(setq rep (1- rep))) |
(setq rep (1- rep))) |
163 |
rc)) |
rc)) |
164 |
|
|
165 |
;;; ENGLISH LOWER |
;;; ENGLISH LOWER |
166 |
(defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz" |
(defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz" |
167 |
"Lower case English alphabet.") |
"Lower case English alphabet.") |
482 |
(Footnote-goto-char-point-max) |
(Footnote-goto-char-point-max) |
483 |
(if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t) |
(if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t) |
484 |
(save-restriction |
(save-restriction |
485 |
(when footnote-narrow-to-footnotes-when-editing |
(when footnote-narrow-to-footnotes-when-editing |
486 |
(Footnote-narrow-to-footnotes)) |
(Footnote-narrow-to-footnotes)) |
487 |
(Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now) |
(Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now) |
488 |
;; (message "Inserting footnote %d" arg) |
;; (message "Inserting footnote %d" arg) |
554 |
(unless rc |
(unless rc |
555 |
(setq rc (car alist-ptr))) |
(setq rc (car alist-ptr))) |
556 |
(save-excursion |
(save-excursion |
557 |
(message "Renumbering from %s to %s" |
(message "Renumbering from %s to %s" |
558 |
(Footnote-index-to-string (car alist-ptr)) |
(Footnote-index-to-string (car alist-ptr)) |
559 |
(Footnote-index-to-string |
(Footnote-index-to-string |
560 |
(1+ (car alist-ptr)))) |
(1+ (car alist-ptr)))) |
561 |
(Footnote-renumber (car alist-ptr) |
(Footnote-renumber (car alist-ptr) |
562 |
(1+ (car alist-ptr)) |
(1+ (car alist-ptr)) |