]> git.eshelyaron.com Git - emacs.git/commit
* lisp/mail/footnote.el: Consolidate the two marker-alists
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 1 May 2019 21:53:39 +0000 (17:53 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 1 May 2019 21:53:39 +0000 (17:53 -0400)
commit4299e5ef9af182cbc1d97f8a22b589901e6494b1
tree893da7cc1e5e84cd419306403f950a7256a5cc28
parentc9b820ddcfb7e44b4aa1ac349de9cf8453bca6bd
* lisp/mail/footnote.el: Consolidate the two marker-alists

Consolidate footnote-text-marker-alist and footnote-pointer-marker-alist
into a single footnote--markers-alist.

(footnote--markers-alist): New var.
(footnote-text-marker-alist, footnote-pointer-marker-alist): Delete vars.
(footnote--refresh-footnotes, footnote--text-under-cursor)
(footnote--calc-fn-alignment-column, footnote-add-footnote)
(footnote-goto-footnote, footnote-back-to-message): Adjust accordingly.
(footnote--make-hole, footnote-delete-footnote)
(footnote-renumber-footnotes): Simplify accordingly.
(footnote-cycle-style): Indicate style name in echo area.
(footnote--renumber): Take a single `alist-elem` arg instead of
`pointer-alist` and `text-alist`.
(footnote--insert-text-marker, footnote--insert-pointer-marker):
Add to footnote--markers-alist instead.
(footnote--first-text-marker): New function.
(footnote--get-area-point-min): Use it.
footnote--goto-first): New function.
(footnote--insert-footnote): Use it.
(footnote-style-number): Use defvar-local.
lisp/mail/footnote.el