ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-pcomplete.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require org-macs org-compat pcomplete custom-declare-group org-complete nil "Outline-based notes management and organizer." :tag "Org" :group org] 8)
#@120 Examine the thing at point and let the caller know what it is.
The return value is a string naming the thing at point.
(defalias 'org-thing-at-point #[nil "\212\305\306x\210`)\212\307\306x\210`)\310 `{\311\312\"\203\" \313\314B\202\375 \311\315\"\203/ \313\316B\202\375 \212\317\320\321 \322#)\203B \323\324\325!B\202\375 \311\326\"\203O \323\306B\202\375 \206T `Sf\327\232\203a \330\306B\202\375 \206f `Sf\331\232\203s \332\306B\202\375 \311\333\310 {\"\203\203 \334\306B\202\375 \206\210 `Sf\335\232\203\225 \336\306B\202\375 \n\206\232 `Sf\337\232\203\257 \310 f\335\232\203\257 \340\306B\202\375 \n\206\264 `Sf\337\232\203\342 \310 f\335\232\204\342 \212\341\325!\210\342\306x\210\343 \344\345O!\206\330 \343\f!)\203\342 \346\306B\202\375 \n\206\347 `Sf\337\232\203\374 \310 f\335\232\204\374 \347\306B\202\375 \306+\207" [line-to-here beg beg1 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]" org-looking-back 0 -1 "prop" "drawer"] 4 (#$ . 653)])
#@155 Return the qualified name of the Org completion entity at point.
When completing for #+STARTUP, for example, this function returns
"file-option/startup".
(defalias 'org-command-at-point #[nil "\301 \211@\302\230\203 @A\205 \303A\227PP\202- @\304\230\203+ @\303A\227Q\202- @)\207" [thing org-thing-at-point "file-option" "/" "block-option"] 4 (#$ . 2014)])
#@61 Parse whitespace separated arguments in the current region.
(defalias 'org-parse-arguments #[nil "\304 \305 \306\211\214 \n}\210\212eb\210m\204. \307\306w\210` B\310\306w\210\311 @`\"B\202 \312!\312 !.B\207" [args begins end begin line-beginning-position line-end-position nil " \n[" "^ \n[" buffer-substring-no-properties reverse] 4 (#$ . 2386)])
#@69 Calls the right completion function for first argument completions.
(defalias 'org-pcomplete-initial #[nil "\301\302\303 @!\206\n \210\207" [pcomplete-default-completion-function nil pcomplete-find-completion-function org-thing-at-point] 3 (#$ . 2752)])
#@42 Complete against all valid file options.
(defalias 'pcomplete/org-mode/file-option #[nil "\301\302!\210\303\304\305\306O\306\211$\207" [pcomplete-stub require org-element pcomplete--here #[nil "\306\307\310\311\"\310\312 \"\313 \313 \211 \203A
@\211@ \314\315\"\nB\316\211\317\232\205- \320Q\nB\314\321\"\nB)
A\211\204 \313\n+\310\322\323 \"$!\207" [org-options-keywords org-element-affiliated-keywords block-names org-element-block-name-alist block-info --dolist-tail-- org-pcomplete-case-double append mapcar #[(keyword) "\301P\207" [keyword " "] 2] #[(keyword) "\301P\207" [keyword ": "] 2] nil format "END_%s" "BEGIN_" "SRC" " " "ATTR_%s: " #[(keyword) "\301P\207" [keyword ": "] 2] org-get-export-keywords name] 9] 2 nil] 5 (#$ . 3014)])
#@50 Complete arguments for the #+AUTHOR file option.
(defalias 'pcomplete/org-mode/file-option/author #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "C\207" [user-full-name] 1] nil] 5 (#$ . 3784)])
#@48 Complete arguments for the #+DATE file option.
(defalias 'pcomplete/org-mode/file-option/date #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\301@!C\207" [org-time-stamp-formats format-time-string] 2] nil] 5 (#$ . 3995)])
#@49 Complete arguments for the #+EMAIL file option.
(defalias 'pcomplete/org-mode/file-option/email #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "C\207" [user-mail-address] 1] nil] 5 (#$ . 4235)])
#@56 Complete arguments for the #+EXCLUDE_TAGS file option.
(defalias 'pcomplete/org-mode/file-option/exclude_tags #[nil "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[nil "\205\n \301\302\303#C\207" [org-export-exclude-tags mapconcat identity " "] 4] nil] 5 (#$ . 4447)])
#@52 Complete arguments for the #+FILETAGS file option.
(defalias 'pcomplete/org-mode/file-option/filetags #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\205 \301\302\303#\207" [org-file-tags mapconcat identity " "] 4] nil] 5 (#$ . 4747)])
#@52 Complete arguments for the #+LANGUAGE file option.
(defalias 'pcomplete/org-mode/file-option/language #[nil "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[nil "\301\302D!\207" [org-export-default-language pcomplete-uniqify-list "en"] 3] nil] 5 (#$ . 5003)])
#@54 Complete arguments for the #+PRIORITIES file option.
(defalias 'pcomplete/org-mode/file-option/priorities #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\303\304 \n$C\207" [org-highest-priority org-lowest-priority org-default-priority format "%c %c %c"] 5] nil] 5 (#$ . 5292)])
#@55 Complete arguments for the #+SELECT_TAGS file option.
(defalias 'pcomplete/org-mode/file-option/select_tags #[nil "\300\301!\210\302\303\304\211\211$\207" [require ox pcomplete--here #[nil "\205\n \301\302\303#C\207" [org-export-select-tags mapconcat identity " "] 4] nil] 5 (#$ . 5588)])
#@51 Complete arguments for the #+STARTUP file option.
(defalias 'pcomplete/org-mode/file-option/startup #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\305\306\307\"!\n\310\211 \203$ \f@\211\311\230\203 \312\313 \"\fA\211\204 * )\207" [org-startup-options opts pcomplete-args arg --dolist-tail-- pcomplete-uniqify-list mapcar car nil "hidestars" delete "showstars"] 5] nil] 5 (#$ . 5885)])
#@48 Complete arguments for the #+TAGS file option.
(defalias 'pcomplete/org-mode/file-option/tags #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\301\302\303#C\207" [org-tag-alist mapconcat #[(x) "@\301=\203 \302\207@\303=\203 \304\207@\305=\203 \306\207@\307=\203$ \310\207A\2031 \311\312@A#\207@\207" [x :startgroup "{" :endgroup "}" :grouptags ":" :newline "\\n" format "%s(%c)"] 4] " "] 4] nil] 5 (#$ . 6309)])
#@49 Complete arguments for the #+TITLE file option.
(defalias 'pcomplete/org-mode/file-option/title #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\301\302 !\211\203 \303\304!!\206 \305\302 !)C\207" [visited-file buffer-file-name buffer-base-buffer file-name-sans-extension file-name-nondirectory buffer-name] 4] nil] 5 (#$ . 6749)])
#@51 Complete arguments for the #+OPTIONS file option.
(defalias 'pcomplete/org-mode/file-option/options #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\306\307\310\311\312\301!\205\f \311\211\203A @\313\n!\311 \211\2039 @\314\f8\211 \2031
\315PB) A\211\204 * A\211\204 *)\"!\207" [items org-export--registered-backends backend --dolist-tail-- option item 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 org-export-backend-options 2 ":"] 6] nil] 5 (#$ . 7100)])
#@54 Complete arguments for the #+INFOJS_OPT file option.
(defalias 'pcomplete/org-mode/file-option/infojs_opt #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\301\302\303\304\300!\205\n \"!\207" [org-html-infojs-opts-table pcomplete-uniqify-list mapcar #[(item) "\301\302@\"\207" [item format "%s:"] 3] boundp] 5] nil] 5 (#$ . 7801)])
#@74 Complete arguments for the #+BIND file option, which are variable names.
(defalias 'pcomplete/org-mode/file-option/bind #[nil "\301\302\303!\210\304\305\301\211\211$)\207" [vars nil mapatoms #[(a) "\302!\205
\303! B\211\207" [a vars boundp symbol-name] 2] pcomplete--here #[nil "\207" [vars] 1]] 5 (#$ . 8163)])
#@43 Complete against defined #+LINK patterns.
(defalias 'pcomplete/org-mode/link #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\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 (#$ . 8487)])
#@47 Complete against TeX-style HTML entity names.
(defalias 'pcomplete/org-mode/tex #[nil "\301\302!\210\303\304\305\306O\306\211$\205 \202 \207" [pcomplete-stub require org-entities pcomplete--here #[nil "\301\302\303\304\305\"\"!\207" [org-entities pcomplete-uniqify-list remove nil mapcar car-safe] 6] 1 nil] 5 (#$ . 8803)])
#@39 Complete against known TODO keywords.
(defalias 'pcomplete/org-mode/todo #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\301\302!!\207" [org-todo-keywords-1 pcomplete-uniqify-list copy-sequence] 3] nil] 5 (#$ . 9137)])
#@102 Complete against all headings.
This needs more work, to handle headings with lots of spaces in them.
(defalias 'pcomplete/org-mode/searchhead #[nil "\301\302\303\304O\304\211$\205 \202 \207" [pcomplete-stub pcomplete--here #[nil "\212eb\210\302\303 \302\304#\203 \305\306\307!!B\202 \310!*\207" [tbl org-todo-line-regexp nil re-search-forward t org-make-org-heading-search-string match-string-no-properties 3 pcomplete-uniqify-list] 4] 1 nil] 5 (#$ . 9375)])
#@46 Complete a tag name. Omit tags already set.
(defalias 'pcomplete/org-mode/tag #[nil "\301\302\303\304\"\205 \305\225\306O\306\211$\205 \202 \207" [pcomplete-stub pcomplete--here #[nil "\304\305\306\307\310\304\311\"\"\206 \304\312\313 \"!\314 \310\211\203, @\315\n \" A\211\204 * )\"\207" [org-tag-alist lst tag --dolist-tail-- mapcar #[(x) "\301P\207" [x ":"] 2] pcomplete-uniqify-list remove nil #[(x) "@;\205 @\207" [x] 1] car org-get-buffer-tags org-get-tags delete] 9] string-match ".*:" 0 nil] 5 (#$ . 9849)])
#@57 Complete a property name. Omit properties already set.
(defalias 'pcomplete/org-mode/prop #[nil "\301\302\303\304O\304\211$\207" [pcomplete-stub pcomplete--here #[nil "\303\304\305\306\307\310\311\211#!!\312 \310\211\203% \n@\313 @\"\nA\211\204 *)\"\207" [lst prop --dolist-tail-- mapcar #[(x) "\301P\207" [x ": "] 2] pcomplete-uniqify-list copy-sequence org-buffer-property-keys nil t org-entry-properties delete] 9] 1 nil] 5 (#$ . 10391)])
#@25 Complete a drawer name.
(defalias 'pcomplete/org-mode/drawer #[nil "\212\304\305!\210\306\307!\210\310\305!)\311\312\"\313\314 \305\315O\316\315\311\317 \"\"?\206' \306\320!?\2052 \212\321\n\322\261)\315$*\207" [org-drawers cpllist spc pcomplete-stub move-beginning-of-line 1 looking-at "^\\([ ]*\\):" match-string mapcar #[(x) "\301P\207" [x ": "] 2] pcomplete--here #[nil "\207" [cpllist] 1] nil delq #[(x) "\302\303\304O \"\207" [pcomplete-stub x string-match 1 nil] 4] "[ ]*\n.*:END:" "\n" ":END:"] 8 (#$ . 10851)])
#@121 Complete the arguments of a begin_src block.
Complete a language in the first field, the header arguments and switches.
(defalias 'pcomplete/org-mode/block-option/src #[nil "\300\301\302\211\211$\210\300\303\302\211\211$\205 \202 \207" [pcomplete--here #[nil "\300\301\302\303\304\305!\306\">A@A\"\207" [mapcar #[(x) "\301\3028!\207" [x symbol-name 3] 3] :key-type plist-get symbol-plist org-babel-load-languages custom-type] 6] nil #[nil "\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 (#$ . 11387)])
#@41 Complete keywords in a clocktable line.
(defalias 'pcomplete/org-mode/block-option/clocktable #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\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 (#$ . 12062)])
#@75 Return list with both upcase and downcase version of all strings in LIST.
(defalias 'org-pcomplete-case-double #[(list) "\303\211\n\211A\242\211\203 \227 \226BB\202 \237*\207" [res e list nil] 3 (#$ . 12492)])
(provide 'org-pcomplete)
Kontol Shell Bypass