| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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) | |
| 16 | #@56 Replace posix classes in regular expression S. | |
| 17 | ||
| 18 | (fn S) | |
| 19 | (defalias 'org-re '(macro . #[257 "\207" [] 2 (#$ . 2520)])) | |
| 20 | (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) | |
| 21 | #@89 Return a section of LIST, from START to END. | |
| 22 | Counting starts at 1. | |
| 23 | ||
| 24 | (fn LIST START END) | |
| 25 | (defalias 'org-sublist #[771 "\300S#\207" [cl-subseq] 7 (#$ . 3320)]) | |
| 26 | (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) | |
| 27 | #@43 Non-nil if point in a fixed-width region. | |
| 28 | (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)]) | |
| 29 | (make-obsolete 'org-in-fixed-width-region-p "use `org-element' library" "Org 9.0") | |
| 30 | #@223 Make a compatible face specification. | |
| 31 | If INHERITS is an existing face and if the Emacs version supports | |
| 32 | it, just inherit the face. If INHERITS is not given and SPECS | |
| 33 | is, use SPECS to define the face. | |
| 34 | ||
| 35 | (fn INHERITS SPECS) | |
| 36 | (defalias 'org-compatible-face #[514 "\300!\203\f \301\302EC\207\207" [facep t :inherit] 5 (#$ . 8314)]) | |
| 37 | (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) | |
| 38 | #@1198 Add a new TYPE link. | |
| 39 | FOLLOW and EXPORT are two functions. | |
| 40 | ||
| 41 | FOLLOW should take the link path as the single argument and do whatever | |
| 42 | is necessary to follow the link, for example find a file or display | |
| 43 | a mail message. | |
| 44 | ||
| 45 | EXPORT should format the link path for export to one of the export formats. | |
| 46 | It should be a function accepting three arguments: | |
| 47 | ||
| 48 | path the path of the link, the text after the prefix (like "http:") | |
| 49 | desc the description of the link, if any | |
| 50 | format the export format, a symbol like `html' or `latex' or `ascii'. | |
| 51 | ||
| 52 | The function may use the FORMAT information to return different values | |
| 53 | depending on the format. The return value will be put literally into | |
| 54 | the exported file. If the return value is nil, this means Org should | |
| 55 | do what it normally does with links which do not have EXPORT defined. | |
| 56 | ||
| 57 | Org mode has a built-in default for exporting links. If you are happy with | |
| 58 | this default, there is no need to define an export function for the link | |
| 59 | type. For a simple example of an export function, see `org-bbdb.el'. | |
| 60 | ||
| 61 | If TYPE already exists, update it with the arguments. | |
| 62 | See `org-link-parameters' for documentation on the other parameters. | |
| 63 | ||
| 64 | (fn TYPE &optional FOLLOW EXPORT) | |
| 65 | (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)]) | |
| 66 | (make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "Org 9.0") | |
| 67 | #@69 If there is a table.el table nearby, recognize it and move into it. | |
| 68 | (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)]) | |
| 69 | (make-obsolete 'org-table-recognize-table\.el "please notify the org mailing list if you use this function." "Org 9.0") | |
| 70 | #@10 | |
| 71 | ||
| 72 | (fn S) | |
| 73 | (defalias 'org-remove-angle-brackets #[257 "\300\301\302#\207" [org-unbracket-string "<" ">"] 5 (#$ . 11074)]) | |
| 74 | (make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "Org 9.0") | |
| 75 | #@10 | |
| 76 | ||
| 77 | (fn S) | |
| 78 | (defalias 'org-remove-double-quotes #[257 "\300\301\211#\207" [org-unbracket-string "\""] 5 (#$ . 11276)]) | |
| 79 | (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) | |
| 80 | #@307 Check if the current entry contains match for `org-agenda-skip-regexp'. | |
| 81 | If yes, it returns the end position of this entry, causing agenda commands | |
| 82 | to skip the entry but continuing the search in the subtree. This is a | |
| 83 | function that can be put into `org-agenda-skip-function' for the duration | |
| 84 | of a command. | |
| 85 | (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)]) | |
| 86 | (make-obsolete 'org-agenda-skip-entry-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1") | |
| 87 | #@270 Check if the current subtree contains match for `org-agenda-skip-regexp'. | |
| 88 | If yes, it returns the end position of this tree, causing agenda commands | |
| 89 | to skip this subtree. This is a function that can be put into | |
| 90 | `org-agenda-skip-function' for the duration of a command. | |
| 91 | (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)]) | |
| 92 | (make-obsolete 'org-agenda-skip-subtree-when-regexp-matches "use `org-agenda-skip-if' instead." "Org 9.1") | |
| 93 | #@397 Check if the current subtree contains match for `org-agenda-skip-regexp'. | |
| 94 | If yes, it returns the end position of the current entry (NOT the tree), | |
| 95 | causing agenda commands to skip the entry but continuing the search in | |
| 96 | the subtree. This is a function that can be put into | |
| 97 | `org-agenda-skip-function' for the duration of a command. An important | |
| 98 | use of this function is for the stuck project list. | |
| 99 | (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)]) | |
| 100 | (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) | |
| 101 | #@30 | |
| 102 | ||
| 103 | (fn VERSION FEATURE LEVEL) | |
| 104 | (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)]) | |
| 105 | #@58 Get the value of the X or Windows clipboard. | |
| 106 | ||
| 107 | (fn VALUE) | |
| 108 | (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)]) | |
| 109 | #@239 Add text properties to entire string, from beginning to end. | |
| 110 | PLIST may be a list of properties, PROPS are individual properties and values | |
| 111 | that will be added to PLIST. Returns the string that was modified. | |
| 112 | ||
| 113 | (fn STRING PLIST &rest PROPS) | |
| 114 | (defalias 'org-add-props #[642 "\300\301G\203 \302\"\202 $\210\207" [add-text-properties 0 append] 9 (#$ . 16413)]) | |
| 115 | (put 'org-add-props 'lisp-indent-function 2) | |
| 116 | #@360 Fit WINDOW to the buffer, but only if it is not a side-by-side window. | |
| 117 | WINDOW defaults to the selected window. MAX-HEIGHT and MIN-HEIGHT are | |
| 118 | passed through to `fit-window-to-buffer'. If SHRINK-ONLY is set, call | |
| 119 | `shrink-window-if-larger-than-buffer' instead, the height limit is | |
| 120 | ignored in this case. | |
| 121 | ||
| 122 | (fn &optional WINDOW MAX-HEIGHT MIN-HEIGHT SHRINK-ONLY) | |
| 123 | (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)]) | |
| 124 | (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) | |
| 125 | #@54 Non-nil means temporarily disable the active region. | |
| 126 | (defvar org-ignore-region nil (#$ . 17661)) | |
| 127 | #@106 Non-nil when the region active. | |
| 128 | Unlike to `use-region-p', this function also checks | |
| 129 | `org-ignore-region'. | |
| 130 | (defalias 'org-region-active-p #[0 "?\205 \301 \207" [org-ignore-region use-region-p] 1 (#$ . 17765)]) | |
| 131 | (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]) | |
| 132 | #@60 Remove elements from `buffer-invisibility-spec'. | |
| 133 | ||
| 134 | (fn ARG) | |
| 135 | (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)]) | |
| 136 | #@58 Is ARG a member of `buffer-invisibility-spec'? | |
| 137 | ||
| 138 | (fn ARG) | |
| 139 | (defalias 'org-in-invisibility-spec-p #[257 ":\205 \211\235\207" [buffer-invisibility-spec] 3 (#$ . 18389)]) | |
| 140 | #@103 Move to column COLUMN. | |
| 141 | Pass COLUMN and FORCE to `move-to-column'. | |
| 142 | ||
| 143 | (fn COLUMN &optional FORCE BUFFER) | |
| 144 | (defalias 'org-move-to-column #[769 "<\203\f \301\302\"\202 \303\")\207" [buffer-invisibility-spec remove (org-filtered) move-to-column] 6 (#$ . 18565)]) | |
| 145 | #@16 | |
| 146 | ||
| 147 | (fn LIBRARY) | |
| 148 | (defalias 'org-find-library-dir '(macro . #[257 "\300\301\302D\303BBD\207" [file-name-directory or locate-library ("")] 5 (#$ . 18834)])) | |
| 149 | #@37 How many lines in string S? | |
| 150 | ||
| 151 | (fn S) | |
| 152 | (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)]) | |
| 153 | #@26 | |
| 154 | ||
| 155 | (fn STRING &rest ARGS) | |
| 156 | (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)]) | |
| 157 | (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) | |
| 158 | #@169 Suppress popup windows. | |
| 159 | Let-bind some variables to nil around BODY to achieve the desired | |
| 160 | effect, which variables to use depends on the Emacs version. | |
| 161 | ||
| 162 | (fn &rest BODY) | |
| 163 | (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)])) | |
| 164 | #@52 Try very hard to provide sensible version strings. | |
| 165 | (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)])) | |
| 166 | #@19 | |
| 167 | ||
| 168 | (fn &rest BODY) | |
| 169 | (defalias 'org-with-silent-modifications '(macro . #[128 "\300\301!\203\n \301B\207\302B\207" [fboundp with-silent-modifications org-unmodified] 3 (#$ . 20904)])) | |
| 170 | (put 'org-with-silent-modifications 'edebug-form-spec '(body)) | |
| 171 | #@230 Define NAME as a new error signal. | |
| 172 | MESSAGE is a string that will be output to the echo area if such | |
| 173 | an error is signaled without being caught by a `condition-case'. | |
| 174 | Implements `define-error' for older emacsen. | |
| 175 | ||
| 176 | (fn NAME MESSAGE) | |
| 177 | (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)]) | |
| 178 | (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) | |
