mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
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 org-macs org-compat pcomplete] 2)
16 #@120 Examine the thing at point and let the caller know what it is.
17 The return value is a string naming the thing at point.
18 (defalias 'org-thing-at-point #[0 "\212\302\303x\210`)\212\304\303x\210`)\305 `{\306\307\"\203\310\311B\202\376\306\312\"\203,\310\313B\202\376\212\314\315\316 \317#)\203?\320\321\322!B\202\376\306\323\"\203L\320\303B\202\376\206Q`Sf\324\232\203^\325\303B\202\376\206c`Sf\326\232\203p\327\303B\202\376\306\330\305 {\"\203\200\331\303B\202\376\206\205`Sf\332\232\203\222\333\303B\202\376\206\227`Sf\334\232\203\254\305 f\332\232\203\254\335\303B\202\376\206\261`Sf\334\232\203\343\305 f\332\232\204\343\212\336\322!\210\337\303x\210\340\341\342O\316 \"\206\331\340    \316 \")\203\343\343\303B\202\376\206\350`Sf\334\232\203\375\305 f\332\232\204\375\344\303B\202\376\303\207" [org-drawer-regexp org-property-re "[:alnum:]-_@" nil "a-zA-Z0-9-_:$" point-at-bol string-match "\\`[     ]*#\\+begin: clocktable[     ]+" "block-option" "clocktable" "\\`[     ]*#\\+begin_src[     ]+" "src" re-search-backward "^[     ]*#\\+\\([A-Z_]+\\):.*" line-beginning-position t "file-option" match-string-no-properties 1 "\\`[     ]*#\\+[a-zA-Z_]*\\'" 91 "link" 92 "tex" "\\`\\*+[     ]+\\'" "todo" 42 "searchhead" 58 "tag" move-beginning-of-line "[     \n]" looking-back 0 -1 "prop" "drawer"] 7 (#$ . 505)])
19 #@155 Return the qualified name of the Org completion entity at point.
20 When completing for #+STARTUP, for example, this function returns
21 "file-option/startup".
22 (defalias 'org-command-at-point #[0 "\300 \211@\301\230\203\211@A\205\302A\227PP\202,\211@\303\230\203*\211@\302A\227Q\202,\211@\207" [org-thing-at-point "file-option" "/" "block-option"] 4 (#$ . 1841)])
23 #@61 Parse whitespace separated arguments in the current region.
24 (defalias 'org-parse-arguments #[0 "\300 \301 \302\211\214}\210\212eb\210m\204,\303\302w\210`B\262\304\302w\210\305@`\"B\262\202\306!\306!*B\207" [line-beginning-position line-end-position nil "     \n[" "^     \n[" buffer-substring-no-properties reverse] 7 (#$ . 2215)])
25 #@69 Calls the right completion function for first argument completions.
26 (defalias 'org-pcomplete-initial #[0 "\301\302\303 @!\206\n \210\207" [pcomplete-default-completion-function nil pcomplete-find-completion-function org-thing-at-point] 3 (#$ . 2559)])
27 #@42 Complete against all valid file options.
28 (defalias 'pcomplete/org-mode/file-option #[0 "\301\302!\210\303\304\305\306O\306\211$\207" [pcomplete-stub require org-element pcomplete--here #[0 "\302\303\304\305\"\304\306    \"\307\310\211\2037\211@\311\312\"B\262\313\211\314\235\205#\315QB\262\311\316\"B\262A\266\202\202\f\262\262\304\317\320 \"$!\207" [org-options-keywords org-element-affiliated-keywords org-pcomplete-case-double append mapcar #[257 "\211\300P\207" [" "] 3 "\n\n(fn KEYWORD)"] #[257 "\211\300P\207" [": "] 3 "\n\n(fn KEYWORD)"] nil ("CENTER" "COMMENT" "EXAMPLE" "EXPORT" "QUOTE" "SRC" "VERSE") format "END_%s" "BEGIN_" ("EXPORT" "SRC") " " "ATTR_%s: " #[257 "\211\300P\207" [": "] 3 "\n\n(fn KEYWORD)"] org-get-export-keywords] 11] 2 nil] 5 (#$ . 2819)])
29 #@50 Complete arguments for the #+AUTHOR file option.
30 (defalias 'pcomplete/org-mode/file-option/author #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "C\207" [user-full-name] 1] nil] 5 (#$ . 3613)])
31 #@48 Complete arguments for the #+DATE file option.
32 (defalias 'pcomplete/org-mode/file-option/date #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301@!C\207" [org-time-stamp-formats format-time-string] 2] nil] 5 (#$ . 3820)])
33 #@49 Complete arguments for the #+EMAIL file option.
34 (defalias 'pcomplete/org-mode/file-option/email #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "C\207" [user-mail-address] 1] nil] 5 (#$ . 4056)])
35 #@56 Complete arguments for the #+EXCLUDE_TAGS file option.
36 (defalias 'pcomplete/org-mode/file-option/exclude_tags #[0 "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[0 "\205\n\301\302\303#C\207" [org-export-exclude-tags mapconcat identity " "] 4] nil] 5 (#$ . 4264)])
37 #@52 Complete arguments for the #+FILETAGS file option.
38 (defalias 'pcomplete/org-mode/file-option/filetags #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\205    \301\302\303#\207" [org-file-tags mapconcat identity " "] 4] nil] 5 (#$ . 4560)])
39 #@52 Complete arguments for the #+LANGUAGE file option.
40 (defalias 'pcomplete/org-mode/file-option/language #[0 "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[0 "\301\302D!\207" [org-export-default-language pcomplete-uniqify-list "en"] 3] nil] 5 (#$ . 4812)])
41 #@54 Complete arguments for the #+PRIORITIES file option.
42 (defalias 'pcomplete/org-mode/file-option/priorities #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\303\304    \n$C\207" [org-highest-priority org-lowest-priority org-default-priority format "%c %c %c"] 5] nil] 5 (#$ . 5097)])
43 #@55 Complete arguments for the #+SELECT_TAGS file option.
44 (defalias 'pcomplete/org-mode/file-option/select_tags #[0 "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[0 "\205\n\301\302\303#C\207" [org-export-select-tags mapconcat identity " "] 4] nil] 5 (#$ . 5389)])
45 #@51 Complete arguments for the #+STARTUP file option.
46 (defalias 'pcomplete/org-mode/file-option/startup #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\302\303\304\"!    \211\203 \211@\211\305\230\203\306\307\"\262A\266\202\202\210\211\207" [org-startup-options pcomplete-args pcomplete-uniqify-list mapcar car "hidestars" delete "showstars"] 6] nil] 5 (#$ . 5682)])
47 #@48 Complete arguments for the #+TAGS file option.
48 (defalias 'pcomplete/org-mode/file-option/tags #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301!C\207" [org-current-tag-alist org-tag-alist-to-string] 2] nil] 5 (#$ . 6077)])
49 #@49 Complete arguments for the #+TITLE file option.
50 (defalias 'pcomplete/org-mode/file-option/title #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300\301 !\211\203\302\303!!\206\304\301 !C\207" [buffer-file-name buffer-base-buffer file-name-sans-extension file-name-nondirectory buffer-name] 4] nil] 5 (#$ . 6316)])
51 #@51 Complete arguments for the #+OPTIONS file option.
52 (defalias 'pcomplete/org-mode/file-option/options #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\302\303\304\305\306\300!\205 \211\203H\211@\307!    >\204 \310\311\312D\"\210\211\313H\211\203@\211@\3148\211\2038\211\315PB\262\210A\266\202\202#\210A\266\202\202 \210\211\262\"!\207" [org-export-registered-backends cl-struct-org-export-backend-tags pcomplete-uniqify-list append ("H:" "\\n:" "num:" "timestamp:" "arch:" "author:" "c:" "creator:" "date:" "d:" "email:" "*:" "e:" "::" "f:" "inline:" "tex:" "p:" "pri:" "':" "-:" "stat:" "^:" "toc:" "|:" "tags:" "tasks:" "<:" "todo:") nil boundp type-of signal wrong-type-argument org-export-backend 4 2 ":"] 11] nil] 5 (#$ . 6648)])
53 #@54 Complete arguments for the #+INFOJS_OPT file option.
54 (defalias 'pcomplete/org-mode/file-option/infojs_opt #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\301\302\303\304\300!\205\n\"!\207" [org-html-infojs-opts-table pcomplete-uniqify-list mapcar #[257 "\300\301@\"\207" [format "%s:"] 4 "\n\n(fn ITEM)"] boundp] 5] nil] 5 (#$ . 7420)])
55 #@74 Complete arguments for the #+BIND file option, which are variable names.
56 (defalias 'pcomplete/org-mode/file-option/bind #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\312\302\313\314\305\306!\315\"\316$\300\211\211$\207" [nil mapatoms make-byte-code 257 "\301!\205\300\302!\300\242B\240\207" vconcat vector [boundp symbol-name] 4 "\n\n(fn A)" pcomplete--here 0 "\300\242\207" [] 1] 8 (#$ . 7786)])
57 #@43 Complete against defined #+LINK patterns.
58 (defalias 'pcomplete/org-mode/link #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\302\303\304\305\306\"\305\306    \"\"!!\207" [org-link-abbrev-alist-local org-link-abbrev-alist pcomplete-uniqify-list copy-sequence append mapcar car] 7] nil] 5 (#$ . 8207)])
59 #@47 Complete against TeX-style HTML entity names.
60 (defalias 'pcomplete/org-mode/tex #[0 "\301\302!\210\303\304\305\306O\306\211$\205\202\207" [pcomplete-stub require org-entities pcomplete--here #[0 "\301\302\303\304\305\"\"!\207" [org-entities pcomplete-uniqify-list remove nil mapcar car-safe] 6] 1 nil] 5 (#$ . 8519)])
61 #@39 Complete against known TODO keywords.
62 (defalias 'pcomplete/org-mode/todo #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301\302!!\207" [org-todo-keywords-1 pcomplete-uniqify-list copy-sequence] 3] nil] 5 (#$ . 8849)])
63 #@102 Complete against all headings.
64 This needs more work, to handle headings with lots of spaces in them.
65 (defalias 'pcomplete/org-mode/searchhead #[0 "\301\302\303\304O\304\211$\205\202\207" [pcomplete-stub pcomplete--here #[0 "\212eb\210\302\211\303    \302\304#\203\305\306\307!!B\262\202)\310!\262)\207" [case-fold-search org-todo-line-regexp nil re-search-forward t org-make-org-heading-search-string match-string-no-properties 3 pcomplete-uniqify-list] 5] 1 nil] 5 (#$ . 9083)])
66 #@46 Complete a tag name.  Omit tags already set.
67 (defalias 'pcomplete/org-mode/tag #[0 "\301\302\303\304\"\205\305\225\306O\306\211$\205\202\207" [pcomplete-stub pcomplete--here #[0 "\301\302\303\304\305\301\306\"\"\206\301\307\310 \"!\311 \211\203(\211@\312\"\262A\266\202\202\210\211\262\"\207" [org-current-tag-alist mapcar #[257 "\211\300P\207" [":"] 3 "\n\n(fn X)"] pcomplete-uniqify-list remq nil #[257 "\300@!\207" [org-string-nw-p] 3 "\n\n(fn X)"] car org-get-buffer-tags org-get-tags delete] 8] string-match ".*:" 0 nil] 5 (#$ . 9580)])
68 #@57 Complete a property name.  Omit properties already set.
69 (defalias 'pcomplete/org-mode/prop #[0 "\301\302\303\304O\304\211$\207" [pcomplete-stub pcomplete--here #[0 "\300\301\302\303\304\305\306\211\211$!!\307 \211\203\"\211@\310@\"\262A\266\202\202\210\211\262\"\207" [mapcar #[257 "\211\300P\207" [": "] 3 "\n\n(fn X)"] pcomplete-uniqify-list copy-sequence org-buffer-property-keys nil t org-entry-properties delete] 9] 1 nil] 5 (#$ . 10148)])
70 #@121 Complete the arguments of a begin_src block.
71 Complete a language in the first field, the header arguments and switches.
72 (defalias 'pcomplete/org-mode/block-option/src #[0 "\300\301\302\211\211$\210\300\303\302\211\211$\205\202\207" [pcomplete--here #[0 "\300\301\302\303\304\305!\306\">A@A\"\207" [mapcar #[257 "\300\3018!\207" [symbol-name 3] 4 "\n\n(fn X)"] :key-type plist-get symbol-plist org-babel-load-languages custom-type] 6] nil #[0 "\300\207" [("-n" "-r" "-l" ":cache" ":colnames" ":comments" ":dir" ":eval" ":exports" ":file" ":hlines" ":no-expand" ":noweb" ":results" ":rownames" ":session" ":shebang" ":tangle" ":tangle-mode" ":var")] 1]] 5 (#$ . 10609)])
73 #@41 Complete keywords in a clocktable line.
74 (defalias 'pcomplete/org-mode/block-option/clocktable #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300\207" [(":maxlevel" ":scope" ":lang" ":tstart" ":tend" ":block" ":step" ":stepskip0" ":fileskip0" ":emphasize" ":link" ":narrow" ":indent" ":tcolumns" ":level" ":compact" ":timestamp" ":formula" ":formatter" ":wstart" ":mstart")] 1] nil] 5 (#$ . 11289)])
75 #@86 Return list with both upcase and downcase version of all strings in LIST.
76
77 (fn LIST)
78 (defalias 'org-pcomplete-case-double #[257 "\300\211\211A\262\242\211\262\203\227\226BB\262\202\211\237\207" [nil] 6 (#$ . 11715)])
79 (provide 'org-pcomplete)