Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
org /
Delete
Unzip
Name
Size
Permission
Date
Action
ob-C.elc
5.8
KB
-rw-r--r--
2023-06-07 04:05
ob-R.elc
12.73
KB
-rw-r--r--
2023-06-07 04:05
ob-asymptote.elc
3.74
KB
-rw-r--r--
2023-06-07 04:05
ob-awk.elc
3.67
KB
-rw-r--r--
2023-06-07 04:05
ob-calc.elc
2.33
KB
-rw-r--r--
2023-06-07 04:05
ob-clojure.elc
2.28
KB
-rw-r--r--
2023-06-07 04:05
ob-comint.elc
5.39
KB
-rw-r--r--
2023-06-07 04:05
ob-css.elc
1015
B
-rw-r--r--
2023-06-07 04:05
ob-ditaa.elc
2.24
KB
-rw-r--r--
2023-06-07 04:05
ob-dot.elc
2.26
KB
-rw-r--r--
2023-06-07 04:05
ob-emacs-lisp.elc
2
KB
-rw-r--r--
2023-06-07 04:05
ob-eval.elc
6.81
KB
-rw-r--r--
2023-06-07 04:05
ob-exp.elc
11.14
KB
-rw-r--r--
2023-06-07 04:05
ob-fortran.elc
5.01
KB
-rw-r--r--
2023-06-07 04:05
ob-gnuplot.elc
7.35
KB
-rw-r--r--
2023-06-07 04:05
ob-haskell.elc
8.04
KB
-rw-r--r--
2023-06-07 04:05
ob-io.elc
3.54
KB
-rw-r--r--
2023-06-07 04:05
ob-java.elc
2.21
KB
-rw-r--r--
2023-06-07 04:05
ob-js.elc
5.71
KB
-rw-r--r--
2023-06-07 04:05
ob-keys.elc
2.9
KB
-rw-r--r--
2023-06-07 04:05
ob-latex.elc
5.73
KB
-rw-r--r--
2023-06-07 04:05
ob-ledger.elc
2.01
KB
-rw-r--r--
2023-06-07 04:05
ob-lilypond.elc
13.27
KB
-rw-r--r--
2023-06-07 04:05
ob-lisp.elc
2.75
KB
-rw-r--r--
2023-06-07 04:05
ob-lob.elc
5.11
KB
-rw-r--r--
2023-06-07 04:05
ob-matlab.elc
644
B
-rw-r--r--
2023-06-07 04:05
ob-maxima.elc
3.78
KB
-rw-r--r--
2023-06-07 04:05
ob-mscgen.elc
1.54
KB
-rw-r--r--
2023-06-07 04:05
ob-ocaml.elc
4.9
KB
-rw-r--r--
2023-06-07 04:05
ob-octave.elc
10.16
KB
-rw-r--r--
2023-06-07 04:05
ob-org.elc
1.81
KB
-rw-r--r--
2023-06-07 04:05
ob-perl.elc
3.35
KB
-rw-r--r--
2023-06-07 04:05
ob-picolisp.elc
4.65
KB
-rw-r--r--
2023-06-07 04:05
ob-plantuml.elc
2.41
KB
-rw-r--r--
2023-06-07 04:05
ob-python.elc
10.22
KB
-rw-r--r--
2023-06-07 04:05
ob-ref.elc
6.52
KB
-rw-r--r--
2023-06-07 04:05
ob-ruby.elc
8.15
KB
-rw-r--r--
2023-06-07 04:05
ob-sass.elc
1.87
KB
-rw-r--r--
2023-06-07 04:05
ob-scala.elc
3.72
KB
-rw-r--r--
2023-06-07 04:05
ob-scheme.elc
4.81
KB
-rw-r--r--
2023-06-07 04:05
ob-screen.elc
4.45
KB
-rw-r--r--
2023-06-07 04:05
ob-sh.elc
8.2
KB
-rw-r--r--
2023-06-07 04:05
ob-shen.elc
1.95
KB
-rw-r--r--
2023-06-07 04:05
ob-sql.elc
4.43
KB
-rw-r--r--
2023-06-07 04:05
ob-sqlite.elc
4.53
KB
-rw-r--r--
2023-06-07 04:05
ob-table.elc
3.06
KB
-rw-r--r--
2023-06-07 04:05
ob-tangle.elc
15.92
KB
-rw-r--r--
2023-06-07 04:05
ob.elc
83.02
KB
-rw-r--r--
2023-06-07 04:05
org-agenda.elc
332.2
KB
-rw-r--r--
2023-06-07 04:05
org-archive.elc
15.6
KB
-rw-r--r--
2023-06-07 04:05
org-ascii.elc
20.83
KB
-rw-r--r--
2023-06-07 04:05
org-attach.elc
15.96
KB
-rw-r--r--
2023-06-07 04:05
org-bbdb.elc
9.43
KB
-rw-r--r--
2023-06-07 04:05
org-beamer.elc
22.08
KB
-rw-r--r--
2023-06-07 04:06
org-bibtex.elc
22.8
KB
-rw-r--r--
2023-06-07 04:06
org-capture.elc
50.89
KB
-rw-r--r--
2023-06-07 04:06
org-clock.elc
82.74
KB
-rw-r--r--
2023-06-07 04:06
org-colview.elc
48.44
KB
-rw-r--r--
2023-06-07 04:06
org-compat.elc
13.95
KB
-rw-r--r--
2023-06-07 04:06
org-crypt.elc
6.28
KB
-rw-r--r--
2023-06-07 04:06
org-ctags.elc
12.31
KB
-rw-r--r--
2023-06-07 04:06
org-datetree.elc
5.63
KB
-rw-r--r--
2023-06-07 04:06
org-docbook.elc
37.55
KB
-rw-r--r--
2023-06-07 04:06
org-docview.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-element.elc
112.74
KB
-rw-r--r--
2023-06-07 04:06
org-entities.elc
24.46
KB
-rw-r--r--
2023-06-07 04:06
org-eshell.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-exp-blocks.elc
11.32
KB
-rw-r--r--
2023-06-07 04:06
org-exp.elc
101.9
KB
-rw-r--r--
2023-06-07 04:06
org-faces.elc
27.45
KB
-rw-r--r--
2023-06-07 04:06
org-feed.elc
18.7
KB
-rw-r--r--
2023-06-07 04:06
org-footnote.elc
23.09
KB
-rw-r--r--
2023-06-07 04:06
org-freemind.elc
27.16
KB
-rw-r--r--
2023-06-07 04:07
org-gnus.elc
9.12
KB
-rw-r--r--
2023-06-07 04:07
org-habit.elc
11.52
KB
-rw-r--r--
2023-06-07 04:07
org-html.elc
78.9
KB
-rw-r--r--
2023-06-07 04:07
org-icalendar.elc
22.37
KB
-rw-r--r--
2023-06-07 04:07
org-id.elc
19.69
KB
-rw-r--r--
2023-06-07 04:07
org-indent.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-info.elc
1.61
KB
-rw-r--r--
2023-06-07 04:07
org-inlinetask.elc
12.14
KB
-rw-r--r--
2023-06-07 04:07
org-install.el
452
B
-rw-r--r--
2013-02-07 02:17
org-irc.elc
5.82
KB
-rw-r--r--
2023-06-07 04:07
org-jsinfo.elc
7.39
KB
-rw-r--r--
2023-06-07 04:07
org-latex.elc
82.79
KB
-rw-r--r--
2023-06-07 04:07
org-list.elc
83.65
KB
-rw-r--r--
2023-06-07 04:07
org-loaddefs.el
77.97
KB
-rw-r--r--
2013-03-08 03:16
org-lparse.elc
64.82
KB
-rw-r--r--
2023-06-07 04:07
org-mac-message.elc
6.3
KB
-rw-r--r--
2023-06-07 04:07
org-macs.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-mew.elc
3.1
KB
-rw-r--r--
2023-06-07 04:07
org-mhe.elc
5.49
KB
-rw-r--r--
2023-06-07 04:07
org-mks.elc
3.52
KB
-rw-r--r--
2023-06-07 04:08
org-mobile.elc
35.47
KB
-rw-r--r--
2023-06-07 04:08
org-mouse.elc
31.66
KB
-rw-r--r--
2023-06-07 04:08
org-odt.elc
94.04
KB
-rw-r--r--
2023-06-07 04:08
org-pcomplete.elc
10.83
KB
-rw-r--r--
2023-06-07 04:08
org-plot.elc
9.96
KB
-rw-r--r--
2023-06-07 04:08
org-protocol.elc
18.56
KB
-rw-r--r--
2023-06-07 04:08
org-publish.elc
39.08
KB
-rw-r--r--
2023-06-07 04:08
org-remember.elc
36.16
KB
-rw-r--r--
2023-06-07 04:08
org-rmail.elc
2.84
KB
-rw-r--r--
2023-06-07 04:08
org-special-blocks.elc
2.76
KB
-rw-r--r--
2023-06-07 04:08
org-src.elc
32.03
KB
-rw-r--r--
2023-06-07 04:08
org-table.elc
161.1
KB
-rw-r--r--
2023-06-07 04:08
org-taskjuggler.elc
17.22
KB
-rw-r--r--
2023-06-07 04:08
org-timer.elc
12.76
KB
-rw-r--r--
2023-06-07 04:08
org-version.el
718
B
-rw-r--r--
2013-02-28 01:01
org-vm.elc
4.16
KB
-rw-r--r--
2023-06-07 04:08
org-w3m.elc
4.29
KB
-rw-r--r--
2023-06-07 04:08
org-wl.elc
7.07
KB
-rw-r--r--
2023-06-07 04:08
org-xoxo.elc
2.49
KB
-rw-r--r--
2023-06-07 04:09
org.elc
732.44
KB
-rw-r--r--
2023-06-07 04:09
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:06:57 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-footnote.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require org-macs org-compat] 2) #@44 Regular expression for matching footnotes. (defconst org-footnote-re "\\[\\(?:fn:\\([-_[:word:]]+\\)?:\\|\\(?:\\([0-9]+\\)\\]\\)\\|\\(fn:[-_[:word:]]+\\)\\)" (#$ . 628)) #@59 Regular expression matching the definition of a footnote. (defconst org-footnote-definition-re "^\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]" (#$ . 804)) #@50 Names of blocks where footnotes are not allowed. (defconst org-footnote-forbidden-blocks '("ascii" "beamer" "comment" "docbook" "example" "html" "latex" "odt" "src") (#$ . 958)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\210\310\322\302\323\306\301\314\324&\210\310\325\326\327\306\301\314\330&\210\310\331\302\332\306\301\314\333&\210\310\334\302\335\306\301\314\324&\207" [custom-declare-group org-footnote nil "Footnotes in Org-mode." :tag "Org Footnote" :group org custom-declare-variable org-footnote-section "Footnotes" "Outline heading containing footnote definitions before export.\nThis can be nil, to place footnotes locally at the end of the current\noutline node. If can also be the name of a special outline heading\nunder which footnotes should be put.\nThis variable defines the place where Org puts the definition\nautomatically, i.e. when creating the footnote, and when sorting the notes.\nHowever, by hand you may place definitions *anywhere*.\nIf this is a string, during export, all subtrees starting with this\nheading will be removed after extracting footnote definitions." :type (choice (string :tag "Collect footnotes under heading") (const :tag "Define footnotes locally" nil)) org-footnote-tag-for-non-org-mode-files "Footnotes:" "Tag marking the beginning of footnote section.\nThe Org footnote engine can be used in arbitrary text files as well\nas in Org-mode. Outside Org mode, new footnotes are always placed at\nthe end of the file. When you normalize the notes, any line containing\nonly this tag will be removed, a new one will be inserted at the end\nof the file, followed by the collected and normalized footnotes.\n\nIf you don't want any tag in such buffers, set this variable to nil." (choice (string :tag "Collect footnotes under tag") (const :tag "Don't use a tag" nil)) org-footnote-define-inline "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 t "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], ...\nconfirm like t, but let the user edit the created value. In particular,\n the label can be removed from the minibuffer, to create\n an anonymous footnote.\nrandom Automatically generate a unique, random label.\nplain Automatically create plain number labels like [1]" (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) (const :tag "Create automatic [N]" plain)) org-footnote-auto-adjust "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 "Renumber" renumber) (const :tag "Sort" sort) (const :tag "Renumber and Sort" t)) org-footnote-fill-after-inline-note-extraction "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."] 8) #@52 Is point in a context where footnotes are allowed? (defalias 'org-footnote-in-valid-context-p #[nil "\303 \304\216\305 \206D \306 \206D \307 \206D \310`\311\"\206D \312 \206D \212\313 \210\314\315!)\206D \316\317!\203A \212\313 \210\314 !)\206D \320 \206D \321\n!*?\207" [save-match-data-internal message-cite-prefix-regexp org-footnote-forbidden-blocks match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-in-commented-line org-in-indented-comment-line org-inside-LaTeX-fragment-p get-text-property org-protected org-in-verbatim-emphasis beginning-of-line looking-at "[ ]*:[ ]+" derived-mode-p message-mode message-point-in-header-p org-in-block-p] 3 (#$ . 4758)]) #@150 Is the cursor at a footnote reference? If so, return a list containing its label, beginning and ending positions, and the definition, when inlined. (defalias 'org-footnote-at-reference-p #[nil "\306 \205\243 \307!\204 \310!\204 \212\311\312\313#)\205\243 \314\224\315 U?\205\243 \314\224\316\312\317 \n\"*\206P \320\312\317 \n\"*\206P \321\322!\205P \323\322\312\317 \n\"*P \312\324\325\217\211 \205\242 ` W\205\242 \212 b\210\326 \327\216\310 !*\211 \205z ` AW*?\205\242 \330 \203\214 \331 S\332\"\205\242 \f \f\203\231 \321\322!\205\241 \333\334\314\225 S\"!F+\207" [org-footnote-re beg string num label end org-footnote-in-valid-context-p looking-at org-in-regexp re-search-backward nil t 0 point-at-bol 2 match-string-no-properties 3 match-string 1 "fn:" (scan-sexps beg 1) ((error)) match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-inside-latex-macro-p get-text-property org-protected org-trim buffer-substring-no-properties save-match-data-internal org-bracket-link-regexp linkp] 8 (#$ . 5482)]) #@379 Is point within a footnote definition? This matches only pure definitions like [1] or [fn:name] at the beginning of a line. It does not match references like [fn:name:definition], where the footnote text is included and defined locally. The return value will be nil if not at a footnote definition, and a list with label, start, end and definition of the footnote otherwise. (defalias 'org-footnote-at-definition-p #[nil "\212\306 \210\307 )\205p \212\310\210\212\311\312P\310\313#)\311\n \313#\205o \314\310 \315\f \"*\316\224\316\225\317\320!\205= \212db\210\311 \310\313#) \310\210\321\322\n\322\323\260\324#\203V \316\224\202W `) \211 \325\326\"!F,*\207" [org-outline-regexp-bol lim org-footnote-definition-re string num message-signature-separator beginning-of-line org-footnote-in-valid-context-p nil re-search-backward "\\|^[ ]*$" t 1 match-string-no-properties 0 derived-mode-p message-mode re-search-forward "\\|" "^[ ]*$" move org-trim buffer-substring-no-properties bound end beg-def beg label] 10 (#$ . 6562)]) #@337 Return complete reference of the next footnote. If LABEL is provided, get the next reference of that footnote. If BACKWARD is non-nil, find previous reference instead. LIMIT is the buffer position bounding the search. Return value is a list like those provided by `org-footnote-at-reference-p'. If no footnote is found, return nil. (defalias 'org-footnote-get-next-reference #[(&optional label backward limit) "\212\203\f \303\304\"\202 \305\306\215*\207" [label org-footnote-re label-fmt format "\\[%s[]:]" exit (byte-code "\203 \304\202 \305 \n\306#\204 \307\310\311\"\210\204 \312u\210\313 \211\203( \307\310 \"\210)\202 " [backward label-fmt limit ref re-search-backward re-search-forward t throw exit nil -1 org-footnote-at-reference-p] 5)] 3 (#$ . 7621)]) #@254 Move point to next footnote reference or definition. LIMIT is the buffer position bounding the search. Return value is a list like those provided by `org-footnote-at-reference-p' or `org-footnote-at-definition-p'. If no footnote is found, return nil. (defalias 'org-footnote-next-reference-or-definition #[(limit) "\302`\303\304\215*\207" [ref origin nil exit (byte-code "\306 \307#\204 \nb\210\310\311\312\"\210\313u\210\314 \211\203\" \310\311 \"\210\202 \315 \316\216\317 *\203 \320\225 \310\311\312\320\224 Sf\321=\203A \202C TE\"\210)\202 " [org-footnote-re limit origin ref save-match-data-internal end re-search-forward t throw exit nil -1 org-footnote-at-reference-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-footnote-at-definition-p 0 93] 6)] 2 (#$ . 8407)]) #@64 Return label, boundaries and definition of the footnote LABEL. (defalias 'org-footnote-get-definition #[(label) "\304\305!!\306\307\211#\310\212\214\311 \310\312#\2044 eb\203% \311 \310\312#\2044 ~\210eb\205H \311 \310\312#\205H \313 \314 8\203A \206G \315 \206G \310)-\207" [label re pos refp regexp-quote org-footnote-normalize-label format "^\\[%s\\]\\|.\\[%s:" nil re-search-forward t org-footnote-at-reference-p 3 org-footnote-at-definition-p] 4 (#$ . 9253)]) #@110 Move point to the definition of the footnote LABEL. Return a non-nil value when a definition has been found. (defalias 'org-footnote-goto-definition #[(label) "\302 \210\303!\211\204 \304\305\"\2022 A@b\210\306\307\310\211#!\210\311\225b\210\312\313!\210\314\315!\2031 \316\317!\210\320)\207" [label def org-mark-ring-push org-footnote-get-definition error "Cannot find definition of footnote %s" looking-at format "\\[%s\\]\\|\\[%s:" 0 org-show-context link-search derived-mode-p org-mode message "Edit definition and go back with `C-c &' or, if unique, with `C-c C-c'." t] 6 (#$ . 9732) "sLabel: "]) #@75 Find the first closest (to point) reference of footnote with label LABEL. (defalias 'org-footnote-goto-previous-reference #[(label) "\302 \210\303!\304\212\305\306\"\206% \305!\206% \214~\210\305\306\"\206$ \305!)) \2042 \307\310\"\202: A@b\210\311\312!*\207" [label ref 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] 3 (#$ . 10346) "sLabel: "]) #@40 Return LABEL as an appropriate string. (defalias 'org-footnote-normalize-label #[(label) "\247\203 \301!\207\302\232\203 \303\207\304\305\"\204 \306P\207\207" [label number-to-string "" nil string-match "^[0-9]+$\\|^fn:" "fn:"] 3 (#$ . 10822)]) #@214 Return list with all defined foot labels used in the buffer. If WITH-DEFS is non-nil, also associate the definition to each label. The function will then return an alist whose key is label and value definition. (defalias 'org-footnote-all-labels #[(&optional with-defs) "\306\307\212\214~\210eb\210\306\310 \306\311#\203# \312 \211\203 \n!\210\202 )eb\210\306 \313 \211\203Q \314\f8b\210\f@\203) \203B \315\202C \316\f@\"\204) \f!\210\202) +*\207" [rtn push-to-rtn def org-footnote-definition-re ref with-defs nil #[(el) "@\n\203 \3048B\202 B\211)\207" [el lbl with-defs rtn 3] 3] re-search-forward t org-footnote-at-definition-p org-footnote-get-next-reference 2 assoc member] 4 (#$ . 11083)]) #@188 Return a new unique footnote label. The function returns the first "fn:N" or "N" label that is currently not used. Optional argument CURRENT is the list of labels active in the buffer. (defalias 'org-footnote-unique-label #[(&optional current) "\204 \304 \305=\203 \306\202 \307\310\311 \n\"\235\203$ \nT\202 \311 \n\"*\207" [current org-footnote-auto-label cnt fmt org-footnote-all-labels plain "%d" "fn:%d" 1 format] 3 (#$ . 11808)]) #@222 Insert a new footnote. This command prompts for a label. If this is a label referencing an existing label, only insert the label. If the footnote label is empty or new, let the user edit the definition of the footnote. (defalias 'org-footnote-new #[nil "\305 \204 \306\307!\210\310\232?\205 \311 \310\232?\205 \312 !\313\314\235\203) \n\202K \310\232\203; \315\316!\210\317 \320\321O\202K \322\323\324\325 \"\326\211\327=\205J \n%!n\203W \306\330!\202\223 \204c \331c\210\332u\202\223 \235\203u \333 \334\261\210\335\336!\202\223 \f\203\207 \333 \337\261\210\332u\210\340 \202\223 \333 \334\261\210\341 !\210\340 +\207" [org-footnote-auto-label lbls propose label org-footnote-define-inline org-footnote-in-valid-context-p error "Cannot insert a footnote here" random org-footnote-all-labels org-footnote-unique-label org-footnote-normalize-label (t plain) require org-id org-id-uuid 0 8 org-icompleting-read "Label (leave empty for anonymous): " mapcar list nil confirm "Cannot create a footnote reference at left margin" "[fn:: ]" -1 "[" "]" message "New reference to existing note" ": ]" org-footnote-auto-adjust-maybe org-footnote-create-definition] 8 (#$ . 12264) nil]) #@54 Start the definition of a footnote with label LABEL. (defalias 'org-footnote-create-definition #[(label) "\306!\307\310\311!\203\\ \n\203R eb\210\312\n\313Q\314 \307\315#\204Q ~\210\314 \307\315#\204Q db\210\316\307x\210n\2048 \317 \210\320\f\236A\203K \321\212\322 )!\203K \323c\210\324\n\323\261\210)\325 \210\326\327!\210\202\331 \205f \330\331 !\313Q\310\332!\203\206 db\203\206 \333(\307\315#\203\206 \334 \210\335\336!\210\337 \202\210 \340 ) *\341)\315\"\210)b\210*\203\276 \333*\307\315#\204\276 \316\307x\210\333+\307\315#\204\250 n\204\271 \317\336!\210 \342\261\210)b\210\316\307x\210`)|\210n\204\322 \317 \210)\307\211\223\210*\321\322 !\203\343 \317 \210\343\344\261\210\345u\210\310\311!\205\365 \346\347!*\207" [label electric-indent-mode org-footnote-section re org-blank-before-new-entry org-footnote-tag-for-non-org-mode-files org-footnote-normalize-label nil derived-mode-p org-mode "^\\*+[ ]+" "[ ]*$" re-search-forward t " \n" newline heading zerop org-back-over-empty-lines "\n" "* " org-footnote-goto-local-insertion-point org-show-context link-search "^" regexp-quote message-mode re-search-backward beginning-of-line open-line 2 point-marker point-max-marker set-marker-insertion-type "\n\n" "[" "] \n" -1 message "Edit definition and go back with `C-c &' or, if unique, with `C-c C-c'." message-signature-separator max tag org-footnote-definition-re] 5 (#$ . 13464) "sLabel: "]) #@326 Do the right thing for footnotes. When at a footnote reference, jump to the definition. When at a definition, jump to the references if they exist, offer to create them otherwise. When neither at definition or reference, create a new footnote, interactively. With prefix arg SPECIAL, offer additional commands in a menu. (defalias 'org-footnote-action #[(&optional special) "\303\211\n\203R \304\305!\210\306 \211\307=\203 \310\311!\202\220 \312=\203& \313 \202\220 \314=\2035 \313 \210\310\311!\202\220 \315=\203@ \310 \202\220 \316=\203K \317 \202\220 \320\321\"\202\220 \322 \211\203\200 @\204h A@b\210\323u\202\220 \303\324\325\217\206\220 \326\327\330 @\"!\205\220 \331 @!\202\220 \332 \211\203\216 \333 @!\202\220 \334 *\207" [c tmp special nil message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s |->[n]umeric | [d]elete" read-char-exclusive 115 org-footnote-normalize sort 114 org-footnote-renumber-fn:N 83 110 100 org-footnote-delete error "No such footnote command %c" org-footnote-at-reference-p 5 (byte-code "\301@!\207" [tmp org-footnote-goto-definition] 2) ((error)) yes-or-no-p format "No definition for %s. Create one? " org-footnote-create-definition org-footnote-at-definition-p org-footnote-goto-previous-reference org-footnote-new] 5 (#$ . 14899) "P"]) #@31 See `org-footnote-normalize'. (defvar org-footnote-insert-pos-for-preprocessor 'point-max (#$ . 16205)) #@1038 Collect the footnotes in various formats and normalize them. This finds the different sorts of footnotes allowed in Org, and normalizes them to the usual [N] format that is understood by the Org-mode exporters. When SORT-ONLY is set, only sort the footnote definitions into the referenced sequence. If Org is amidst an export process, EXPORT-PROPS will hold the export properties of the buffer. When EXPORT-PROPS is non-nil, the default action is to insert normalized footnotes towards the end of the pre-processing buffer. Some exporters (docbook, odt...) expect footnote definitions to be available before any references to them. Such exporters can let bind `org-footnote-insert-pos-for-preprocessor' to symbol `point-min' to achieve the desired behaviour. Additional note on `org-footnote-insert-pos-for-preprocessor': 1. This variable has not effect when FOR-PREPROCESSOR is nil. 2. This variable (potentially) obviates the need for extra scan of pre-processor buffer as witnessed in `org-export-docbook-get-footnotes'. (defalias 'org-footnote-normalize #[(&optional sort-only export-props) "\306\300!\205\f \205\f S\211\205! \n\203 \205! \307_S\202! \310 \203. \311\312 \"\202/ \313P \2057 = > \203M >\203M \314\315\316\317>\"\"\202N \320 ?\321\211 @ A\212eb\210\322 \211A\203+A@ BAA@ CB\205x \323B>\"\211 DA@\206\206 ?T\211? E\324A8;\206\224 \324D8 FG\203\244 \307A8b\210\202\327 AA@\307A8|\210AA@b\210\311\325E\" H \203\305 \326H\327\"\210Hc\210)F\203\327 I\203\327 \330 \210D\204'\324A8\206\367 \203\361 \323BJ\"A\206\367 \324\331B!8 KBE \203K\203\332 \333\" L\314\334KL#)\202KF\335C!\257>B>)-\202Z M\203c\336\337!\203ceb\210\340\341\342M!\343Q\321\344#\203O\320\224\345\344\211\"|\210db\210\346\321x\210\321y\210n\204\304\347 \210\202\304\336\337!\203~ \203\304db\210\346\321x\210\321y\210`d|\210\202\304N\203\247\350\342N!\343Q Oeb\210\340O\321\344#\203\246\351\352!\210`\321y\210`|\210\202\217)\336\353!\203\301db\203\301\354P\321\344#\203\301\355 \210\202\304db\210\335 \203\324Q\356=\203\324e\202\325`!@\357\321\316\360>\"\"\211>\237>\361\362>\"\210@b\210>?\206t\336\337!\203M\204 \203o\336\337!\204*\363\321x\210`@|\210n\204\347 \210N\203N\364N\364\261\210\202NM\203N \204N\365R\236A\203G\366\212\367 )!\203G\364c\210\370M\364\261\210@\321\211\223\210\371\372>\364#c\210m\204c\373c\210 \205t>\211=\202t\361\374>\".\207" [org-inlinetask-min-level limit-level org-odd-levels-only nstars org-outline-regexp export-props boundp 2 "\\*" format "\\{1,%d\\} " "+ " apply max mapcar #[(e) "A@\207" [e] 1] 0 nil org-footnote-get-next-reference assoc 3 "[%d]" org-add-props (org-footnote t) org-fill-paragraph org-footnote-get-definition org-combine-plists (:todo-keywords t :tags t :priority t) org-export-preprocess-string copy-marker derived-mode-p org-mode re-search-forward "^\\*[ ]+" regexp-quote "[ ]*$" t org-end-of-subtree " \n" newline "^" replace-match "" message-mode re-search-backward beginning-of-line point-min delq #[(x) "\203 \302 8\203 \303 8\304\211\223\210\304\207\305 8\204* \306 @ A@\307\310 @\"E\302 \233\"\207 \207" [sort-only x 3 4 nil 2 append format "DEFINITION NOT FOUND: %s"] 6] mapc #[(x) "\3018?\205 \302@!\207" [x 3 org-footnote-delete-definitions] 2] " \n " "\n" heading zerop org-back-over-empty-lines "* " mapconcat #[(x) "\3028\303\211\223\210\304\305 \203 \306\202 \3078\3108#\207" [x sort-only 4 nil format "\n[%s] %s" 0 1 2] 5] "\n\n" #[(x) "\3038\211b\210 \304\211\223\210)\305 \210\306\307\n\203 @\202 A@\3108#c\207" [x pos sort-only 4 nil org-footnote-goto-local-insertion-point format "\n[%s] %s\n" 2] 6] org-export-footnotes-seen ref-table count ins-point ref lbl pos a marker inlinep sort-only new-ref org-footnote-fill-after-inline-note-extraction org-export-footnotes-data def parameters org-footnote-section org-footnote-tag-for-non-org-mode-files tag message-signature-separator org-footnote-insert-pos-for-preprocessor org-blank-before-new-entry] 7 (#$ . 16317)]) #@70 Find insertion point for footnote, just before next outline heading. (defalias 'org-footnote-goto-local-insertion-point #[nil "\305\306 \211\307 P\310 \210,n\204 \311 \210\312\313!\210o\204, \314f\315U\203, \312\313!\210\202 \305 \316\317!)\2039 \312\320!\210\321\210\322\314x\210\314y\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 newline beginning-of-line 0 nil 35 looking-at "[ ]*#\\+tblfm:" 2 1 "\n "] 3 (#$ . 20401)]) #@83 Delete every reference to footnote LABEL. Return the number of footnotes removed. (defalias 'org-footnote-delete-references #[(label) "\212eb\210\303\304\305\n!\211\203# A@b\210 A@\306 8|\210T\202 +\207" [nref ref label nil 0 org-footnote-get-next-reference 2] 3 (#$ . 20963)]) #@88 Delete every definition of the footnote LABEL. Return the number of footnotes removed. (defalias 'org-footnote-delete-definitions #[(label) "\212eb\210\304\305!\306Q\307\310\n\311\312#\2039 \313 \211\2035 A@b\210\314\311x\210n\204, \311y\210`\315 8|\210 T)\202 +\207" [label ndef def-re full-def "^\\[" regexp-quote "\\]" 0 re-search-forward nil t org-footnote-at-definition-p " \n" 2] 5 (#$ . 21255)]) #@197 Delete the footnote at point. This will remove the definition (even multiple definitions if they exist) and all references of a footnote label. If LABEL is non-nil, delete that footnote instead. (defalias 'org-footnote-delete #[(&optional label) "\300\301\215\207" [done (byte-code "\304\211\305 \2068 \306 \211\203) \n@\2068 \nA@\307\n8|\210\310\311!\210\312\313\314\"\2028 \315 \211\2035 \n@\2028 \316\317!\320 !\321 !\322 \210\310\323 $,\207" [nref ndef x label 0 nil org-footnote-at-reference-p 2 message "Anonymous footnote removed" throw done 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"] 6)] 2 (#$ . 21675)]) #@75 Renumber the simple footnotes like fn:17 into a sequence in the document. (defalias 'org-footnote-renumber-fn:N #[nil "\304\305\212\214~\210eb\210\306\307\304\310#\205[ \212\305\224b\210\311 \312\216n\203& \313 \202( \314 *\203W \315\316\317! \"A\206< \320T\211!\315\316\317! \"\204N \316\317! B B\321 \304\211\211\317%\210))\202 ,\207" [n map save-match-data-internal new-val nil 0 re-search-forward "\\[fn:\\([0-9]+\\)[]:]" t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-footnote-at-definition-p org-footnote-at-reference-p assoc match-string 1 number-to-string replace-match] 6 (#$ . 22497) nil]) #@60 Renumber and/or sort footnotes according to user settings. (defalias 'org-footnote-auto-adjust-maybe #[nil "\302>\203 \303 \210\304>\2051 \305 @\306\307!\210 \2050 eb\210\310\311\312 !\313Q\314\315#\2050 \316c\210\317 )\207" [org-footnote-auto-adjust label (t renumber) org-footnote-renumber-fn:N (t sort) org-footnote-at-definition-p org-footnote-normalize sort re-search-forward "^\\[" regexp-quote "\\]" nil t " " just-one-space] 4 (#$ . 23167)]) (provide 'org-footnote)