Current File : //usr/local/share/emacs/27.2/lisp/mail/footnote.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\323%\210\310\327\312\313\330DD\331\316\323%\210\310\332\312\313\333DD\334\316\323%\210\310\335\312\313\336DD\337\316\340%\210\310\341\312\313\342DD\343\316\344%\210\310\345\312\313\346DD\347\304\350\316\317&\210\310\351\312\313\352DD\353\304\350\316\354&\210\310\355\312\313\356DD\357\316\317%\210\310\360\312\313\361DD\362\316\317%\210\310\363\312\313\364DD\365\316\354%\210\310\366\312\313\367DD\370\316\323%\207" [custom-declare-group footnote nil "Support for footnotes in mail and news messages." :version "21.1" :group message custom-declare-variable footnote-mode-line-string funcall function #[0 "\300\207" [#1=" FN"] 1 #1#] "String to display in modes section of the mode-line." :type string footnote-narrow-to-footnotes-when-editing #[0 "\300\207" [nil] 1] "If non-nil, narrow to footnote text body while editing a footnote." boolean footnote-prompt-before-deletion #[0 "\300\207" [t] 1] "If non-nil, prompt before deleting a footnote.\nThere is currently no way to undo deletions." footnote-spaced-footnotes #[0 "\300\207" [t] 1] "If non-nil, insert an empty line between footnotes.\nCustomizing this variable has no effect on buffers already\ndisplaying footnotes." footnote-use-message-mode #[0 "\300\207" [t] 1] "If non-nil, assume Footnoting will be done in `message-mode'." footnote-body-tag-spacing #[0 "\300\207" [2] 1] "Number of spaces separating a footnote body tag and its text.\nCustomizing this variable has no effect on buffers already\ndisplaying footnotes." integer footnote-prefix #[0 "\300\207" [[(control 99) 33]] 1] "Prefix key to use for Footnote commands in Footnote minor mode.\nThe value of this variable is checked as part of loading Footnote mode.\nAfter that, changing the prefix key requires manipulating keymaps." key-sequence footnote-section-tag #[0 "\300\207" [#2="Footnotes:"] 1 #2#] "Tag inserted at beginning of footnote section.\nIf you set this to the empty string, no tag is inserted and the\nvalue of `footnote-section-tag-regexp' is ignored. Customizing\nthis variable has no effect on buffers already displaying\nfootnotes." "27.1" footnote-section-tag-regexp #[0 "\300\207" [#3="Footnotes\\(\\[.\\]\\)?:"] 1 #3#] "Regexp which indicates the start of a footnote section.\nThis variable is disregarded when `footnote-section-tag' is the\nempty string. Customizing this variable has no effect on buffers\nalready displaying footnotes." regexp footnote-start-tag #[0 "\300\207" [#4="["] 1 #4#] "String used to denote start of numbered footnote.\nShould not be set to the empty string. Customizing this variable\nhas no effect on buffers already displaying footnotes." footnote-end-tag #[0 "\300\207" [#5="]"] 1 #5#] "String used to denote end of numbered footnote.\nShould not be set to the empty string. Customizing this variable\nhas no effect on buffers already displaying footnotes." footnote-signature-separator #[0 "\301\300!\203 \207\302\207" [message-signature-separator boundp "^-- $"] 2] "Regexp used by Footnote mode to recognize signatures." footnote-align-to-fn-text #[0 "\300\207" [t] 1] "How to left-align footnote text.\nIf nil, footnote text is to be aligned flush left with left side\nof the footnote number. If non-nil, footnote text is to be aligned\nleft with the first character of footnote text."] 8)
#@69 Footnote style represented as an index into `footnote-style-alist'.
(defvar footnote-style-number nil (#$ . 3848))
(make-variable-buffer-local 'footnote-style-number)
#@265 List of (FN TEXT . POINTERS).
Where FN is the footnote number, TEXT is a marker pointing to
the footnote's text, and POINTERS is a list of markers pointing
to the places from which the footnote is referenced.
Both TEXT and POINTERS points right *before* the [...]
(defvar footnote--markers-alist nil (#$ . 4022))
(make-variable-buffer-local 'footnote--markers-alist)
#@52 Text property name to enable mouse over highlight.
(defvar footnote-mouse-highlight 'highlight (#$ . 4395))
#@20 Regexp for digits.
(defconst footnote-numeric-regexp "[0-9]+" (#$ . 4509))
#@69 Numeric footnote style.
Use Arabic numerals for footnoting.
(fn N)
(defalias 'footnote--numeric #[257 "\300!\207" [int-to-string] 3 (#$ . 4590)])
#@30 Upper case English alphabet.
(defconst footnote-english-upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ" (#$ . 4744))
#@41 Regexp for upper case English alphabet.
(defconst footnote-english-upper-regexp "[A-Z]+" (#$ . 4854))
#@112 Upper case English footnoting.
Wrapping around the alphabet implies successive repetitions of letters.
(fn N)
(defalias 'footnote--english-upper #[257 "\301SG\"SG\245\302H!\303\304Y\203# \211P\262S\262\202 \207" [footnote-english-upper mod char-to-string nil 0] 7 (#$ . 4963)])
#@30 Lower case English alphabet.
(defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz" (#$ . 5260))
#@40 Regexp of lower case English alphabet.
(defconst footnote-english-lower-regexp "[a-z]+" (#$ . 5370))
#@112 Lower case English footnoting.
Wrapping around the alphabet implies successive repetitions of letters.
(fn N)
(defalias 'footnote--english-lower #[257 "\301SG\"SG\245\302H!\303\304Y\203# \211P\262S\262\202 \207" [footnote-english-lower mod char-to-string nil 0] 7 (#$ . 5478)])
#@43 List of roman numerals with their values.
(defconst footnote-roman-lower-list '((1 . "i") (5 . "v") (10 . "x") (50 . "l") (100 . "c") (500 . "d") (1000 . "m")) (#$ . 5775))
#@27 Regexp of roman numerals.
(defconst footnote-roman-lower-regexp (byte-code "\301\302\303\304#\305Q\207" [footnote-roman-lower-list "[" mapconcat cdr "" "]+"] 5) (#$ . 5954))
#@42 Generic Roman number footnoting.
(fn N)
(defalias 'footnote--roman-lower #[257 "\301\"\207" [footnote-roman-lower-list footnote--roman-common] 4 (#$ . 6135)])
#@43 List of roman numerals with their values.
(defconst footnote-roman-upper-list (mapcar #[257 "\211@A\226B\207" [] 3 "\n\n(fn X)"] footnote-roman-lower-list) (#$ . 6303))
#@41 Regexp of roman numerals. Not complete
(defconst footnote-roman-upper-regexp (upcase footnote-roman-lower-regexp) (#$ . 6479))
#@42 Generic Roman number footnoting.
(fn N)
(defalias 'footnote--roman-upper #[257 "\301\"\207" [footnote-roman-upper-list footnote--roman-common] 4 (#$ . 6613)])
#@58 Lower case Roman footnoting.
(fn N FOOTNOTE-ROMAN-LIST)
(defalias 'footnote--roman-common #[514 "\211\211G\300\211\301\300\211SX\203\" 8@Y\203\" T\262\202 \262S\262\301U\203c \211W\203c 8@ 8@\302\245ZV\204Y 8@ 8@ZU\203\\ \211\262\211T\262\202) 88\301U?\205v 8 \300W\203\203 \303\304!\202\345 \300U\203\216 \305\202\345 @U\203\233 A\202\345 @U\203\250 A\202\345 @@U\203\277 A\306
@Z
\"P\202\345 \300Y\203\331 \211AA\306@@ZZ\"Q\202\345 A\306
@Z
\"P\266\203\207" [0 -1 2 error "footnote--roman-common called with n < 0" "" footnote--roman-common] 18 (#$ . 6781)])
#@42 String of Latin-1 footnoting characters.
(defconst footnote-latin-string "¹²³ºª§¶" (#$ . 7421))
#@43 Regexp for Latin-1 footnoting characters.
(defconst footnote-latin-regexp (concat "[" footnote-latin-string "]") (#$ . 7530))
#@93 Latin-1 footnote style.
Use a range of Latin-1 non-ASCII characters for footnoting.
(fn N)
(defalias 'footnote--latin #[257 "\301\302SG\"H!\207" [footnote-latin-string string mod] 6 (#$ . 7662)])
#@42 String of Unicode footnoting characters.
(defconst footnote-unicode-string "⁰¹²³⁴⁵⁶⁷⁸⁹" (#$ . 7868))
#@43 Regexp for Unicode footnoting characters.
(defconst footnote-unicode-regexp (concat "[" footnote-unicode-string "]+") (#$ . 7992))
#@72 Unicode footnote style.
Use Unicode characters for footnoting.
(fn N)
(defalias 'footnote--unicode #[257 "\301\211\211\211\204& \302\303\"\262\304\303\"\262\305U\203 \306\262HB\262\202 \307\310\"\207" [footnote-unicode-string nil mod 10 truncate 0 t apply string] 7 (#$ . 8129)])
(defconst footnote-hebrew-numeric '(("א" "ב" "ג" "ד" "ה" "ו" "ז" "ח" "ט") ("י" "כ" "ל" "מ" "נ" "ס" "ע" "פ" "צ") ("ק" "ר" "ש" "ת" "תק" "תר" "תש" "תת" "תתק")))
(defconst footnote-hebrew-numeric-regex (byte-code "\301\302\301\303\"\"\303\304\"\262\305\306\307\310BBD!\207" [footnote-hebrew-numeric apply concat append nil rx-to-string 1+ in 39] 6))
#@51 Supports 9999 footnotes, then rolls over.
(fn N)
(defalias 'footnote--hebrew-numeric #[257 "\301\302\"\302\245\\\211\303\245\301\303\"\304\245\301\304\"\305\245\301\305\"\306U\204% \307\2026 \211\310U\203/ \311\2026 \211\312U\2056 \313\314U?\205D S@8\315P\314U?\205Q S\31688\206o \314U?\205b SA@8\314U?\205n S@8PQ\207" [footnote-hebrew-numeric mod 10000 1000 100 10 1 nil 5 "טו" 6 "טז" 0 "'" 2] 12 (#$ . 8812)])
(defconst footnote-hebrew-symbolic '("א" "ב" "ג" "ד" "ה" "ו" "ז" "ח" "ט" "י" "כ" "ל" "מ" "נ" "ס" "ע" "פ" "צ" "ק" "ר" "ש" "ת"))
(defconst footnote-hebrew-symbolic-regex (byte-code "\301\302\303\"\304Q\207" [footnote-hebrew-symbolic "[" apply concat "]"] 4))
#@175 Only 22 elements, per the style of eg. 'פירוש שפתי חכמים על רש״י'.
Proceeds from `י' to `כ', from `צ' to `ק'. After `ת', rolls over to `א'.
(fn N)
(defalias 'footnote--hebrew-symbolic #[257 "\301S\302\"8\207" [footnote-hebrew-symbolic mod 22] 4 (#$ . 9535)])
#@440 Styles of footnote tags available.
By default, Arabic numbers, English letters, Roman Numerals,
Latin and Unicode superscript characters, and Hebrew numerals
are available.
Each element of the list should be of the form (NAME FUNCTION REGEXP)
where NAME is a symbol, FUNCTION takes a footnote number and
returns the corresponding representation in that style as a string,
and REGEXP should be a regexp that matches any output of FUNCTION.
(defvar footnote-style-alist (byte-code "\306\307E\310\311 E\312\313\nE\314\315 E\316\317\fE\320\321
E\322\323E\324\325E\326\327E\257 \207" [footnote-numeric-regexp footnote-english-lower-regexp footnote-english-upper-regexp footnote-roman-lower-regexp footnote-roman-upper-regexp footnote-latin-regexp numeric footnote--numeric english-lower footnote--english-lower english-upper footnote--english-upper roman-lower footnote--roman-lower roman-upper footnote--roman-upper latin footnote--latin unicode footnote--unicode hebrew-numeric footnote--hebrew-numeric hebrew-symbolic footnote--hebrew-symbolic footnote-unicode-regexp footnote-hebrew-numeric-regex footnote-hebrew-symbolic-regex] 11) (#$ . 9830))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\"B%\207" [footnote-style-alist custom-declare-variable footnote-style funcall function #[0 "\300\207" [numeric] 1] "Default style used for footnoting.\nnumeric == 1, 2, 3, ...\nenglish-lower == a, b, c, ...\nenglish-upper == A, B, C, ...\nroman-lower == i, ii, iii, iv, v, ...\nroman-upper == I, II, III, IV, V, ...\nlatin == ¹ ² ³ º ª § ¶\nunicode == ¹, ², ³, ...\nhebrew-numeric == א, ב, ..., יא, ..., תקא...\nhebrew-symbolic == א, ב, ..., י, כ, ..., צ, ק, ..., ת, א\nSee also variables `footnote-start-tag' and `footnote-end-tag'.\n\nNote: some characters in the unicode style may not show up\nproperly if the default font does not contain those characters.\n\nCustomizing this variable has no effect on buffers already\ndisplaying footnotes. To change the style of footnotes in such a\nbuffer use the command `footnote-set-style'." :type choice mapcar #[257 "\300@D\207" [const] 3 "\n\n(fn X)"]] 9)
#@134 Convert a binary index into a string to display as a footnote.
Conversion is done based upon the current selected style.
(fn INDEX)
(defalias 'footnote--index-to-string #[257 " \236\206 @\211A@!\207" [footnote-style footnote-style-alist] 4 (#$ . 11975)])
#@83 Return the regexp of the index of the current style.
(fn &optional INDEX-REGEXP)
(defalias 'footnote--current-regexp #[256 "\211\206 \304 \236\206
@8\305\n!\306\307\310\"\203! \311\312\313#\202\" \314\305 !\260\207" [footnote-style footnote-style-alist footnote-start-tag footnote-end-tag 2 regexp-quote "\\(" string-match "[^\\]\\\\\\{2\\}*[*+?]\\'" substring 0 -1 "*\\)"] 8 (#$ . 12241)])
#@134 Redraw all footnotes.
You must call this or arrange to have this called after changing
footnote styles.
(fn &optional INDEX-REGEXP)
(defalias 'footnote--refresh-footnotes #[256 "\304!\212\211\205d \211@\211@A\211@A\211\211\203A \211@\211b\210\305\f!\203: \306\307 \310!\nQ\311 \312%\312\211#\210A\266\202\202 \210b\210\305\n!\203[ \306\307 \310!\nQ\311#\312\211#\210\266A\266\202\202 \262)\207" [footnote--markers-alist footnote-start-tag footnote-end-tag footnote-mouse-highlight footnote--current-regexp looking-at replace-match propertize footnote--index-to-string footnote-number t] 20 (#$ . 12648)])
#@37 Select next defined footnote style.
(defalias 'footnote-cycle-style #[0 " \236\211 >A\206 @@\302\3038!\210\304\305\"\207" [footnote-style footnote-style-alist footnote--refresh-footnotes 2 message "Style set to %s"] 4 (#$ . 13282) nil])
#@38 Select a specific style.
(fn STYLE)
(defalias 'footnote-set-style #[257 " \236\302\3038!\207" [footnote-style footnote-style-alist footnote--refresh-footnotes 2] 5 (#$ . 13531) (byte-code "\301\302\303\304\305$!C\207" [footnote-style-alist intern completing-read "Footnote Style: " nil require-match] 6)])
#@121 Insert numbered footnote at point.
Return a marker pointing to the beginning of the [...].
(fn ARG &optional MOUSABLE)
(defalias 'footnote--insert-numbered-footnote #[513 "\303! Q`\203 \304\305\n\306%\202 \304\305#c\210\307\306\"\207" [footnote-start-tag footnote-end-tag footnote-mouse-highlight footnote--index-to-string propertize footnote-number t copy-marker] 10 (#$ . 13850)])
#@49 Renumber a single footnote.
(fn TO ALIST-ELEM)
(defalias 'footnote--renumber #[514 "@\232?\205T \303 \240\210AA\211\2038 \211@\211b\210\304!\2031 \305\306\307! Q\310\n\311%!\210A\266\202\202 \210A@b\210\304!\205R \305\306\307! Q\310#!\262\207" [footnote-start-tag footnote-end-tag footnote-mouse-highlight footnote--current-regexp looking-at replace-match propertize footnote--index-to-string footnote-number t] 12 (#$ . 14252)])
#@57 Restrict text in buffer to show only text of footnotes.
(defalias 'footnote--narrow-to-footnotes #[0 "\300 \301 }\207" [footnote--get-area-point-min footnote--get-area-point-max] 2 (#$ . 14710) nil])
#@56 Move to end of buffer or prior to start of .signature.
(defalias 'footnote--goto-char-point-max #[0 "db\210\301\302\303#\206\f `\207" [footnote-signature-separator re-search-backward nil t] 4 (#$ . 14916)])
#@60 Insert the markers of new footnote ARG.
(fn ARG TEXT PTR)
(defalias 'footnote--insert-markers #[771 "\247\203 \301!\203 \301!\204 \302\303!\210\236\203 \302\304!\210EB\305!\211\207" [footnote--markers-alist markerp cl--assertion-failed (and (numberp arg) (markerp text) (markerp ptr)) (not (assq arg footnote--markers-alist)) footnote--sort] 6 (#$ . 15130)])
#@117 Go to beginning of footnote area and return non-nil if successful.
Presumes we're within the footnote area already.
(defalias 'footnote--goto-first #[0 "\303\230\204 \304\305 P\306\307#\207\n\205 \n@A@b\207" [footnote-section-tag footnote-section-tag-regexp footnote--markers-alist "" re-search-backward "^" nil t] 4 (#$ . 15513)])
#@55 Insert a footnote numbered ARG, at (point).
(fn ARG)
(defalias 'footnote--insert-footnote #[257 "\303 \210\304\305\"\306 \210\307 \203G \214\203 \310 \210\311S!\210\312=\204C \313 \203+ \314\202/ \315\316 P\317\305#\203; \320 \210\202C \306 \204C \307 \210)\202b \321\322!\204P \315c\210m\203W \315c\210\n\323\230\204b \n\315\261\210\304\317\"\324#\262\207" [footnote-narrow-to-footnotes-when-editing footnote-spaced-footnotes footnote-section-tag push-mark footnote--insert-numbered-footnote t footnote--goto-char-point-max footnote--goto-first footnote--narrow-to-footnotes footnote-goto-footnote 1 re-search-forward "\n\n" "\n" footnote--current-regexp nil beginning-of-line looking-at "^$" "" footnote--insert-markers] 7 (#$ . 15854)])
#@13
(fn LIST)
(defalias 'footnote--sort #[257 "\300\301\"\207" [sort car-less-than-car] 4 (#$ . 16612)])
#@136 Return the number of the current footnote if in footnote text.
Return nil if the cursor is not positioned over the text of
a footnote.
(defalias 'footnote--text-under-cursor #[0 "`\301 X\205- \302\211\203) \211@\211@A\211@\211`X\203 \211\262\266A\266\202\202 \210\211\262\207" [footnote--markers-alist footnote--get-area-point-max nil] 10 (#$ . 16723)])
#@107 Return the number of the footnote underneath the cursor.
Return nil if the cursor is not over a footnote.
(defalias 'footnote--under-cursor #[0 "\300`\301\"\206 \302 \207" [get-text-property footnote-number footnote--text-under-cursor] 3 (#$ . 17094)])
#@49 Calculate the left alignment for footnote text.
(defalias 'footnote--calc-fn-alignment-column #[0 "\304 \n\305\306 !@@!Q!\\\207" [footnote-body-tag-spacing footnote-start-tag footnote-end-tag footnote--markers-alist string-width footnote--index-to-string last] 7 (#$ . 17354)])
#@53 Return the fill prefix to be used by footnote mode.
(defalias 'footnote--fill-prefix-string #[0 "\300\301 \302\"\207" [make-string footnote--calc-fn-alignment-column 32] 3 (#$ . 17639)])
#@101 Return non-nil if point is in the buffer text area,
i.e. before the beginning of the footnote area.
(defalias 'footnote--point-in-body-p #[0 "`\300 W\207" [footnote--get-area-point-min] 2 (#$ . 17833)])
#@215 Return start of the first footnote.
If there is no footnote area, returns `point-max'.
With optional arg BEFORE-TAG, return position of the `footnote-section-tag'
instead, if applicable.
(fn &optional BEFORE-TAG)
(defalias 'footnote--get-area-point-min #[256 "\204 d\207\211\204 @A@\207 \303\230\203 @A@\207\212@A@b\210\304\305\nP\306\307#\203/ `\2024 \310\311!\210`)\207" [footnote--markers-alist footnote-section-tag footnote-section-tag-regexp "" re-search-backward "^" nil t message "Footnote section tag not found!"] 5 (#$ . 18043)])
#@206 Return the end of footnote area.
This is either `point-max' or the start of a `.signature' string, as
defined by variable `footnote-signature-separator'. If there is no
footnote area, returns `point-max'.
(defalias 'footnote--get-area-point-max #[0 "\212\300 )\207" [footnote--goto-char-point-max] 1 (#$ . 18597)])
#@17
(fn ORIG-FUN)
(defalias 'footnote--adaptive-fill-function #[257 "\203 \203 \302 \203 \303 \206 \211 \207" [footnote-mode footnote-align-to-fn-text footnote--text-under-cursor footnote--fill-prefix-string] 2 (#$ . 18918)])
#@25
(fn ORIG-FUN JUSTIFY)
(defalias 'footnote--fill-paragraph #[514 "\304 \204 !\207\305\203 \306 \202 \307\310\311!+\207" [footnote-align-to-fn-text paragraph-start fill-prefix fill-paragraph-function footnote--text-under-cursor nil footnote--fill-prefix-string "" "\\[" fill-paragraph] 5 (#$ . 19154)])
#@88 Make room in the alist for a new footnote at point.
Return the footnote number to use.
(defalias 'footnote--make-hole #[0 "\212\301\211\2037 \211@`AA@X\2030 \204 \211@\262\212\302\303\304@!\304@T!#\210\305@T\"\210)A\266\202\202 \210\211\206F \306!@@\206E \307T\262)\207" [footnote--markers-alist nil message "Renumbering from %s to %s" footnote--index-to-string footnote--renumber last 0] 8 (#$ . 19473)])
#@321 Add a numbered footnote.
The number the footnote receives is dependent upon the relative location
of any other previously existing footnotes.
If the variable `footnote-narrow-to-footnotes-when-editing' is set,
the buffer is narrowed to the footnote body. The restriction is removed
by using `footnote-back-to-message'.
(defalias 'footnote-add-footnote #[0 "\303 \304\305\"\210\306!\210\307\310\"c\210\212 \203 \311\202 \312c\210\n\205# \313 )\207" [footnote-body-tag-spacing footnote-spaced-footnotes footnote-narrow-to-footnotes-when-editing footnote--make-hole message "Adding footnote %d" footnote--insert-footnote make-string 32 "\n\n" "\n" footnote--narrow-to-footnotes] 4 (#$ . 19899) "*"])
#@162 Delete a numbered footnote.
With no parameter, delete the footnote under (point). With ARG specified,
delete the footnote with that number.
(fn &optional ARG)
(defalias 'footnote-delete-footnote #[256 "\211\204 \305 \262\211\205\270 \203 \306\307\310\"!\205\270 \211 \236\206# \311\312\"\313 AA\211\203F \211@\212\211b\210\314!\203> \315\224\315\225|\210)A\266\202\202( \210\212A@b\210`\n\203Z \316\317\320\321#\202f \214\320\210\322`\323\320\324 $)|\210)\325 \"\211\203w \326 \202\266 \212 \327\230\204\246 \324 \330\331\fP\320\321#S\332y\210\314\333!\203\224 \334 \210\211dW\203\237 \202\240 d|\266\202\202\265 \324 \210\335\317`\336Z\"\205\265 \334\332!)\266\202\207" [footnote-prompt-before-deletion footnote--markers-alist footnote-spaced-footnotes footnote-section-tag footnote-section-tag-regexp footnote--under-cursor y-or-n-p format "Really delete footnote %d?" error "Can't delete footnote %d" footnote--current-regexp looking-at 0 search-forward "\n\n" nil t next-single-char-property-change footnote-number footnote--goto-char-point-max delq footnote-renumber-footnotes "" re-search-backward "^" -1 "\n" kill-line looking-back 2] 10 (#$ . 20609) "*P"])
#@38 Renumber footnotes, starting from 1.
(defalias 'footnote-renumber-footnotes #[0 "\212\301\211\205 \211@\302\"\210T\262A\266\202\202 \262\262)\207" [footnote--markers-alist 1 footnote--renumber] 6 (#$ . 21797) "*"])
#@176 Jump to the text of a footnote.
With no parameter, jump to the text of the footnote under (point). With ARG
specified, jump to the text of that footnote.
(fn &optional ARG)
(defalias 'footnote-goto-footnote #[256 "\211\204 \303 \262\211\236\211\203 \211A@b\202? \304=\203< db\210 \305\230\2040 \306\307\nP!\210\310y\202? \205? @A@b\202? \311\312!\207" [footnote--markers-alist footnote-section-tag footnote-section-tag-regexp footnote--under-cursor 0 "" re-search-backward "^" 1 error "I don't see a footnote here"] 5 (#$ . 22029) "P"])
#@229 Move cursor back to footnote referent.
If the cursor is not over the text of a footnote, point is not changed.
If the buffer was narrowed due to `footnote-narrow-to-footnotes-when-editing'
being set it is automatically widened.
(defalias 'footnote-back-to-message #[0 "\302 \211\205 \203\f ~\210\211 \236AA@b\210\303\304 !\205 \305\225b\207" [footnote-narrow-to-footnotes-when-editing footnote--markers-alist footnote--text-under-cursor looking-at footnote--current-regexp 0] 3 (#$ . 22582) nil])
(defvar footnote-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\211\207" [make-sparse-keymap define-key "a" footnote-add-footnote "b" footnote-back-to-message "c" footnote-cycle-style "d" footnote-delete-footnote "g" footnote-goto-footnote "r" footnote-renumber-footnotes "s" footnote-set-style] 5))
#@46 Keymap used for binding footnote minor mode.
(defvar footnote-minor-mode-map (byte-code "\302 \303 #\210\211\207" [footnote-prefix footnote-mode-map make-sparse-keymap define-key] 5) (#$ . 23494))
#@304 Add advice to a variable holding buffer-local functions.
Typical use would be to advice variables like
`fill-paragraph-function' from minor modes.
MODE is the minor mode symbol, VARIABLE is the variable to get
advice, and FUNCTION is what'll be added as an :around advice.
(fn MODE VARIABLE FUNCTION)
(defalias 'footnote--local-advice '(macro . #[771 "\300\301\302\303BBE\304\305\306DD\307DE\310\311\312\305\306\nDD\307 DFEF\207" [progn unless setq-local (#'ignore) remove-function local quote function when add-function :around] 13 (#$ . 23700)]))
#@95 Non-nil if Footnote mode is enabled.
Use the command `footnote-mode' to change this variable.
(defvar footnote-mode nil (#$ . 24266))
(make-variable-buffer-local 'footnote-mode)
#@472 Toggle Footnote mode.
If called interactively, enable Footnote mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Footnote mode is a buffer-local minor mode. If enabled, it
provides footnote support for `message-mode'. To get started,
play around with the following keys:
\{footnote-minor-mode-map}
(fn &optional ARG)
(defalias 'footnote-mode #[256 "\306 \307=\203
?\202 \310!\311V \204 \312\301!\210\313\314\315\301!\316\"\211\315\301!=\2040 \317\301\"\210\210\203> \320\321\322\323B\316\324$\210\n\204H \312\302!\210\313\314\315\302!\325\"\211\315\302!=\204[ \317\302\"\210\210\203i \320\321\326\327B\325\324$\210\203\254 \312\330!\210\312\331!\210\312\332!\210\312\333!\210\312\334!\210\312\303!\210\312\304!\210\312\301!\210\335\305!\203\254 \336 !\337\336\f!\340R\341
\"\204\253 \342
\343DC\"\210\344\345\203\266 \346\202\267 \347\"\210\350\351!\203\333 \306 \203\313 \211\306 \232\203\333 \352\353\354\203\326 \355\202\327 \356#\266\210\357 \210\207" [footnote-mode adaptive-fill-function fill-paragraph-function footnote-start-tag footnote-end-tag filladapt-token-table current-message toggle prefix-numeric-value 0 make-local-variable ignore advice--remove-function advice--buffer-local footnote--adaptive-fill-function advice--set-buffer-local advice--add-function :around #[0 "\300\301!\207" [advice--buffer-local adaptive-fill-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local adaptive-fill-function] 4 "\n\n(fn GV--VAL)"] nil footnote--fill-paragraph #[0 "\300\301!\207" [advice--buffer-local fill-paragraph-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local fill-paragraph-function] 4 "\n\n(fn GV--VAL)"] footnote-style footnote-body-tag-spacing footnote-spaced-footnotes footnote-section-tag footnote-section-tag-regexp boundp regexp-quote "?[0-9a-zA-Z]+" "[ ]" assoc append bullet run-hooks footnote-mode-hook footnote-mode-on-hook footnote-mode-off-hook called-interactively-p any " in current buffer" message "Footnote mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 24451) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar footnote-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\210\311\312!\207" [footnote-minor-mode-map footnote-mode-hook variable-documentation put "Hook run after entering or leaving `footnote-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode footnote-mode footnote-mode-line-string nil provide footnote] 6)
Mini Shell