;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302 \303\232\204\304\305\306\"\210\300\301!\210\300\307!\210\300\310!\207" [require org-macs org-release "9.6.15" warn "Org version mismatch.\nThis warning usually appears when a built-in Org version is loaded\nprior to the more recent Org version.\n\nVersion mismatch is commonly encountered in the following situations:\n\n1. Emacs is loaded using literate Org config and more recent Org\n version is loaded inside the file loaded by `org-babel-load-file'.\n `org-babel-load-file' triggers the built-in Org version clashing\n the newer Org version attempt to be loaded later.\n\n It is recommended to move the Org loading code before the\n `org-babel-load-file' call.\n\n2. New Org version is loaded manually by setting `load-path', but some\n other package depending on Org is loaded before the `load-path' is\n configured.\n This \"other package\" is triggering built-in Org version, again\n causing the version mismatch.\n\n It is recommended to set `load-path' as early in the config as\n possible.\n\n3. New Org version is loaded using straight.el package manager and\n other package depending on Org is loaded before straight triggers\n loading of the newer Org version.\n\n It is recommended to put\n\n %s\n\n early in the config. Ideally, right after the straight.el\n bootstrap. Moving `use-package' :straight declaration may not be\n sufficient if the corresponding `use-package' statement is\n deferring the loading.\n\n4. A new Org version is synchronized with Emacs git repository and\n stale .elc files are still left from the previous build.\n\n It is recommended to remove .elc files from lisp/org directory and\n re-compile." "(straight-use-package 'org)" org-compat pcomplete] 3)#@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 "\303\304 \203 `\202 \305 {\262\303\306\307!\203\310\311B\2027\306\312!\203*\310\313B\2027\306\314!\2038\315\316\317!B\2027\306\320!\203M\321\322\303\"\262\203M\315C\2027\212\323\324x\210`Sf\325=\205d`S\206``Sf\325=)\203m\326C\2027\212\327\324x\210\330\324x\210`Sf)\331=\203\204\332C\2027\306\333\334 \"!\203\240\335`\336\"\204\233`\317\225U\203\240\337C\2027\340\341\"\203\266\321\322\303\"\262\203\266\342C\2027\212\343\304 x\210`Sf\344=\205\334`S\206\312`Sf\325=\205\334`\336Z\206\330`Sf\325=)\203\345\345C\2027\340\346\"\2036\321\322\303\"\262\2036\304 \347 \203\350C\2021\212\351 \210\211`U\204\306\352!\204\350C\2020\306\n!\203#\324y\210\202\211`U\203.\353C\2020\350C)\262\2027\324)\207" [case-fold-search 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 "-A-Za-z0-9_" nil 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 (#$ . 1859)])#@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 (#$ . 3398)])#@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\207\211@\303\230\203&\211@\302A\227Q\207\211@\207" [org-thing-at-point "file-option" "/" "block-option"] 4 (#$ . 3631)])#@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 (#$ . 4000)])#@68 Call the right completion function for first argument completions. (defalias 'org-pcomplete-initial #[0 "\301\302 @!\206  \210\303\207" [pcomplete-default-completion-function pcomplete-find-completion-function org-thing-at-point nil] 2 (#$ . 4343)])#@42 Complete against all valid file options. (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 (#$ . 4600)])#@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 (#$ . 5393)])#@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 "\300\301 !C\207" [format-time-string org-time-stamp-format] 2] nil] 5 (#$ . 5599)])#@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 (#$ . 5836)])#@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 (#$ . 6043)])#@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 (#$ . 6338)])#@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 (#$ . 6589)])#@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 (#$ . 6874)])#@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 (#$ . 7165)])#@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\207" [org-startup-options pcomplete-args pcomplete-uniquify-list mapcar car "hidestars" delete "showstars"] 6] nil] 5 (#$ . 7457)])#@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 (#$ . 7848)])#@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 (#$ . 8086)])#@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 (#$ . 8417)])#@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 (#$ . 9089)])#@74 Complete arguments for the #+BIND file option, which are variable names. (defalias 'pcomplete/org-mode/file-option/bind #[0 "\300C\301\302\303\"!\210\304\302\305\"\300\211\211$\207" [nil mapatoms make-closure #[257 "\301!\205\300\302!\300\242B\240\207" [V0 boundp symbol-name] 4 "\n\n(fn A)"] pcomplete--here #[0 "\300\242\207" [V0] 1]] 6 (#$ . 9455)])#@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 (#$ . 9819)])#@47 Complete against TeX-style HTML entity names. (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-uniquify-list remove nil mapcar car-safe] 6] 1 nil] 5 (#$ . 10162)])#@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 (#$ . 10493)])#@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\306\307O#\307\211$\205\202\207" [pcomplete-stub pcomplete--here #[0 "\212eb\210\301\302\301\303#\203\304 \305\301OB\262\202\306!)\207" [org-outline-regexp nil re-search-forward t org-link-heading-search-string 1 pcomplete-uniquify-list] 5] replace-regexp-in-string "\\]+$" "" 1 nil] 8 (#$ . 10728)])#@46 Complete a tag name. Omit tags already set. (defalias 'pcomplete/org-mode/tag #[0 "\301\302\303\304\"\205\305\225\306O\307\306$\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 ".*:" 0 nil t] 5 (#$ . 11214)])#@49 Complete a drawer name, including "PROPERTIES". (defalias 'pcomplete/org-mode/drawer #[0 "\301\302\303\304O\304\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] 1 nil] 5 (#$ . 11796)])#@57 Complete a property name. Omit properties already set. (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\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] 1 nil] 5 (#$ . 12382)])#@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\"\303\211\211$\205-\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 no-eval intern "org-babel-header-args:" org-babel-combine-header-arg-lists boundp eval t make-closure #[0 "\301\302\303\300\"\304\"\207" [V0 append mapcar #[257 "\300\301\302@!\"\207" [format ":%s" symbol-name] 5 "\n\n(fn ARG)"] ("-n" "-r" "-l")] 4]] 9 (#$ . 12870)])#@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 (#$ . 13713)]) (provide 'org-pcomplete)