;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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\304W\203E \305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\210\305\316\317\"\210\305\320\321\"\210\305\322\323\"\210\305\324\325\"\210\305\326\327\"\210\305\330\331\"\210\305\332\333\"\210\334\335!\204P \305\335\336\"\210\305\337\340\341#\210\342\337\340\341#\210\305\343\344\341#\210\342\343\344\345#\210\305\346\347\341#\210\342\346\347\345#\210\305\350\351\341#\210\342\350\351\345#\210\305\352\353\341#\210\342\352\353\345#\210\305\354\355\341#\210\342\354\355\345#\210\305\356\357\341#\210\342\356\357\345#\210\305\360\361\341#\210\342\360\361\345#\210\305\362\363\341#\210\342\362\363\345#\210\305\364\365\341#\210\342\364\365\345#\210\305\366\367\341#\210\342\366\367\345#\210\305\370\371\341#\210\342\370\371\345#\210\305\372\373\341#\210\342\372\373\345#\210\305\374\375\341#\210\342\374\375\345#\210\305\376\377\341#\210\342\376\377\345#\207" [emacs-major-version require cl-lib org-macs 25 defalias outline-hide-entry hide-entry outline-hide-sublevels hide-sublevels outline-hide-subtree hide-subtree outline-show-all show-all 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 fboundp 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)"] org-activate-mark activate-mark nil make-obsolete org-add-hook add-hook "Org 9.0" 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] 4)
|
#@56 Replace posix classes in regular expression S.
|
|
(fn S)
|
(defalias 'org-re '(macro . #[257 "\207" [] 2 (#$ . 2520)]))
|
(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 (#$ . 3320)])
|
(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#\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] 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 (#$ . 7913)])
|
(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 (#$ . 8314)])
|
(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 (#$ . 8809)])
|
(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 "\205H \304 \205H \305 \210\306 !\204$ \306\n!\203$ \307y\210\306 !\203$ \310y\210\311\312\313\314!\314#\203E \315\316!\210\317`!\203: \314\207\320\321!\210\322 \210\320\323!\207\324\325!\207" [org-table-tab-recognizes-table\.el 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 (#$ . 10256)])
|
(make-obsolete 'org-table-recognize-table\.el "please notify the org mailing list if you use this function." "Org 9.0")
|
#@10
|
|
(fn S)
|
(defalias 'org-remove-angle-brackets #[257 "\300\301\302#\207" [org-unbracket-string "<" ">"] 5 (#$ . 11074)])
|
(make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "Org 9.0")
|
#@10
|
|
(fn S)
|
(defalias 'org-remove-double-quotes #[257 "\300\301\211#\207" [org-unbracket-string "\""] 5 (#$ . 11276)])
|
(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-double-quotes 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 (#$ . 12045)])
|
(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 (#$ . 12662)])
|
(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 (#$ . 13246)])
|
(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\300\334\335\324#\210\336\337\340\"\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-capture-import-remember-templates "use the `org-capture-templates' variable instead." eval-after-load org #[0 "\300\301!\210\300\302!\207" [org-link-set-parameters "file+emacs" "file+sys"] 2]] 7)
|
#@30
|
|
(fn VERSION FEATURE LEVEL)
|
(defalias 'org-version-check #[771 "\301\302\303\304\"\"\301\302\303\304\"\"@\206 \305A@\206 \305\3068\206\" \305@\206( \307A@\206/ \307\3068\2067 \307W\204^ U\203K W\204^ U\203z U\203z \211W\203z \310=?\205{ \311\312\f\f#\313\314\f#\210\315\262\202{ \315\207" [emacs-version mapcar string-to-number split-string "[.]" 99 2 0 :predicate format "Emacs %s or greater is recommended for %s" display-warning org t] 16 (#$ . 15408)])
|
#@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 (#$ . 15904)])
|
#@239 Add text properties to entire string, from beginning to end.
|
PLIST may be a list of properties, PROPS are individual properties and values
|
that will be added to PLIST. Returns the string that was modified.
|
|
(fn STRING PLIST &rest PROPS)
|
(defalias 'org-add-props #[642 "\300\301G\203 \302\"\202 $\210\207" [add-text-properties 0 append] 9 (#$ . 16413)])
|
(put 'org-add-props 'lisp-indent-function 2)
|
#@360 Fit WINDOW to the buffer, but only if it is not a side-by-side window.
|
WINDOW defaults to the selected window. MAX-HEIGHT and MIN-HEIGHT are
|
passed through to `fit-window-to-buffer'. If SHRINK-ONLY is set, call
|
`shrink-window-if-larger-than-buffer' instead, the height limit is
|
ignored in this case.
|
|
(fn &optional WINDOW MAX-HEIGHT MIN-HEIGHT SHRINK-ONLY)
|
(defalias 'org-fit-window-to-buffer #[1024 "\300\301!\203 \301!?\202 \302 \303!V\2043 \300\304!\203) \211\204) \304#\210\2023 \300\305!\2033 \305!\210\2069 \306 \207" [fboundp window-full-width-p frame-width window-width fit-window-to-buffer shrink-window-if-larger-than-buffer selected-window] 8 (#$ . 16829)])
|
(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 (#$ . 17661))
|
#@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 (#$ . 17765)])
|
(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])
|
#@60 Remove elements from `buffer-invisibility-spec'.
|
|
(fn ARG)
|
(defalias 'org-remove-from-invisibility-spec #[257 "\301\302!\203\n \302!\207:\205 \303\"\211\207" [buffer-invisibility-spec fboundp remove-from-invisibility-spec delete] 4 (#$ . 18130)])
|
#@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 (#$ . 18389)])
|
#@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 (#$ . 18565)])
|
#@16
|
|
(fn LIBRARY)
|
(defalias 'org-find-library-dir '(macro . #[257 "\300\301\302D\303BBD\207" [file-name-directory or locate-library ("")] 5 (#$ . 18834)]))
|
#@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 (#$ . 18994)])
|
#@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 (#$ . 19216)])
|
(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)
|
#@169 Suppress popup windows.
|
Let-bind some variables to nil around BODY to achieve the desired
|
effect, which variables to use depends on the Emacs version.
|
|
(fn &rest BODY)
|
(defalias 'org-no-popups '(macro . #[128 "\300\301\302\303#\203 \304\305BB\207\304\306BB\207" [org-version-check "24.2.50" "" :predicate let (pop-up-frames display-buffer-alist) (pop-up-frames special-display-buffer-names special-display-regexps special-display-function)] 5 (#$ . 19804)]))
|
#@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 (#$ . 20272)]))
|
#@19
|
|
(fn &rest BODY)
|
(defalias 'org-with-silent-modifications '(macro . #[128 "\300\301!\203\n \301B\207\302B\207" [fboundp with-silent-modifications org-unmodified] 3 (#$ . 20904)]))
|
(put 'org-with-silent-modifications 'edebug-form-spec '(body))
|
#@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 (#$ . 21157)])
|
(byte-code "\300\301!\204 \302\301\303\"\210\304\305!\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)"] provide org-compat] 3)
|
