%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/org/
Current File : //usr/local/share/emacs/27.2/lisp/org/org-pcomplete.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require org-macs org-compat pcomplete] 2)
#@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 #[0 "\304\305 \203`\202
\306 {\262\304\307\310!\203\311\312B\202G\307\313!\203*\311\314B\202G\307\315!\2038\316\317\320!B\202G\307\321!\203P\322\304\323!)\262\203P\316\324B\202G\212\325\324x\210`Sf\326=\205g`S\206c`Sf\326=)\203q\327\324B\202G\212\330\324x\210\331\324x\210`Sf)\332=\203\211\333\324B\202G\307\334\335\n\"!\203\246\336`\337\"\204\240`\320\225U\203\246\340\324B\202G\341\342\"\203\277\322\304\323!)\262\203\277\343\324B\202G\212\344\305 x\210`Sf\345=\205\345`S\206\323`Sf\326=\205\345`\337Z\206\341`Sf\326=)\203\357\346\324B\202G\341\347\"\203F\322\304\323!)\262\203F\305 \350 \203\351\324B\202A\212\352 \210\211`U\204\307\353!\204%\351\324B\202@\307!\2031\324y\210\202%\211`U\203=\354\324B\202@\351\324B)\262\202G\324)\207" [case-fold-search inhibit-changing-match-data org-tag-re org-property-re t line-beginning-position line-end-position org-match-line "[ 	]*#\\+BEGIN: clocktable[ 	]" "block-option" "clocktable" "[ 	]*#\\+BEGIN_SRC[ 	]" "src" "[ 	]*#\\+\\(\\S-+\\):" "file-option" match-string-no-properties 1 "[ 	]*#\\+[a-zA-Z_]*$" "[ 	]*$" looking-at nil "-A-Za-z0-9_" 91 "link" "0-9" "a-zA-Z" 92 "tex" format "\\*+ \\(?:.+? \\)?\\(:\\)\\(\\(?::\\|%s\\)+\\)?[ 	]*$" org-point-in-group 2 "tag" string-match "^\\*+ +\\S-*$" "todo" "^*" 42 "searchhead" "^[ 	]*:\\S-*$" org-before-first-heading-p "drawer" org-end-of-meta-data "[ 	]*:PROPERTIES:[ 	]*$" "prop"] 5 (#$ . 505)])
#@86 Return list with both upcase and downcase version of all strings in LIST.

(fn LIST)
(defalias 'org-pcomplete-case-double #[257 "\300\211\211A\262\242\211\262\203\227\226BB\262\202\211\237\207" [nil] 6 (#$ . 2115)])
#@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 #[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 (#$ . 2349)])
#@61 Parse whitespace separated arguments in the current region.
(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 (#$ . 2723)])
#@69 Calls the right completion function for first argument completions.
(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 (#$ . 3067)])
#@42 Complete against all valid file options.
(defalias 'pcomplete/org-mode/file-option #[0 "\301\302!\210\303\304\305\306\"\307\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] substring 2 nil] 5 (#$ . 3327)])
#@50 Complete arguments for the #+AUTHOR file option.
(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 (#$ . 4132)])
#@48 Complete arguments for the #+DATE file option.
(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 (#$ . 4339)])
#@49 Complete arguments for the #+EMAIL file option.
(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 (#$ . 4575)])
#@56 Complete arguments for the #+EXCLUDE_TAGS file option.
(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 (#$ . 4783)])
#@52 Complete arguments for the #+FILETAGS file option.
(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 (#$ . 5079)])
#@52 Complete arguments for the #+LANGUAGE file option.
(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-uniquify-list "en"] 3] nil] 5 (#$ . 5331)])
#@54 Complete arguments for the #+PRIORITIES file option.
(defalias 'pcomplete/org-mode/file-option/priorities #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\303\304	\n$C\207" [org-priority-highest org-priority-lowest org-priority-default format "%c %c %c"] 5] nil] 5 (#$ . 5617)])
#@55 Complete arguments for the #+SELECT_TAGS file option.
(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 (#$ . 5909)])
#@51 Complete arguments for the #+STARTUP file option.
(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-uniquify-list mapcar car "hidestars" delete "showstars"] 6] nil] 5 (#$ . 6202)])
#@48 Complete arguments for the #+TAGS file option.
(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 (#$ . 6598)])
#@49 Complete arguments for the #+TITLE file option.
(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 (#$ . 6837)])
#@51 Complete arguments for the #+OPTIONS file option.
(defalias 'pcomplete/org-mode/file-option/options #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\301\302\303\304\305\300!\205\211\2039\211@\306!\211\2031\211@\3078\211\203)\211\310PB\262\210A\266\202\202\210A\266\202\202\210\211\262\"!\207" [org-export-registered-backends pcomplete-uniquify-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 ":"] 11] nil] 5 (#$ . 7169)])
#@54 Complete arguments for the #+INFOJS_OPT file option.
(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-uniquify-list mapcar #[257 "\300\301@\"\207" [format "%s:"] 4 "\n\n(fn ITEM)"] boundp] 5] nil] 5 (#$ . 7842)])
#@74 Complete arguments for the #+BIND file option, which are variable names.
(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 (#$ . 8209)])
#@43 Complete against defined #+LINK patterns.
(defalias 'pcomplete/org-mode/link #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\302\303\304\305\306	\"\"!!\207" [org-link-abbrev-alist-local org-link-abbrev-alist pcomplete-uniquify-list copy-sequence mapcar #[257 "\211@\300P\207" [":"] 3 "\n\n(fn E)"] append] 7] nil] 5 (#$ . 8630)])
#@47 Complete against TeX-style HTML entity names.
(defalias 'pcomplete/org-mode/tex #[0 "\301\302!\210\303\304\305\306\"\307\211$\205\202\207" [pcomplete-stub require org-entities pcomplete--here #[0 "\301\302\303\304\305\"\"!\207" [org-entities pcomplete-uniquify-list remove nil mapcar car-safe] 6] substring 1 nil] 5 (#$ . 8974)])
#@39 Complete against known TODO keywords.
(defalias 'pcomplete/org-mode/todo #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301\302!!\207" [org-todo-keywords-1 pcomplete-uniquify-list copy-sequence] 3] nil] 5 (#$ . 9316)])
#@102 Complete against all headings.
This needs more work, to handle headings with lots of spaces in them.
(defalias 'pcomplete/org-mode/searchhead #[0 "\301\302\303\304\"\305\211$\205\202\207" [pcomplete-stub pcomplete--here #[0 "\212eb\210\301\302\301\303#\203\304\305 \306\"B\262\202\307!\262)\207" [org-outline-regexp nil re-search-forward t substring org-link-heading-search-string 1 pcomplete-uniquify-list] 5] substring 1 nil] 5 (#$ . 9551)])
#@46 Complete a tag name.  Omit tags already set.
(defalias 'pcomplete/org-mode/tag #[0 "\301\302\303\304\"\205\305\306\225\"\307\310$\205\202\207" [pcomplete-stub pcomplete--here #[0 "\301\302\303\304\305\301\306\"\"\206\301\307\310 \"!\311\305\312\"\211\203*\211@\313\"\262A\266\202\202\210\211\262\"\207" [org-current-tag-alist mapcar #[257 "\211\300P\207" [":"] 3 "\n\n(fn X)"] pcomplete-uniquify-list remq nil #[257 "\300@!\207" [org-string-nw-p] 3 "\n\n(fn X)"] car org-get-buffer-tags org-get-tags t delete] 8] string-match ".*:" substring 0 t nil] 5 (#$ . 10015)])
#@49 Complete a drawer name, including "PROPERTIES".
(defalias 'pcomplete/org-mode/drawer #[0 "\301\302\303\304\"\305\211$\207" [pcomplete-stub pcomplete--here #[0 "\301\302\303\304C\212eb\210\305\306\307#\203-\310 \311!\312>\203)\313\314\"B\262\313\315\"b\210\210\202	)\316!\262\"!\207" [org-drawer-regexp org-pcomplete-case-double mapcar #[257 "\211\300P\207" [":"] 3 "\n\n(fn X)"] "PROPERTIES" re-search-forward nil t org-element-at-point org-element-type (drawer property-drawer) org-element-property :drawer-name :end pcomplete-uniquify-list] 8] substring 1 nil] 5 (#$ . 10609)])
#@57 Complete a property name.  Omit properties already set.
(defalias 'pcomplete/org-mode/prop #[0 "\301\302\303\304\"\305\211$\207" [pcomplete-stub pcomplete--here #[0 "\300\301\302\303\304\305\306\307\211#!!\310 \211\203\"\211@\311@\"\262A\266\202\202\210\211\262\"!\207" [org-pcomplete-case-double mapcar #[257 "\211\300P\207" [": "] 3 "\n\n(fn X)"] pcomplete-uniquify-list copy-sequence org-buffer-property-keys nil t org-entry-properties delete] 9] substring 1 nil] 5 (#$ . 11207)])
#@118 Complete the arguments of a source block.
Complete a language in the first field, the header arguments and
switches.
(defalias 'pcomplete/org-mode/block-option/src #[0 "\301\302\303\211\211$\210\304\305!\211@\306\307P!\310\311!\205\312\313\"\"\301\314\315\316\317\320!\321\"\322$\303\211\211$\2055\202\207" [org-babel-common-header-args-w-values 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 org-babel-get-src-block-info light intern "org-babel-header-args:" org-babel-combine-header-arg-lists boundp eval t make-byte-code 0 "\301\302\303\300\"\304\"\207" vconcat vector [append mapcar #[257 "\300\301\302@!\"\207" [format ":%s" symbol-name] 5 "\n\n(fn ARG)"] ("-n" "-r" "-l")] 4] 11 (#$ . 11707)])
#@41 Complete keywords in a clocktable line.
(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" ":hidefiles" ":tcolumns" ":level" ":compact" ":timestamp" ":formula" ":formatter" ":wstart" ":mstart")] 1] nil] 5 (#$ . 12584)])
(provide 'org-pcomplete)
Zerion Mini Shell 1.0