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\302\303\304\305\306\307\310\311&\207" [require org org-link-set-parameters "info" :follow org-info-open :export org-info-export :store org-info-store-link] 8)
16 #@40 Store a link to an Info file and node.
17 (defalias 'org-info-store-link #[0 "\303=\205&\304\305    !\306\nR\305    !\306\nQ\307\310\311\312    \313\n\314    \315\n&\n\210\266\202\207" [major-mode Info-current-file Info-current-node Info-mode "info:" file-name-nondirectory "#" org-store-link-props :type "info" :file :node :link :desc] 13 (#$ . 594)])
18 #@65 Follow an Info file and node link specified by PATH.
19
20 (fn PATH)
21 (defalias 'org-info-open #[257 "\300!\207" [org-info-follow-link] 3 (#$ . 943)])
22 #@65 Follow an Info file and node link specified by NAME.
23
24 (fn NAME)
25 (defalias 'org-info-follow-link #[257 "\300\301\"\204\300\302\"\203>\303\304\"\303\305\"\206\306\307\310!\210\3111*\312\"0\202=\210\312\306\"\210\3131;\314!0\202=\210\211\207\315\316\"\207" [string-match "\\(.*\\)[#:]:?\\(.*\\)" "\\(.*\\)" match-string 1 2 "Top" require info (user-error) Info-find-node (user-error) Info-index user-error "Could not open: %s"] 6 (#$ . 1095)])
26 #@103 List of emacs documents available.
27 Taken from <https://www.gnu.org/software/emacs/manual/html_mono/.>
28 (defconst org-info-emacs-documents '("ada-mode" "auth" "autotype" "bovine" "calc" "ccmode" "cl" "dbus" "dired-x" "ebrowse" "ede" "ediff" "edt" "efaq-w32" "efaq" "eieio" "eintr" "elisp" "emacs-gnutls" "emacs-mime" "emacs" "epa" "erc" "ert" "eshell" "eudc" "eww" "flymake" "forms" "gnus" "htmlfontify" "idlwave" "ido" "info" "mairix-el" "message" "mh-e" "newsticker" "nxml-mode" "octave-mode" "org" "pcl-cvs" "pgg" "rcirc" "reftex" "remember" "sasl" "sc" "semantic" "ses" "sieve" "smtpmail" "speedbar" "srecode" "todo-mode" "tramp" "url" "vip" "viper" "widget" "wisent" "woman") (#$ . 1561))
29 #@153 Alist of documents generated from Texinfo source.
30 When converting info links to HTML, links to any one of these manuals are
31 converted to use these URL.
32 (defconst org-info-other-documents '(("libc" . "https://www.gnu.org/software/libc/manual/html_mono/libc.html") ("make" . "https://www.gnu.org/software/make/manual/make.html")) (#$ . 2260))
33 #@357 Return URL or HTML file associated to Info FILENAME.
34 If FILENAME refers to an official GNU document, return a URL pointing to
35 the official page for that document, e.g., use "gnu.org" for all Emacs
36 related documents.  Otherwise, append ".html" extension to FILENAME.
37 See `org-info-emacs-documents' and `org-info-other-documents' for details.
38
39 (fn FILENAME)
40 (defalias 'org-info-map-html-url #[257 "\211\235\203 \302\303\"\207\304    \"A\206\211\305P\207" [org-info-emacs-documents org-info-other-documents format "https://www.gnu.org/software/emacs/manual/html_mono/%s.html" assoc ".html"] 4 (#$ . 2608)])
41 #@54 Expand Info NODE to HTML cross reference.
42
43 (fn NODE)
44 (defalias 'org-info--expand-node-name #[257 "\301\302\303\304\301\203\305\202\306\307\301\310\307##\266\202#\211\307\230\203$\307\202;\311\304\312\313#)\266\203\203:\314P\202;\211\207" [inhibit-changing-match-data replace-regexp-in-string "\\([     \n ]+\\)\\|\\([^a-zA-Z0-9]\\)" #[257 "\300\225\203\301\207\302\303\304!\"\207" [1 "-" format "_%04x" string-to-char] 5 "\n\n(fn M)"] nil "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" "\\`[0-9]" t string-match "g_t"] 13 (#$ . 3221)])
45 #@112 Export an info link.
46 See `org-link-parameters' for details about PATH, DESC and FORMAT.
47
48 (fn PATH DESC FORMAT)
49 (defalias 'org-info-export #[771 "\300\301\"\211@A@\206 \302\303\267\2027\304\305\306!\307!\206\"    $\2028\206+\310\304\311$\262\2028\312\207" [split-string "[#:]:?" "Top" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 19 texinfo 38)) format "<a href=\"%s#%s\">%s</a>" org-info-map-html-url org-info--expand-node-name "" "@ref{%s,%s,,%s,}" nil] 12 (#$ . 3786)])
50 (provide 'org-info)