View file File name : org-compat.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.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 "\301\302!\210\301\303!\210\304\305!\204 \306\305\307\"\210\304\310!\203! \306\311\310\"\210\202, \306\311\312\"\210\313\311\314\315#\210\304\316!\2047 \306\316\317\"\210\304\320!\203V \306\321\322\"\210\313\321\314\315#\210\306\323\324\"\210\313\323\314\315#\210\202` \306\321\325\"\210\306\323\326\"\210\304\327!\203n \306\330\327\"\210\202s \306\330\331\"\210\304\332!\203\201 \306\333\332\"\210\202\206 \306\333\334\"\210\304\335!\204\227 \306\335\336\"\210\313\335\314\315#\210\304\337!\204\250 \306\337\340\"\210\313\337\314\315#\210\341W\203\340 \306\342\343\"\210\306\344\345\"\210\306\346\347\"\210\306\350\351\"\210\306\352\353\"\210\306\354\355\"\210\306\356\357\"\210\306\360\361\"\210\306\362\363\"\210\306\364\365\"\210\304\366!\204\353 \306\366\367\"\210\304\370!\203\371 \306\371\370\"\210\202\376 \306\371\372\"\210\341W\203\307\373\306\374\375\376\377\201@ \201A !\201B \"\201C \201D %\"\210\306\201E \375\201F \201G \201@ \201A !\201H \"\201I \201J %\"\210\306\201K \375\201L \201M \201@ \201A !\201N \"\201O \201P %\"\210\306\201Q \375\201L \201M \201@ \201A !\201R \"\201O \201P %\"\210\306\201S \375\201T \377\201@ \201A !\201U \"\201C \201V %\"\210\306\201W \375\201L \201M \201@ \201A !\201X \"\201O \201Y %\"\266\202\373\306\374\201Z \"\210\306\201E \201[ \"\210\306\201K \201\\ \"\210\306\201Q \201] \"\210\306\201S \201^ \"\210\306\201W \201_ \"\210\306\201` \201a \201b #\210\201c \201` \201a \201d #\210\306\201e \201f \201b #\210\201c \201e \201f \201d #\210\306\201g \201h \201b #\210\201c \201g \201h \201d #\210\306\201i \201j \201b #\210\201c \201i \201j \201d #\210\306\201k \201l \201b #\210\201c \201k \201l \201d #\210\306\201m \201n \201b #\210\201c \201m \201n \201d #\210\306\201o \201p \201b #\210\201c \201o \201p \201d #\210\306\201q \201r \201b #\210\201c \201q \201r \201d #\210\306\201s \201t \201b #\210\201c \201s \201t \201d #\210\306\201u \201v \201b #\210\201c \201u \201v \201d #\210\306\201w \201x \201b #\210\201c \201w \201x \201d #\210\306\201y \201z \201b #\210\201c \201y \201z \201d #\210\306\201{ \201| \201b #\210\201c \201{ \201| \201d #\210\306\201} \201~ \201b #\210\201c \201} \201~ \201d #\210\306\201 \201\200 \201b #\210\201c \201 \201\200 \201d #\210\306\201\201 \201\202 \201b #\210\201c \201\201 \201\202 \201\203 #\207" [emacs-major-version require cl-lib org-macs fboundp proper-list-p defalias #[257 "\211<\205 \3001 \211G0\207\210\301\207" [(error) nil] 2 "Return OBJECT's length if it is a proper list, nil otherwise.\nA proper list is neither circular nor dotted (i.e., its last cdr\nis nil).\n\n(fn OBJECT)"] xor org-xor #[514 "\203 \211?\207\207" #1=[] 3 "Exclusive `or'.\n\n(fn A B)"] put byte-optimizer byte-compile-inline-expand pcomplete-uniquify-list pcomplete-uniqify-list time-convert org-time-convert-to-integer #[257 "\300\301\"\207" [time-convert integer] 4 "\n\n(fn TIME)"] org-time-convert-to-list #[257 "\300\301\"\207" [time-convert list] 4 "\n\n(fn TIME)"] #[257 "\300\301!!\207" [floor float-time] 4 "\n\n(fn TIME)"] #[257 "\300\301!!\207" [seconds-to-time float-time] 4 "\n\n(fn TIME)"] line-number-display-width org-line-number-display-width #[128 "\300\207" [0] 2 "\n\n(fn &rest _)"] buffer-hash org-buffer-hash #[0 "\300p!\207" [md5] 2] file-attribute-modification-time #[257 "\3008\207" [5] 3 "The modification time in ATTRIBUTES returned by `file-attributes'.\nThis is the time of the last change to the file's contents, and\nis a list of integers (HIGH LOW USEC PSEC) in the same style\nas (current-time).\n\n(fn ATTRIBUTES)"] file-attribute-size #[257 "\3008\207" [7] 3 "The size (in bytes) in ATTRIBUTES returned by `file-attributes'.\nThis is a floating point number if the size is too large for an integer.\n\n(fn ATTRIBUTES)"] 25 outline-hide-entry hide-entry outline-hide-sublevels hide-sublevels outline-hide-subtree hide-subtree outline-show-branches show-branches outline-show-children show-children outline-show-entry show-entry outline-show-subtree show-subtree xref-find-definitions find-tag format-message format gui-get-selection x-get-selection directory-name-p #[257 "\211G\301\302V\203 SH\262\211\303U\206 \304>\205 \211\305U\207" [system-type 46 0 47 (windows-nt ms-dos) 92] 5 "Return non-nil if NAME ends with a directory separator character.\n\n(fn NAME)"] string-collate-lessp org-string-collate-lessp #[642 "\231\207" #1# 5 "Return non-nil if STRING1 is less than STRING2 in lexicographic order.\nCase is significant.\n\n(fn S1 S2 &rest _)"] #[257 "\211\204 \300 \207\211\247\203 \301!\207\207" [current-time seconds-to-time] 3 "\n\n(fn TIME)"] org-decode-time make-byte-code 256 "\301\300!!\207" vconcat vector [decode-time] 4 "\n\n(fn &optional TIME)" org-format-time-string 769 "\301\300!#\207" [format-time-string] 7 "\n\n(fn FORMAT-STRING &optional TIME UNIVERSAL)" org-time-add 514 "\301\300!\300!\"\207" [time-add] 6 "\n\n(fn A B)" org-time-subtract [time-subtract] org-time-since 257 [time-since] "\n\n(fn TIME)" org-time-less-p [time-less-p] "\n\n(fn T1 T2)" decode-time format-time-string time-add time-subtract time-since time-less-p org-activate-mark activate-mark nil make-obsolete "Org 9.0" org-add-hook add-hook org-bound-and-true-p bound-and-true-p org-decompose-region decompose-region org-defvaralias defvaralias org-detach-overlay delete-overlay org-file-equal-p file-equal-p org-float-time float-time org-indent-line-to indent-line-to org-indent-to-column indent-to-column org-looking-at-p looking-at-p org-looking-back looking-back org-match-string-no-properties match-string-no-properties org-propertize propertize org-select-frame-set-input-focus select-frame-set-input-focus org-file-remote-p file-remote-p "Org 9.2"] 9) #@56 Replace posix classes in regular expression S. (fn S) (defalias 'org-re '(macro . #[257 "\207" [] 2 (#$ . 6138)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\312#\210\304\310\311\306#\210\307\313\314\312#\210\304\313\314\306#\210\307\315\316\312#\210\304\315\316\306#\210\307\317\320\312#\210\304\317\320\306#\210\307\321\322\312#\210\304\321\322\306#\210\307\323\324\312#\210\304\323\324\306#\210\307\325\326\312#\210\304\325\326\306#\210\307\327\330\312#\210\304\327\330\306#\207" [put org-re edebug-form-spec (form) make-obsolete "you can safely remove it." "Org 9.0" defalias org-count cl-count nil org-every cl-every org-find-if cl-find-if org-reduce cl-reduce org-remove-if cl-remove-if org-remove-if-not cl-remove-if-not org-some cl-some org-floor* cl-floor] 4) #@89 Return a section of LIST, from START to END. Counting starts at 1. (fn LIST START END) (defalias 'org-sublist #[771 "\300S#\207" [cl-subseq] 7 (#$ . 6938)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\304\312\313\307#\210\300\312\313\303#\210\304\314\315\307#\210\300\314\315\303#\210\304\316\317\307#\210\300\316\317\303#\210\304\320\321\307#\210\300\320\321\303#\210\304\322\323\307#\210\300\322\323\303#\210\304\324\325\307#\210\300\324\325\303#\210\304\326\327\307#\210\300\326\327\303#\210\304\330\331\307#\210\300\330\331\303#\210\304\332\333\307#\210\300\332\333\303#\210\334\335\336\307#\210\337\211\203\262 \211@\335N\203\253 \336N\204\253 \340\336\335N#\210A\266\202\202\221 \210\341\335\336\303#\210\334\342\343\307#\210\337\211\203\341 \211@\342N\203\332 \343N\204\332 \340\343\342N#\210A\266\202\202\300 \210\341\342\343\303#\210\304\344\345\307#\210\300\344\345\303#\210\304\346\347\307#\210\300\346\347\303#\210\304\350\351\307#\210\300\350\351\352#\210\304\353\354\307#\210\300\353\354\303#\210\304\355\356\307#\210\300\355\356\303#\210\304\357\356\307#\210\300\357\356\303#\210\304\360\361\307#\210\300\360\361\303#\210\304\362\363\307#\210\300\362\363\364#\210\334\365\366\307#\210\337\211\203p\211@\365N\203i\366N\204i\340\366\365N#\210A\266\202\202O\210\341\365\366\303#\210\304\367\370\307#\210\300\367\370\352#\210\304\371\372\307#\210\300\371\372\303#\210\334\373\374\307#\210\337\211\203\267\211@\373N\203\260\374N\204\260\340\374\373N#\210A\266\202\202\226\210\341\373\374\303#\210\334\375\376\307#\210\337\211\203\346\211@\375N\203\337\376N\204\337\340\376\375N#\210A\266\202\202\305\210\341\375\376\303#\210\334\377\201@ \307#\210\337\211\203\211@\377N\203\201@ N\204\340\201@ \377N#\210A\266\202\202\366\210\341\377\201@ \364#\210\304\201A \201B \307#\210\300\201A \201B \303#\210\304\201C \201D \307#\210\300\201C \201D \303#\210\304\201E \201F \307#\210\300\201E \201F \303#\210\334\201G \201H \307#\210\337\211\203\224\211@\201G N\203\215\201H N\204\215\340\201H \201G N#\210A\266\202\202k\210\341\201G \201H \201I #\210\304\201J \201K \307#\210\300\201J \201K \303#\210\334\201L \201M \307#\210\337\211\203\351\211@\201L N\203\342\201M N\204\342\340\201M \201L N#\210A\266\202\202\300\210\341\201L \201M \201N #\210\304\201O \201P \307#\210\300\201O \201P \303#\210\334\201Q \201R \307#\210\337\211\203>\211@\201Q N\2037\201R N\2047\340\201R \201Q N#\210A\266\202\202\210\341\201Q \201R \201I #\210\304\201S \201T \307#\210\300\201S \201T \303#\210\304\201U \201V \307#\210\300\201U \201V \303#\210\304\201W \201V \307#\210\300\201W \201V \303#\210\304\201X \201Y \307#\210\300\201X \201Y \303#\210\304\201Z \201[ \307#\210\300\201Z \201[ \201\\ #\210\304\201] \201^ \307#\210\300\201] \201^ \201\\ #\210\304\201_ \201` \307#\210\300\201_ \201` \201\\ #\210\334\201a \201b \307#\210\337\211\203\211@\201a N\203\n\201b N\204\n\340\201b \201a N#\210A\266\202\202\350\210\341\201a \201b \201\\ #\210\304\370\201c \307#\210\300\370\201c \201d #\210\304\201e \201f \307#\210\300\201e \201f \201d #\210\334\201g \201h \307#\210\337\211\203z\211@\201g N\203s\201h N\204s\340\201h \201g N#\210A\266\202\202Q\210\341\201g \201h \201d #\207" [make-obsolete org-sublist "use cl-subseq (note the 0-based counting)." "Org 9.0" defalias org-buffer-narrowed-p buffer-narrowed-p nil org-called-interactively-p called-interactively-p org-char-to-string char-to-string org-delete-directory delete-directory org-format-seconds format-seconds org-link-escape-browser url-encode-url org-no-warnings with-no-warnings org-number-sequence number-sequence org-pop-to-buffer-same-window pop-to-buffer-same-window org-string-match-p string-match-p org-element-remove-indentation org-remove-indentation defvaralias org-latex-create-formula-image-program org-preview-latex-default-process (saved-value saved-variable-comment) put make-obsolete-variable org-latex-preview-ltxpng-directory org-preview-latex-image-directory org-table-p org-at-table-p org-on-heading-p org-at-heading-p org-at-regexp-p org-in-regexp "Org 8.3" org-image-file-name-regexp image-file-name-regexp org-completing-read-no-i completing-read org-icompleting-read org-iread-file-name read-file-name org-days-to-time org-time-stamp-to-now "Org 8.2" org-agenda-ignore-drawer-properties org-agenda-ignore-properties org-preview-latex-fragment org-toggle-latex-fragment org-export-get-genealogy org-element-lineage org-latex-with-hyperref org-latex-hyperref-template hfy-optimisations hfy-optimizations org-export-htmlized-org-css-url org-org-htmlized-css-url org-list-parse-list org-list-to-lisp org-agenda-todayp org-agenda-today-p org-babel-examplize-region org-babel-examplify-region org-babel-capitalize-example-region-markers org-babel-uppercase-example-markers "Org 9.1" org-babel-trim org-trim org-html-style org-html-head "24.4" org-insert-columns-dblock org-columns-insert-dblock org-export-babel-evaluate org-export-use-babel org-activate-bracket-links org-activate-links org-activate-plain-links ignore org-activate-angle-links org-remove-double-quotes org-strip-quotes org-get-indentation current-indentation "Org 9.2" org-capture-member org-capture-get org-remove-from-invisibility-spec remove-from-invisibility-spec org-effort-durations org-duration-units org-latex-preview "Org 9.3" org-remove-latex-fragment-image-overlays org-clear-latex-preview org-attach-directory org-attach-id-dir] 7) #@43 Non-nil if point in a fixed-width region. (defalias 'org-in-fixed-width-region-p #[0 "\300 \301\302\303\304\305!\306\"\307$\216\310\311 !)\312=\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-element-type org-element-at-point fixed-width] 7 (#$ . 12495)]) (make-obsolete 'org-in-fixed-width-region-p "use `org-element' library" "Org 9.0") #@223 Make a compatible face specification. If INHERITS is an existing face and if the Emacs version supports it, just inherit the face. If INHERITS is not given and SPECS is, use SPECS to define the face. (fn INHERITS SPECS) (defalias 'org-compatible-face #[514 "\300!\203\f \301\302EC\207\207" [facep t :inherit] 5 (#$ . 12897)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-compatible-face lisp-indent-function 1 make-obsolete "you can remove it." "Org 9.0"] 5) #@1198 Add a new TYPE link. FOLLOW and EXPORT are two functions. FOLLOW should take the link path as the single argument and do whatever is necessary to follow the link, for example find a file or display a mail message. EXPORT should format the link path for export to one of the export formats. It should be a function accepting three arguments: path the path of the link, the text after the prefix (like "http:") desc the description of the link, if any format the export format, a symbol like `html' or `latex' or `ascii'. The function may use the FORMAT information to return different values depending on the format. The return value will be put literally into the exported file. If the return value is nil, this means Org should do what it normally does with links which do not have EXPORT defined. Org mode has a built-in default for exporting links. If you are happy with this default, there is no need to define an export function for the link type. For a simple example of an export function, see `org-bbdb.el'. If TYPE already exists, update it with the arguments. See `org-link-parameters' for documentation on the other parameters. (fn TYPE &optional FOLLOW EXPORT) (defalias 'org-add-link-type #[769 "\300\301\302%\210\303\304\"\207" [org-link-set-parameters :follow :export message "Created %s link."] 9 (#$ . 13393)]) (make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "Org 9.0") #@69 If there is a table.el table nearby, recognize it and move into it. (defalias 'org-table-recognize-table\.el #[0 "\303 \205D \304 \210\305!\204 \305 !\203 \306y\210\305\n!\203 \307y\210\310\311\312\313!\313#\203A \314\315!\210\316`!\2036 \313\207\317\320!\210\321 \210\317\322!\207\323\324!\207" [org-table-dataline-regexp org-table1-hline-regexp org-table-any-border-regexp org-at-table\.el-p beginning-of-line looking-at nil -2 re-search-forward "|" org-table-end t require table table--at-cell-p message "recognizing table.el table..." table-recognize-table "recognizing table.el table...done" error "This should not happen"] 4 (#$ . 14841)]) (make-obsolete 'org-table-recognize-table\.el "please notify Org mailing list if you use this function." "Org 9.0") #@19 (fn &rest BODY) (defalias 'org-preserve-lc '(macro . #[128 "\300\301!\300\302!\303\304B\305BD\306\307B\310D\311DFE\207" [make-symbol "--line" "--col" let ((org-current-line)) ((current-column)) unwind-protect progn org-goto-line org-move-to-column] 10 (#$ . 15613)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-preserve-lc edebug-form-spec (body) make-obsolete "please notify Org mailing list if you use this function." "Org 9.2"] 4) #@81 Non-nil if VERSION is lower (older) than `emacs-version'. (fn VERSION &rest _) (defalias 'org-version-check #[385 "\301\"\207" [emacs-version version<] 5 (#$ . 16085)]) (make-obsolete 'org-version-check "use `version<' or `fboundp' instead." "Org 9.2") #@10 (fn S) (defalias 'org-remove-angle-brackets #[257 "\300\301\302#\207" [org-unbracket-string "<" ">"] 5 (#$ . 16347)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\316\305\317\320#\207" [make-obsolete org-remove-angle-brackets org-unbracket-string "Org 9.0" custom-declare-variable org-publish-sitemap-file-entry-format funcall function #[0 "\300\207" [#1="%t"] 1 #1#] "Format string for site-map file entry.\nYou could use brackets to delimit on what part the link will be.\n\n%t is the title.\n%a is the author.\n%d is the date formatted using `org-publish-sitemap-date-format'." :group org-export-publish :type string make-obsolete-variable "set `:sitemap-format-entry' in `org-publish-project-alist' instead." "Org 9.1"] 8) #@307 Check if the current entry contains match for `org-agenda-skip-regexp'. If yes, it returns the end position of this entry, causing agenda commands to skip the entry but continuing the search in the subtree. This is a function that can be put into `org-agenda-skip-function' for the duration of a command. (defalias 'org-agenda-skip-entry-when-regexp-matches #[0 "\212\301\302!)\303\212\304\302#\262)\211\205 \207" [org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 6 (#$ . 17121)]) (make-obsolete 'org-agenda-skip-entry-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1") #@270 Check if the current subtree contains match for `org-agenda-skip-regexp'. If yes, it returns the end position of this tree, causing agenda commands to skip this subtree. This is a function that can be put into `org-agenda-skip-function' for the duration of a command. (defalias 'org-agenda-skip-subtree-when-regexp-matches #[0 "\212\301\302!)\303\212\304\302#\262)\211\205 \207" [org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 6 (#$ . 17738)]) (make-obsolete 'org-agenda-skip-subtree-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1") #@397 Check if the current subtree contains match for `org-agenda-skip-regexp'. If yes, it returns the end position of the current entry (NOT the tree), causing agenda commands to skip the entry but continuing the search in the subtree. This is a function that can be put into `org-agenda-skip-function' for the duration of a command. An important use of this function is for the stuck project list. (defalias 'org-agenda-skip-entry-when-regexp-matches-in-subtree #[0 "\212\301\302!)\212\303 \210`S)\304\212\305\302#\262)\211\205 \207" [org-agenda-skip-regexp org-end-of-subtree t outline-next-heading nil re-search-forward] 7 (#$ . 18322)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\210\304\310\311\307#\210\300\310\311\303#\210\304\312\311\307#\210\300\312\311\303#\210\313\314\315\303#\210\313\316\315\303#\210\313\317\315\303#\210\313\320\321\303#\210\304\322\323\307#\210\300\322\323\324#\210\325\326\327\307#\210\330\211\203v \211@\326N\203o \327N\204o \331\327\326N#\210A\266\202\202U \210\313\326\327\303#\210\325\332\333\307#\210\330\211\203\245 \211@\332N\203\236 \333N\204\236 \331\333\332N#\210A\266\202\202\204 \210\313\332\333\303#\210\325\334\335\307#\210\330\211\203\324 \211@\334N\203\315 \335N\204\315 \331\335\334N#\210A\266\202\202\263 \210\313\334\335\336#\210\325\337\340\307#\210\330\211\203\211@\337N\203\374 \340N\204\374 \331\340\337N#\210A\266\202\202\342 \210\313\337\340\341#\210\325\342\343\307#\210\330\211\2032\211@\342N\203+\343N\204+\331\343\342N#\210A\266\202\202\210\313\342\343\341#\210\325\344\345\307#\210\330\211\203a\211@\344N\203Z\345N\204Z\331\345\344N#\210A\266\202\202@\210\313\344\345\341#\210\325\346\347\307#\210\330\211\203\220\211@\346N\203\211\347N\204\211\331\347\346N#\210A\266\202\202o\210\313\346\347\341#\210\325\350\351\307#\210\330\211\203\277\211@\350N\203\270\351N\204\270\331\351\350N#\210A\266\202\202\236\210\313\350\351\341#\210\325\352\353\307#\210\330\211\203\356\211@\352N\203\347\353N\204\347\331\353\352N#\210A\266\202\202\315\210\313\352\353\341#\210\325\354\355\307#\210\330\211\203 \211@\354N\203\355N\204\331\355\354N#\210A\266\202\202\374\210\313\354\355\341#\210\325\356\357\307#\210\330\211\203L\211@\356N\203E\357N\204E\331\357\356N#\210A\266\202\202+\210\313\356\357\341#\210\325\360\361\307#\210\330\211\203{\211@\360N\203t\361N\204t\331\361\360N#\210A\266\202\202Z\210\313\360\361\341#\210\325\362\363\307#\210\330\211\203\252\211@\362N\203\243\363N\204\243\331\363\362N#\210A\266\202\202\211\210\313\362\363\341#\210\325\364\365\307#\210\330\211\203\331\211@\364N\203\322\365N\204\322\331\365\364N#\210A\266\202\202\270\210\313\364\365\341#\210\325\366\367\307#\210\330\211\203\211@\366N\203\367N\204\331\367\366N#\210A\266\202\202\347\210\313\366\367\341#\210\304\370\371\307#\210\300\370\371\341#\210\304\372\373\307#\210\300\372\373\341#\210\304\374\375\307#\210\300\374\375\341#\210\304\376\377\307#\210\300\376\377\341#\210\304\201@ \201A \307#\210\300\201@ \201A \341#\210\304\201B \201C \307#\210\300\201B \201C \341#\210\304\201D \201E \307#\210\300\201D \201E \341#\210\325\201F \201G \307#\210\330\211\203\257\211@\201F N\203\250\201G N\204\250\331\201G \201F N#\210A\266\202\202\206\210\313\201F \201G \341#\210\325\201H \201I \307#\210\330\211\203\356\211@\201H N\203\347\201I N\204\347\331\201I \201H N#\210A\266\202\202\305\210\313\201H \201I \341#\210\325\201J \201K \307#\210\330\211\203-\211@\201J N\203&\201K N\204&\331\201K \201J N#\210A\266\202\202\210\313\201J \201K \341#\210\325\201L \201K \307#\210\330\211\203l\211@\201L N\203e\201K N\204e\331\201K \201L N#\210A\266\202\202C\210\313\201L \201K \341#\210\325\201M \201N \307#\210\330\211\203\253\211@\201M N\203\244\201N N\204\244\331\201N \201M N#\210A\266\202\202\202\210\313\201M \201N \341#\210\304\201O \201P \307#\210\300\201O \201P \341#\210\304\201Q \201R \307#\210\300\201Q \201R \341#\210\300\201S \201T \324#\207" [make-obsolete org-agenda-skip-entry-when-regexp-matches-in-subtree "use `org-agenda-skip-if' instead." "Org 9.1" defalias org-minutes-to-clocksum-string org-duration-from-minutes nil org-hh:mm-string-to-minutes org-duration-to-minutes org-duration-string-to-minutes make-obsolete-variable org-time-clocksum-format "set `org-duration-format' instead." org-time-clocksum-use-fractional org-time-clocksum-fractional-format org-time-clocksum-use-effort-durations "set `org-duration-units' instead." org-babel-number-p org-babel--string-to-number "Org 9.0" defvaralias org-usenet-links-prefer-google org-gnus-prefer-web-links (saved-value saved-variable-comment) put org-texinfo-def-table-markup org-texinfo-table-default-markup org-agenda-overriding-columns-format org-overriding-columns-format "Org 9.2.2" org-doi-server-url org-link-doi-server-url "Org 9.3" org-email-link-description-format org-link-email-description-format org-make-link-description-function org-link-make-description-function org-from-is-user-regexp org-link-from-user-regexp org-descriptive-links org-link-descriptive org-context-in-file-links org-link-context-for-files org-keep-stored-link-after-insertion org-link-keep-stored-after-insertion org-display-internal-link-with-indirect-buffer org-link-use-indirect-buffer-for-internals org-confirm-shell-link-function org-link-shell-confirm-function org-confirm-shell-link-not-regexp org-link-shell-skip-confirm-regexp org-confirm-elisp-link-function org-link-elisp-confirm-function org-confirm-elisp-link-not-regexp org-link-elisp-skip-confirm-regexp org-file-complete-link org-link-complete-file org-email-link-description org-link-email-description org-make-link-string org-link-make-string org-store-link-props org-link-store-props org-add-link-props org-link-add-props org-make-org-heading-search-string org-link-heading-search-string org-make-link-regexps org-link-make-regexps org-angle-link-re org-link-angle-re org-plain-link-re org-link-plain-re org-bracket-link-regexp org-link-bracket-re org-bracket-link-analytic-regexp org-any-link-re org-link-any-re org-open-link-from-string org-link-open-from-string org-add-angle-brackets org-link-add-angle-brackets org-capture-import-remember-templates "use the `org-capture-templates' variable instead."] 7) #@42 Unfold all blocks in the current buffer. (defalias 'org-show-block-all #[0 "\300\301\211\302\303$\207" [remove-overlays nil invisible org-hide-block] 5 (#$ . 24694) nil]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\207" [make-obsolete org-show-block-all "use `org-show-all' instead." "Org 9.2" defalias org-get-tags-at org-get-tags nil] 4) #@53 Get a list of tags defined in the current headline. (defalias 'org-get-local-tags #[0 "\300\301\302\"\207" [org-get-tags nil local] 3 (#$ . 25068)]) (make-obsolete 'org-get-local-tags "use `org-get-tags' instead." "Org 9.2") #@73 Get a list of tags defined in the current headline. (fn &optional POS) (defalias 'org-get-local-tags-at #[256 "\300\301\"\207" [org-get-tags local] 4 (#$ . 25299)]) (make-obsolete 'org-get-local-tags-at "use `org-get-tags' instead." "Org 9.2") #@46 Get the TAGS string in the current headline. (defalias 'org-get-tags-string #[0 "\300\301\302\303\"!\207" [org-make-tag-string org-get-tags nil t] 4 (#$ . 25551)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\207" [make-obsolete org-get-tags-string "use `org-make-tag-string' instead." "Org 9.2" defalias org-set-tags-to org-set-tags nil] 4) #@33 Align the tags in all headings. (defalias 'org-align-all-tags #[0 "\300\301!\207" [org-align-tags t] 2 (#$ . 25926)]) (make-obsolete 'org-align-all-tags "use `org-align-tags' instead." "Org 9.2") #@19 (fn &rest BODY) (defalias 'org-with-silent-modifications '(macro . #[128 "\300B\207" [with-silent-modifications] 3 (#$ . 26128)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\312#\210\300\310\311\303#\210\313\314\315\"\207" [make-obsolete org-with-silent-modifications "use `with-silent-modifications' instead." "Org 9.2" put edebug-form-spec (body) defalias org-babel-strip-quotes org-strip-quotes nil eval-after-load ol #[0 "\300\301!\210\300\302!\207" [org-link-set-parameters "file+emacs" "file+sys"] 2]] 4) #@58 Get the value of the X or Windows clipboard. (fn VALUE) (defalias 'org-get-x-clipboard #[257 "\302=\203I \303\304!\203I \3051- \304\306\"\206) \304\307\"\206) \304\310\"\206) \304\311\"0\202/ \210\312\312\211\203? \313\314G $\210\202G \315\314G\312$\210\207\316=\205W \303\317!\205W \317 \207" [window-system org-rm-props x fboundp gui-get-selection (error) UTF8_STRING COMPOUND_TEXT STRING TEXT nil remove-text-properties 0 set-text-properties w32 w32-get-clipboard-data] 8 (#$ . 26672)]) (byte-code "\300\301\302\303!\203\f \303\202 \304\"\207" [defalias org-set-transient-map fboundp set-transient-map set-temporary-overlay-map] 4) #@54 Non-nil means temporarily disable the active region. (defvar org-ignore-region nil (#$ . 27326)) #@106 Non-nil when the region active. Unlike to `use-region-p', this function also checks `org-ignore-region'. (defalias 'org-region-active-p #[0 "?\205 \301 \207" [org-ignore-region use-region-p] 1 (#$ . 27430)]) (defalias 'org-cursor-to-region-beginning #[0 "\300 \205 `\301 V\205 \302 \207" [org-region-active-p region-beginning exchange-point-and-mark] 2]) #@58 Is ARG a member of `buffer-invisibility-spec'? (fn ARG) (defalias 'org-in-invisibility-spec-p #[257 ":\205 \211\235\207" [buffer-invisibility-spec] 3 (#$ . 27795)]) #@103 Move to column COLUMN. Pass COLUMN and FORCE to `move-to-column'. (fn COLUMN &optional FORCE BUFFER) (defalias 'org-move-to-column #[769 "<\203\f \301\302\"\202 \303\")\207" [buffer-invisibility-spec remove (org-filtered) move-to-column] 6 (#$ . 27971)]) #@16 (fn LIBRARY) (defalias 'org-find-library-dir '(macro . #[257 "\300\301\302D\303BBD\207" [file-name-directory or locate-library ("")] 5 (#$ . 28240)])) #@37 How many lines in string S? (fn S) (defalias 'org-count-lines #[257 "\300\301\302\303#\203 \300\225\262\211T\262\202 G\300V\203* \211GSH\304U\203* \211S\262\207" [0 1 string-match "\n" 10] 7 (#$ . 28400)]) #@26 (fn STRING &rest ARGS) (defalias 'org-kill-new #[385 "\300\301G\302$\210\303\304#\207" [remove-text-properties 0 (line-prefix t wrap-prefix t) apply kill-new] 7 (#$ . 28622)]) (byte-code "\300\301\302\303!\203\f \303\202 \304\"\210\300\305\302\306!\203 \306\202 \307\"\207" [defalias org-font-lock-ensure fboundp font-lock-ensure #[512 "\300 \207" [font-lock-fontify-buffer] 3 "\n\n(fn &optional BEG END)"] org-babel-local-file-name file-local-name #[257 "\300\301\"\206 \211\207" [file-remote-p localname] 4 "Return the local name component of FILE.\n\n(fn FILE)"]] 4) #@52 Try very hard to provide sensible version strings. (defalias 'org-check-version '(macro . #[0 "\300\301\302!\206 \303!\211\304P\305P\306\307\310#\203 \311\202, \306\312\310#\203' \313\202, \314\315!\210\316\207" [file-name-directory locate-library "org" "" "org-version.el" "../mk/org-fixup.el" require org-version noerror (progn (autoload 'org-release "org-version.el") (autoload 'org-git-version "org-version.el")) org-fixup (org-fixup) warn "Could not define org version correctly. Check installation!" (progn (defun org-release nil "N/A") (defun org-git-version nil "N/A !!check installation!!"))] 7 (#$ . 29209)])) #@230 Define NAME as a new error signal. MESSAGE is a string that will be output to the echo area if such an error is signaled without being caught by a `condition-case'. Implements `define-error' for older emacsen. (fn NAME MESSAGE) (defalias 'org-define-error #[514 "\300\301!\203 \301\"\207\302\303\304\305\303NB!#\207" [fboundp define-error put error-conditions copy-sequence error] 9 (#$ . 29842)]) (byte-code "\300\301!\204 \302\301\303\"\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\322\323&\207" [fboundp string-suffix-p defalias #[770 "GGZ\211\300Y\205 \301\302\211\302&\303=\207" [0 compare-strings nil t] 12 "Return non-nil if SUFFIX is a suffix of STRING.\nIf IGNORE-CASE is non-nil, the comparison is done without paying\nattention to case differences.\n\n(fn SUFFIX STRING &optional IGNORE-CASE)"] custom-declare-group org-imenu-and-speedbar nil "Options concerning imenu and speedbar in Org mode." :tag "Org Imenu and Speedbar" :group org-structure custom-declare-variable org-imenu-depth funcall function #[0 "\300\207" [2] 1] "The maximum level for Imenu access to Org headlines.\nThis also applied for speedbar access." :type integer] 8) #@38 All markers currently used by Imenu. (defvar org-imenu-markers nil (#$ . 31047)) (make-variable-buffer-local 'org-imenu-markers) #@30 Produce the index for Imenu. (defalias 'org-imenu-get-tree #[0 "\211\203 \211@\211\304\211\223\210A\266\202\202 \210\304\212\214~\210db\210\305\306 P\307 T\304\"\310\311\304\312#\203\303 \313\n !\314\315\312\211\211\211$!\304\211\203K \316\310G $\210\202S \317\310G\304$\210\266\202 X\203\276 \320!\203\276 \321 \322\323\324\312%BY\203\210 \211BHBI\266\202\271 \211\325\326\327 T\"\"BHBI\266T X\203\267 \304I\210T\262\202\244 \266\262\266\266\202' \330H\266\203*\207" [org-imenu-markers org-imenu-depth outline-level org-rm-props nil "^" org-get-limited-outline-regexp make-vector 0 re-search-backward t org-reduced-level org-link-display-format org-get-heading remove-text-properties set-text-properties org-string-nw-p point-marker propertize org-imenu-marker org-imenu cl-mapcan identity cl-subseq 1] 15 (#$ . 31182)]) (eval-after-load "imenu" #[0 "\300\301\302\"\210\300\303\304\"\207" [add-hook imenu-after-jump-hook #[0 "\300\301!\205 \302\303!\207" [derived-mode-p org-mode org-show-context org-goto] 2] org-mode-hook #[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2]] 3]) #@58 Overlay marking the agenda restriction line in speedbar. (defvar org-speedbar-restriction-lock-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 32347)) (byte-code "\301\302\303#\210\301\304\305#\210\306!\207" [org-speedbar-restriction-lock-overlay overlay-put face org-agenda-restriction-lock help-echo "Agendas are currently limited to this item." delete-overlay] 4) #@215 Restrict future agenda commands to the location at point in speedbar. If there is already a restriction lock at the location, remove it. To get rid of the restriction, use `\[org-agenda-remove-restriction-lock]'. (defalias 'org-speedbar-set-agenda-restriction #[0 "\305\306!\210\307\211\211\211\211\211\310\311 \312 \313\314$\211\262\203C \315\316\"\262r\317!q\210b\210\203; \320`!\235\203; \321\322!\210\202? \323\324!\210)\202\222 \310\311 \312 \325\326$\211\262\203\216 \327T\325\"\262\330\325\"\262\331 \262\332\206i e\206n d\"\262r\333\334!)!q\210\335\336!\204\206 \337\340!\210\323\341!\210)\202\222 \337\342!\210\343 \311 \312 #\210\307\344 \207" [org-agenda-overriding-restriction org-agenda-restriction-lock-overlay default-directory org-speedbar-restriction-lock-overlay current-prefix-arg require org-agenda nil text-property-any point-at-bol point-at-eol org-imenu t get-text-property org-imenu-marker marker-buffer overlays-at org-agenda-remove-restriction-lock noupdate org-agenda-set-restriction-lock subtree speedbar-function speedbar-find-file previous-single-property-change next-single-property-change speedbar-line-directory buffer-substring-no-properties find-file-noselect expand-file-name derived-mode-p org-mode user-error "Cannot restrict to non-Org mode file" file "Don't know how to restrict Org mode agenda" move-overlay org-agenda-maybe-redo] 11 (#$ . 32742) nil]) (eval-after-load "speedbar" #[0 "\301\302!\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\310#\210\312\313\314\"\207" [speedbar-file-key-map speedbar-add-supported-extension ".org" define-key "<" org-speedbar-set-agenda-restriction "<" ">" org-agenda-remove-restriction-lock ">" add-hook speedbar-visiting-tag-hook #[0 "\300\301!\205 \302\303!\207" [derived-mode-p org-mode org-show-context org-goto] 2]] 4]) #@135 Return current headline or nil. This function ignores inlinetasks. It is meant to be used as `add-log-current-defun-function' value. (defalias 'org-add-log-current-headline #[0 "\304\305 \211\306 P\307\304\211\211\211$,\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol t org-get-limited-outline-regexp "^" org-get-heading] 6 (#$ . 34600)]) #@97 Non-nil when Flyspell can check object at point. ELEMENT is the element at point. (fn ELEMENT) (defalias 'org--flyspell-object-check-p #[257 "\212\301\302\303!)\262\203 \304u\210\305!)\306!\211\307\267\202= \310\202> \311\312\"\313=\205> \212\311\314\"b\210\315\316\310\302\317$)`W\202> \302\262\207" [inhibit-changing-match-data "\\>" t looking-at -1 org-element-context org-element-type #s(hash-table size 14 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (code 29 entity 29 export-snippet 29 inline-babel-call 29 inline-src-block 29 line-break 29 latex-fragment 29 link 29 macro 29 statistics-cookie 29 target 29 timestamp 29 verbatim 29 footnote-reference 33)) nil org-element-property :type inline :begin search-forward ":" 2] 8 (#$ . 34996)]) #@60 Function used for `flyspell-generic-check-word-predicate'. (defalias 'org-mode-flyspell-verify #[0 "\303 \203: \212\304 \210\305\306\305\307!)\262)?\205 \310\307\n!))\205\350 \311\224\205\350 `\311\224Y\205\350 \312\224?\2069 `\312\224W\207\313 \314\315\"`W\203` \212\304 \210\305\307\316!*\205\346 `\317\225V\205\346 \320!\202\346 \321 \211\205\200 \322\323\"\211\205~ \324\310\211\314\325\"\310\211\305&\305=\262\262\203\211 \310\202\346 \326!\211\327\267\202\343 \305\202\344 \330 V\205\344 \212\310\210\331\310w\210`\314\332\"W)\202\344 \314\333\"\334\235\205\344 \212\335\336\330 \305#)\202\344 \314\337\"\314\340\"\205\336 `Y\205\336 `W\205\336 \320!\266\202\202\344 \310\262\266\202\207" [case-fold-search inhibit-changing-match-data org-complex-heading-regexp org-at-heading-p beginning-of-line t "\\*+ END[ ]*$" looking-at nil 4 5 org-element-at-point org-element-property :post-affiliated "[ ]*#\\+CAPTION:" 0 org--flyspell-object-check-p org-log-into-drawer org-element-lineage (drawer) compare-strings :drawer-name org-element-type #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (comment 146 quote-section 146 comment-block 150 keyword 175 paragraph 195 table-row 195 verse-block 195)) line-beginning-position " \n" :end :key ("DESCRIPTION" "TITLE") search-backward ":" :contents-begin :contents-end] 12 (#$ . 35778)]) (put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify) #@51 Remove flyspell overlays in region. (fn BEG END) (defalias 'org-remove-flyspell-overlays-in #[514 "\301\300!\205 \205 \302\303!\205 \303\"\207" [flyspell-mode boundp fboundp flyspell-delete-region-overlays] 5 (#$ . 37253)]) (eval-after-load "flyspell" #[0 "\301>\203 \207\301B\211\207" [flyspell-delayed-commands org-self-insert-command] 2]) #@61 Unhide the current position, to show the bookmark location. (defalias 'org-bookmark-jump-unhide #[0 "\300\301!\205 \302 \204 \212e`S]b\210\302 )\205 \303\304!\207" [derived-mode-p org-mode org-invisible-p org-show-context bookmark-jump] 2 (#$ . 37613)]) (byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320& \210\303\321\305\306\322DD\323\311\312\313\324&\207" [eval-after-load "bookmark" #[0 "\300\301!\203 \302\301\303\"\207\304\305\306\307\310$\210\311\305\310\"\210\305\207" [boundp bookmark-after-jump-hook add-hook org-bookmark-jump-unhide ad-add-advice bookmark-jump (org-make-visible nil t (advice lambda nil "Make the position visible." (org-bookmark-jump-unhide))) after nil ad-activate] 5] custom-declare-variable org-calendar-to-agenda-key funcall function #[0 "\300\207" [default] 1] "Key to be installed in `calendar-mode-map' for switching to the agenda.\n\nThe command `org-calendar-goto-agenda' will be bound to this key.\n\nWhen set to `default', bind the function to `c', but only if it is\navailable in the Calendar keymap. This is the default choice because\n`c' can then be used to switch back and forth between agenda and calendar.\n\nWhen nil, `org-calendar-goto-agenda' is not bound to any key." :group org-agenda :type (choice (const :tag "Bind to `c' if available" default) (key-sequence :tag "Other binding") (const :tag "No binding" nil)) :safe #[257 "\2119\206 \211;\207" [] 2 "\n\n(fn V)"] :package-version (Org . "9.2") org-calendar-insert-diary-entry-key #[0 "\300\207" [[105]] 1] "The key to be installed in `calendar-mode-map' for adding diary entries.\nThis option is irrelevant until `org-agenda-diary-file' has been configured\nto point to an Org file. When that is the case, the command\n`org-agenda-diary-entry' will be bound to the key given here, by default\n`i'. In the calendar, `i' normally adds entries to `diary-file'. So\nif you want to continue doing this, you need to change this to a different\nkey." sexp] 12) #@40 Bind Org functions in Calendar keymap. (defalias 'org--setup-calendar-bindings #[0 "\203! ;\203 \304\305!\306\"\266\202! \307 \310\"\204! \304\310\306\"\210\n\311=?\205, \304 \312\"\207" [org-calendar-to-agenda-key calendar-mode-map org-agenda-diary-file org-calendar-insert-diary-entry-key local-set-key kbd org-calendar-goto-agenda lookup-key "c" diary-file org-agenda-diary-entry] 4 (#$ . 39627)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [eval-after-load "calendar" #[0 "\300\301\302\"\207" [add-hook calendar-mode-hook org--setup-calendar-bindings] 3] "saveplace" #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice save-place-find-file-hook (org-make-visible nil t (advice lambda nil "Make the position visible." (org-bookmark-jump-unhide))) after nil ad-activate] 5] "ecb" #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice ecb-method-clicked (esf/org-show-context nil t (advice lambda nil "Make hierarchy visible when jumping into location from ECB tree buffer." (when (derived-mode-p 'org-mode) (org-show-context)))) after nil ad-activate] 5]] 3) #@75 Make the point visible with `org-show-context' after jumping to the mark. (defalias 'org-mark-jump-unhide #[0 "\300\301!\205 \302 \205 \303\304!\207" [derived-mode-p org-mode org-invisible-p org-show-context mark-goto] 2 (#$ . 40765)]) (byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\210\300\305\306\"\210\307\310!\207" [eval-after-load "simple" #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice pop-to-mark-command (org-make-visible nil t (advice lambda nil "Make the point visible with `org-show-context'." (org-mark-jump-unhide))) after nil ad-activate] 5] #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice exchange-point-and-mark (org-make-visible nil t (advice lambda nil "Make the point visible with `org-show-context'." (org-mark-jump-unhide))) after nil ad-activate] 5] #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice pop-global-mark (org-make-visible nil t (advice lambda nil "Make the point visible with `org-show-context'." (org-mark-jump-unhide))) after nil ad-activate] 5] "session" #[0 "\301>\203 \207\301B\211\207" [session-globals-exclude org-mark-ring] 2] provide org-compat] 3)