mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib org-macs org-compat] 2)
16 #@215 Regular expression for matching footnotes.
17 Match group 1 contains footnote's label.  It is nil for anonymous
18 footnotes.  Match group 2 is non-nil only when footnote is
19 inline, i.e., it contains its own definition.
20 (defconst org-footnote-re "\\[fn:\\(?:\\(?1:[-_[:word:]]+\\)?\\(:\\)\\|\\(?1:[-_[:word:]]+\\)\\]\\)" (#$ . 502))
21 #@102 Regular expression matching the definition of a footnote.
22 Match group 1 contains definition's label.
23 (defconst org-footnote-definition-re "^\\[fn:\\([-_[:word:]]+\\)\\]" (#$ . 836))
24 #@50 Names of blocks where footnotes are not allowed.
25 (defconst org-footnote-forbidden-blocks '("comment" "example" "export" "src") (#$ . 1024))
26 (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317\320\321\322\323& \210\310\324\312\313\325DD\326\306\301\322\327&\210\310\330\312\313\331DD\332\306\301\322\333&\210\310\334\312\313\335DD\336\306\301\322\337&\210\310\340\312\313\341DD\342\306\301\322\327&\207" [custom-declare-group org-footnote nil "Footnotes in Org mode." :tag "Org Footnote" :group org custom-declare-variable org-footnote-section funcall function #[0 "\300\207" [#1="Footnotes"] 1 #1#] "Outline heading containing footnote definitions.\n\nThis can be nil, to place footnotes locally at the end of the\ncurrent outline node.  If can also be the name of a special\noutline heading under which footnotes should be put.\n\nThis variable defines the place where Org puts the definition\nautomatically, i.e. when creating the footnote, and when sorting\nthe notes.  However, by hand you may place definitions\n*anywhere*.\n\nIf this is a string, during export, all subtrees starting with\nthis heading will be ignored.\n\nIf you don't use the customize interface to change this variable,\nyou will need to run the following command after the change:\n\n  `\\[universal-argument] \\[org-element-cache-reset]'" :initialize custom-initialize-default :set #[514 "L\210\300\301!\205 \301\302!\207" [fboundp org-element-cache-reset all] 4 "\n\n(fn VAR VAL)"] :type (choice (string :tag "Collect footnotes under heading") (const :tag "Define footnotes locally" nil)) org-footnote-define-inline #[0 "\300\207" [nil] 1] "Non-nil means define footnotes inline, at reference location.\nWhen nil, footnotes will be defined in a special section near\nthe end of the document.  When t, the [fn:label:definition] notation\nwill be used to define the footnote at the reference position." boolean org-footnote-auto-label #[0 "\300\207" [t] 1] "Non-nil means define automatically new labels for footnotes.\nPossible values are:\n\nnil        Prompt the user for each label.\nt          Create unique labels of the form [fn:1], [fn:2], etc.\nconfirm    Like t, but let the user edit the created value.\n           The label can be removed from the minibuffer to create\n           an anonymous footnote.\nrandom       Automatically generate a unique, random label." (choice (const :tag "Prompt for label" nil) (const :tag "Create automatic [fn:N]" t) (const :tag "Offer automatic [fn:N] for editing" confirm) (const :tag "Create a random label" random)) org-footnote-auto-adjust #[0 "\300\207" [nil] 1] "Non-nil means automatically adjust footnotes after insert/delete.\nWhen this is t, after each insertion or deletion of a footnote,\nsimple fn:N footnotes will be renumbered, and all footnotes will be sorted.\nIf you want to have just sorting or just renumbering, set this variable\nto `sort' or `renumber'.\n\nThe main values of this variable can be set with in-buffer options:\n\n#+STARTUP: fnadjust\n#+STARTUP: nofnadjust" (choice (const :tag "No adjustment" nil) (const :tag "Renumber" renumber) (const :tag "Sort" sort) (const :tag "Renumber and Sort" t)) org-footnote-fill-after-inline-note-extraction #[0 "\300\207" [nil] 1] "Non-nil means fill paragraphs after extracting footnotes.\nWhen extracting inline footnotes, the lengths of lines can change a lot.\nWhen this option is set, paragraphs from which an inline footnote has been\nextracted will be filled again."] 12)
27 #@52 Is point in a context where footnotes are allowed?
28 (defalias 'org-footnote-in-valid-context-p #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311 \206+\312 \206+\313 \206+\212\314 \210\315\316!)\206+\317!)?\207" [org-footnote-forbidden-blocks match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-at-comment-p org-inside-LaTeX-fragment-p org-in-verbatim-emphasis beginning-of-line looking-at "[     ]*:[     ]+" org-in-block-p] 7 (#$ . 4546)])
29 #@150 Is the cursor at a footnote reference?
30
31 If so, return a list containing its label, beginning and ending
32 positions, and the definition, when inlined.
33 (defalias 'org-footnote-at-reference-p #[0 "\302 \205\202\303!\204\304!\204\212\305\306\307#)\205\202\310\224\311 U?\205\202\310\224\312\313!\31415\315\313\"0\2027\210\306\211\205\200`W\205\200\212b\210\316 \317\310\320\321\322!\323\"\324$\216\304    !)\262\211\205a`AW\262)?\205\200\325 ?\205\200\326\225\205\327\330\310\225S\"!F\266\203\207" [org-footnote-re org-bracket-link-regexp org-footnote-in-valid-context-p looking-at org-in-regexp re-search-backward nil t 0 line-beginning-position match-string-no-properties 1 (error) scan-sexps match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-inside-latex-macro-p 2 org-trim buffer-substring-no-properties] 10 (#$ . 5039)])
34 #@379 Is point within a footnote definition?
35
36 This matches only pure definitions like [1] or [fn:name] at the
37 beginning of a line.  It does not match references like
38 [fn:name:definition], where the footnote text is included and
39 defined locally.
40
41 The return value will be nil if not at a footnote definition, and
42 a list with label, start, end and definition of the footnote
43 otherwise.
44 (defalias 'org-footnote-at-definition-p #[0 "\212\302 \210\303 )\205N\212\304\210\212\305\306P\304\307#)\305    \307#\205K\310\311!\312\224\312\225\304\210\313\314    \314\315\260\304\316#\203<\312\224\202=`\317\320\"!F\266\204\262)\207" [org-outline-regexp-bol org-footnote-definition-re beginning-of-line org-footnote-in-valid-context-p nil re-search-backward "\\|^\\([     ]*\n\\)\\{2,\\}" t match-string-no-properties 1 0 re-search-forward "\\|" "^\\([     ]*\n\\)\\{2,\\}" move org-trim buffer-substring-no-properties] 12 (#$ . 5940)])
45 #@61 Non-nil when a footnote reference can be inserted at point.
46 (defalias 'org-footnote--allow-reference-p #[0 "n?\205\330\303 \304!\305\306\"\211\205`W\262\203\307\202\326\211\310>\206\326\211\311=\203<`\305\312\"Y\205\326`\305\313\"W\202\326\211\314>\203\315 ?\206\326\212\316 \210\317\320\317\321!)\262)?\205b\307\321\n!))\205\326\322\224\205\326`\322\224Y\205\326\323\224?\206\326`\323\224W\202\326`\212\305\324\"b\210\325\307x\210\326!\327=\203\227`\202\233\330\331!T)Y\206\326\326!\332=\203\254\307\202\326`\305\333\"U\206\326\211\334=\203\277\307\202\326\305\312\"\305\313\"\205\324`Y\205\324`X\266\202\266\202\207" [case-fold-search inhibit-changing-match-data org-complex-heading-regexp org-element-context org-element-type org-element-property :post-affiliated nil (nil paragraph) verse-block :contents-begin :contents-end (headline inlinetask) org-at-heading-p beginning-of-line t "\\*+ END[     ]*$" looking-at 4 5 :end "      \n" org-element-class object line-beginning-position 2 element :begin link] 6 (#$ . 6871)])
47 #@191 Remove all footnote sections in buffer and create a new one.
48 New section is created at the end of the buffer, before any file
49 local variable definition.  Leave point within the new section.
50 (defalias 'org-footnote--clear-footnote-section #[0 "\205Yeb\210\302\303\304!\"\305\306\307#\203:\310\224\311\307\211\"\210m\204$`\2025\312 \210\313\306w\210m\2033`\2025\314 |\210\202 \210db\210\312 \210\315    \236A\203T\212\316 )\310U\203T\317c\210\320\317\261\207" [org-footnote-section org-blank-before-new-entry format "^\\*+ +%s[     ]*$" regexp-quote re-search-forward nil t 0 org-end-of-subtree org-footnote--goto-local-insertion-point "     \n" line-beginning-position heading org-back-over-empty-lines "\n" "* "] 5 (#$ . 7948)])
51 #@136 Set label of footnote at point to string LABEL.
52 Assume point is at the beginning of the reference or definition
53 to rename.
54
55 (fn LABEL)
56 (defalias 'org-footnote--set-label #[257 "\300u\210\301f\302=\203 \211c\207\303\304!\203\305\301\211\211\306%\207\301\207" [4 nil 58 looking-at "\\([-_[:word:]]+\\)" replace-match 1] 7 (#$ . 8689)])
57 #@637 Collect all labeled footnote references in current buffer.
58
59 Return an alist where associations follow the pattern
60
61   (LABEL MARKER TOP-LEVEL SIZE)
62
63 with
64
65   LABEL     the label of the of the definition,
66   MARKER    a marker pointing to its beginning,
67   TOP-LEVEL a boolean, nil when the footnote is contained within
68             another one,
69   SIZE      the length of the inline definition, in characters,
70             or nil for non-inline references.
71
72 When optional ANONYMOUS is non-nil, also collect anonymous
73 references.  In such cases, LABEL is nil.
74
75 References are sorted according to a deep-reading order.
76
77 (fn &optional ANONYMOUS)
78 (defalias 'org-footnote--collect-references #[256 "\212\214~\210eb\210\211\203\202\301\302C\302C\212\303\302\304#\203\233`Sf\305=\203-\306 \307\224U\204\310u\210\311 \312!\313=\203\227\314\315\"\314\316\"\314\317\"\320=\205T\314\321\"\314\322\"Z\323\324\"\325!?F\242B\240\210\211\203\225\314\315\"\326\242\"\211\203\207\211\211AB\241\266\202\223D    \242B\240\210\266\266\210\202)\302C\302C\302\240\210\211\327\330\331\332\333                $\334\"\335\336%\240\210\337\242!\211\203\321\211@\242\302\"\210A\266\202\202\276\242\237\262\266\202\266\203*\207" [org-footnote-re "\\[fn:[-_[:word:]]+[]:]" nil re-search-forward t 93 line-beginning-position 0 -1 org-element-context org-element-type footnote-reference org-element-property :label :begin :type inline :contents-end :contents-begin org-element-lineage (footnote-definition) copy-marker assoc make-byte-code 514 "\211\204\n\3048\205=\302\302\242B\240\210\305\306\307\310\311\312\300!\313\"\314\315%\316\317@\301\242\"A!\"\211\205;\211@\303\242\320\"\210A\266\202\202(\262\207" vconcat vector [2 mapcar make-byte-code 257 "\301\300\242\"\207" vconcat vector [assoc] 4 "\n\n(fn L)" reverse assoc t] 9 "\n\n(fn REF ALLOW-NESTED)" reverse] 16 (#$ . 9034)])
79 #@349 Collect all footnote definitions in current buffer.
80
81 Return an alist where associations follow the pattern
82
83   (LABEL . DEFINITION)
84
85 with LABEL and DEFINITION being, respectively, the label and the
86 definition of the footnote, as strings.
87
88 When optional argument DELETE is non-nil, delete the definition
89 while collecting them.
90
91 (fn &optional DELETE)
92 (defalias 'org-footnote--collect-definitions #[256 "\212\214~\210eb\210\301\211\302\301\303#\203m\304u\210\305 \306\307\"\310!\311=\203h\211\235\204h\211B\262\306\312\"b\210\313\301x\210o\203?`\202B\314\315!\306\316\"b\210\313\301x\210\314\315!\317\320\"!BB\262\203f|\210\266\266\202    \266\202*\207" [org-footnote-definition-re nil re-search-forward t -1 org-element-at-point org-element-property :label org-element-type footnote-definition :begin "      \n" line-beginning-position 2 :end org-trim buffer-substring-no-properties] 11 (#$ . 10945)])
93 #@144 Find insertion point for footnote, just before next outline heading.
94 Assume insertion point is within currently accessible part of the buffer.
95 (defalias 'org-footnote--goto-local-insertion-point #[0 "\305\306 \211\307    P\310 \210,m\203 \305\311\312d\313Ze]\305#\210)\314\315x\210\315y\210n?\205.\316c\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol case-fold-search t org-get-limited-outline-regexp "^" outline-next-heading re-search-backward "^[     ]*# +Local Variables:" 3000 "     \n" nil "\n"] 5 (#$ . 11874)])
96 #@374 Return complete reference of the next footnote.
97
98 If LABEL is provided, get the next reference of that footnote.  If
99 BACKWARD is non-nil, find previous reference instead.  LIMIT is
100 the buffer position bounding the search.
101
102 Return value is a list like those provided by `org-footnote-at-reference-p'.
103 If no footnote is found, return nil.
104
105 (fn &optional LABEL BACKWARD LIMIT)
106 (defalias 'org-footnote-get-next-reference #[768 "\212\203\f\301\302\"\202 \3032<\203\304\202\305\306#\204&\307\303\310\"\210\204-\311u\210\312 \211\2038\307\303\"\210\210\202\262)\207" [org-footnote-re format "\\[fn:%s[]:]" exit re-search-backward re-search-forward t throw nil -1 org-footnote-at-reference-p] 8 (#$ . 12443)])
107 #@266 Move point to next footnote reference or definition.
108
109 LIMIT is the buffer position bounding the search.
110
111 Return value is a list like those provided by
112 `org-footnote-at-reference-p' or `org-footnote-at-definition-p'.
113 If no footnote is found, return nil.
114
115 (fn LIMIT)
116 (defalias 'org-footnote-next-reference-or-definition #[257 "\301`\3022_\303\304#\204\211b\210\305\302\301\"\210\306u\210\307 \211\262\203)\305\302\"\210\202\310 \311\312\313\314\315!\316\"\317$\216\320 )\262\203\312\225\305\302\301\312\224\206K`Sf\321=\203V\202XTE\"\266\202\207" [org-footnote-re nil exit re-search-forward t throw -1 org-footnote-at-reference-p match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-footnote-at-definition-p 93] 10 (#$ . 13172)])
117 #@321 Move point to the definition of the footnote LABEL.
118
119 LOCATION, when non-nil specifies the buffer position of the
120 definition.
121
122 Throw an error if there is no definition or if it cannot be
123 reached from current narrowed part of buffer.  Return a non-nil
124 value if point was successfully moved.
125
126 (fn LABEL &optional LOCATION)
127 (defalias 'org-footnote-goto-definition #[513 "\300!\206\f\301!A@\211\204\302\303\"\210\202(\211dV\204$\211eW\203(\302\304!\210\305 \210\211b\210\306\307\310\311!\"!\210\312\225b\210\313\314!\210\315\316!\203L\317\320\321\322!\"\210\323\207" [org-footnote-normalize-label org-footnote-get-definition user-error "Cannot find definition of footnote %s" "Definition is outside narrowed part of buffer" org-mark-ring-push looking-at format "\\[fn:%s[]:] ?" regexp-quote 0 org-show-context link-search derived-mode-p org-mode message "%s" substitute-command-keys "Edit definition and go back with `\\[org-mark-ring-goto]' or, if unique, with `\\[org-ctrl-c-ctrl-c]'." t] 9 (#$ . 13974) "sLabel: "])
128 #@87 Find the first closest (to point) reference of footnote with label LABEL.
129
130 (fn LABEL)
131 (defalias 'org-footnote-goto-previous-reference #[257 "\300 \210\301!\302\212\303\304\"\206#\303!\206#\214~\210\303\304\"\206\"\303!)\262)\211\2041\305\306\"\2029\211A@b\210\307\310!\207" [org-mark-ring-push org-footnote-normalize-label nil org-footnote-get-next-reference t error "Cannot find reference of footnote %s" org-show-context link-search] 6 (#$ . 15006) "sLabel: "])
132 #@134 Return LABEL without "fn:" prefix.
133 If LABEL is the empty string or constituted of white spaces only,
134 return nil instead.
135
136 (fn LABEL)
137 (defalias 'org-footnote-normalize-label #[257 "\300!\211\301\232\203 \302\202\303\304\"\203\305\302O\202\207" [org-trim "" nil string-prefix-p "fn:" 3] 5 (#$ . 15489)])
138 #@76 Return label, boundaries and definition of the footnote LABEL.
139
140 (fn LABEL)
141 (defalias 'org-footnote-get-definition #[257 "\300\301!!\302\303\211#\212\214~\210eb\210\3042]\305\306\307#\203[\310u\210\311 \312!\211\313>\203V\314\304\315\316\"\315\317\"\315\320\"\211\204E\321\202Q\322\323\321\324\315\325\"\"#\262F\"\210\266\202\3060*\207" [regexp-quote org-footnote-normalize-label format "^\\[fn:%s\\]\\|.\\[fn:%s:" found re-search-forward nil t -1 org-element-context org-element-type (footnote-definition footnote-reference) throw org-element-property :begin :end :contents-begin "" replace-regexp-in-string "[     \n]*\\'" buffer-substring-no-properties :contents-end] 19 (#$ . 15808)])
142 #@103 List all defined footnote labels used throughout the buffer.
143 This function ignores narrowing, if any.
144 (defalias 'org-footnote-all-labels #[0 "\212\214~\210eb\210\301\302\301\303#\2039\304u\210\305 \306!\307>\2035\310\311\"\211\2034\211\235\203/\2022\211B\262\210\210\202\211\262*\207" [org-footnote-re nil re-search-forward t -1 org-element-context org-element-type (footnote-definition footnote-reference) org-element-property :label] 5 (#$ . 16523)])
145 #@196 Return a new unique footnote label.
146
147 The function returns the first numeric label currently unused.
148
149 Optional argument CURRENT is the list of labels active in the
150 buffer.
151
152 (fn &optional CURRENT)
153 (defalias 'org-footnote-unique-label #[256 "\211\206\300 \301\302!\235\203\211T\262\202\302!\262\207" [org-footnote-all-labels 1 number-to-string] 5 (#$ . 16998)])
154 #@222 Insert a new footnote.
155 This command prompts for a label.  If this is a label referencing an
156 existing label, only insert the label.  If the footnote label is empty
157 or new, let the user edit the definition of the footnote.
158 (defalias 'org-footnote-new #[0 "\303 \204    \304\305!\210\306 \307=\203\310\311\307    !\"\202<\312\313!\314=\203(\211\2029\315\316\317\320\"\321\211\322=\2058%\262!\211\204H\323c\210\324u\202\224\211\235\203Z\325\326\261\210\327\330!\202\224\n\203l\325\331\261\210\324u\210\332 \202\224\325\326\261\210\333!\3341\201\335\"0\202\205\210\202\215\203\215\332 \202\222\332 \210\336 \262\207" [org-footnote-auto-label most-positive-fixnum org-footnote-define-inline org-footnote--allow-reference-p user-error "Cannot insert a footnote here" org-footnote-all-labels random format "%x" org-footnote-normalize-label org-footnote-unique-label t completing-read "Label (leave empty for anonymous): " mapcar list nil confirm "[fn::]" -1 "[fn:" "]" message "New reference to existing note" ":]" org-footnote-auto-adjust-maybe org-footnote-create-definition (error) org-footnote-goto-definition org-edit-footnote-reference] 10 (#$ . 17375) nil])
159 #@160 Start the definition of a footnote with label LABEL.
160 Return buffer position at the beginning of the definition.  This
161 function doesn't move point.
162
163 (fn LABEL)
164 (defalias 'org-footnote-create-definition #[257 "\302!\303\212\214~\210    \204\304 \210\2029\212eb\210\305\306\307    !\310Q\303\311#)\2036\312\225b\210\303y\210n\2049\313c\210\2029\314 \210\315 \312U\203C\313c\210\316\317\261\210\320\312!+\207" [electric-indent-mode org-footnote-section org-footnote-normalize-label nil org-footnote--goto-local-insertion-point re-search-forward "^\\*+[     ]+" regexp-quote "[     ]*$" t 0 "\n" org-footnote--clear-footnote-section org-back-over-empty-lines "[fn:" "] \n" line-beginning-position] 6 (#$ . 18570)])
165 #@95 Delete every reference to footnote LABEL.
166 Return the number of footnotes removed.
167
168 (fn LABEL)
169 (defalias 'org-footnote-delete-references #[257 "\212eb\210\300\301\302!\211\262\203#A@b\210A@\3038|\210\211T\262\202\262)\207" [nil 0 org-footnote-get-next-reference 2] 6 (#$ . 19285)])
170 #@100 Delete every definition of the footnote LABEL.
171 Return the number of footnotes removed.
172
173 (fn LABEL)
174 (defalias 'org-footnote-delete-definitions #[257 "\212eb\210\300\301\302!\"\303\304\305\306#\203r\307 \211:\203n\211A\211:\203m\211@A\211:\203k\211@A\211:\203i\211A\211\204h\211b\210\310\305x\210o\203J`\202M\311\312!b\210\310\305x\210o\203\\`\202_\311\312!|\210    T\262\n\266\210\266\266\210\210\202 \262)\207" [format "^\\[fn:%s\\]" regexp-quote 0 re-search-forward nil t org-footnote-at-definition-p "      \n" line-beginning-position 2] 15 (#$ . 19583)])
175 #@219 Delete the footnote at point.
176 This will remove the definition (even multiple definitions if they exist)
177 and all references of a footnote label.
178
179 If LABEL is non-nil, delete that footnote instead.
180
181 (fn &optional LABEL)
182 (defalias 'org-footnote-delete #[256 "\3002R\301\211\302\206;\303 \211\262\203+\211@\206;\211A@\3048|\210\305\306!\210\307\300\310\"\202;\311 \211\262\2038\211@\202;\312\313!\314!\262\315!\262\316 \210\305\317$\266\2040\207" [done 0 nil org-footnote-at-reference-p 2 message "Anonymous footnote removed" throw t org-footnote-at-definition-p error "Don't know which footnote to remove" org-footnote-delete-references org-footnote-delete-definitions org-footnote-auto-adjust-maybe "%d definition(s) of and %d reference(s) of footnote %s removed"] 10 (#$ . 20165)])
183 #@59 Order numbered footnotes into a sequence in the document.
184 (defalias 'org-footnote-renumber-fn:N #[0 "\300 \301\302\303\304\305!\306\"\307$\216\302C\310\311\"\312\301\313\314\304\305!\315\"\307\316%\317\312\320\"!\"\212\214~\210\211\203I\211@\211A@b\210\321\322@\"A!\210A\266\202\202.\210eb\210\323\324\325\326#\205p\327\322\330\331!\"A\206g\332\211\242T\240!\325\211\211\331%\210\202M*\266\203)\207" [org-footnote--collect-references make-byte-code 0 "\300\211\205\211@\211A@\301\211\223\210A\266\202\202\207" vconcat vector [nil] 5 cl-remove-if-not #[257 "\301@\302\303\304#)\207" [inhibit-changing-match-data "\\`[0-9]+\\'" nil t string-match] 8 "\n\n(fn R)"] mapcar 257 "\211\301\300\211\242T\240!B\207" [number-to-string] "\n\n(fn L)" delete-dups car org-footnote--set-label assoc re-search-forward "^\\[fn:\\([0-9]+\\)\\]" nil t replace-match match-string 1 number-to-string] 10 (#$ . 20971) nil])
185 #@296 Rearrange footnote definitions in the current buffer.
186 Sort footnote definitions so they match order of footnote
187 references.  Also relocate definitions at the end of their
188 relative section or within a single footnote section, according
189 to `org-footnote-section'.  Inline definitions are ignored.
190 (defalias 'org-footnote-sort #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311\312!\212\214~\210\313 \210\314C\211\203i\211@\211@\3158?\3168\242\235\204`\211\204`\242B\240\210\204N\204NA@b\210\317 \210\320\321    \"A\206\\\322\323\"\320\261\210\266A\266\202\202\210\324\302\325\326\305\306!\327\"\316\330%\"\211\211\205\217\211@\320A\320\261\210A\266\202\202{\262\262\262*\262)\207" [org-footnote-section org-footnote--collect-references make-byte-code 0 "\300\211\205\211@\211A@\301\211\223\210A\266\202\202\207" vconcat vector [nil] 5 org-footnote--collect-definitions delete org-footnote--clear-footnote-section nil 2 3 org-footnote--goto-local-insertion-point "\n" assoc format "[fn:%s] DEFINITION NOT FOUND." cl-remove-if 257 "\211@\300\242\235\207" [] "\n\n(fn D)"] 12 (#$ . 21907)])
191 #@52 Turn every footnote in buffer into a numbered one.
192 (defalias 'org-footnote-normalize #[0 "\303\304!\305\306\307\310\311!\312\"\313$\216\306\314\211\212\214~\210\211\203\232\211@\211@\211?\211\2030T\211\262    \240\202L\315\"A\206L\316T\211\262    !BB\262\211\262A@b\210\317\203\\\316!\202]!\210\3208\211\203\221\321\322\"\323\324`\325`\326#\"\326\314O!P\203\201\202\202BB\262\203\220\327 \210\210\266A\266\202\202\210\211\330\331!\244\314C\332 \210\211\203\211@\211@\211\250A@    \204\303\3338\203\303\211b\210\334 \210\242\235\204    \242B\240\210\315\"A\203\341\202\347\315 \"A\335\204\363\321\336\"\202\203\373\202\337\340\314\211\326&\335\261\266\266A\266\202\202\246\210\341\305\342\343\310\311!\344\"\320\345%\"\211\211\205D\211@\335\337\n\321\346\fT\211\262\"A#\335\261\210A\266\202\202$\262\262\266\202*\266\203)\207" [org-footnote-fill-after-inline-note-extraction org-footnote-section org-footnote-definition-re org-footnote--collect-references anonymous make-byte-code 0 "\300\211\205\211@\211A@\301\211\223\210A\266\202\202\207" vconcat vector [nil] 5 nil assoc number-to-string org-footnote--set-label 3 format "[fn:%s] " org-trim delete-and-extract-region + 1 org-fill-paragraph org-footnote--collect-definitions delete org-footnote--clear-footnote-section 2 org-footnote--goto-local-insertion-point "\n" "[fn:%s] DEFINITION NOT FOUND." replace-regexp-in-string "\\`\\[fn:\\(.*?\\)\\]" cl-remove-if 257 "\211@\300\242\235\207" [] "\n\n(fn D)" "[fn:%d]"] 21 (#$ . 23041) nil])
193 #@60 Renumber and/or sort footnotes according to user settings.
194 (defalias 'org-footnote-auto-adjust-maybe #[0 "\301>\203    \302 \210\303>\2050\304 @\305 \210\211\205.eb\210\306\307\310\311!\"\312\313#\205.\314c\210\315 \262\207" [org-footnote-auto-adjust (t renumber) org-footnote-renumber-fn:N (t sort) org-footnote-at-definition-p org-footnote-sort re-search-forward format "^\\[fn:%s\\]" regexp-quote nil t " " just-one-space] 6 (#$ . 24630)])
195 #@398 Do the right thing for footnotes.
196
197 When at a footnote reference, jump to the definition.
198
199 When at a definition, jump to the references if they exist, offer
200 to create them otherwise.
201
202 When neither at definition or reference, create a new footnote,
203 interactively if possible.
204
205 With prefix arg SPECIAL, or when no footnote can be created,
206 offer additional commands in a menu.
207
208 (fn &optional SPECIAL)
209 (defalias 'org-footnote-action #[256 "\211?\205\300 \301!\203%`\212\302\303\"b\210\304\305x\210`)V\203%\306 \202\303\211\307=\203u\302\310\"\211\204;\302\311\"b\202p\312!A@\211\205H\313\"\262\206p\314\315\316\"!\205p\317!\3201e\313\"0\202i\210\202l\206n\321 \262\262\202\303\211\322=\203\204\323\302\310\"!\202\303\204\215\324 \204\301\325\326!\210\327 \211\330\267\202\265\331 \202\274\332 \202\274\332 \210\331 \202\274\333 \202\274\334 \202\274\211\335\336\"\262\262\202\303\306 \207" [org-element-context org-element-type org-element-property :end "     " nil org-footnote-new footnote-reference :label :contents-begin org-footnote-get-definition org-footnote-goto-definition yes-or-no-p format "No definition for %s.  Create one? " org-footnote-create-definition (error) org-edit-footnote-reference footnote-definition org-footnote-goto-previous-reference org-footnote--allow-reference-p message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s | [n]ormalize | [d]elete" read-char-exclusive #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 153 114 158 83 163 110 171 100 176)) org-footnote-sort org-footnote-renumber-fn:N org-footnote-normalize org-footnote-delete error "No such footnote command %c"] 8 (#$ . 25085) "P"])
210 (provide 'org-footnote)