| 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 | #@27 | |
| 16 | ||
| 17 | (fn SYMBOLS &rest BODY) | |
| 18 | (defalias 'org-with-gensyms '(macro . #[385 "\300\301\302\"BB\207" [let mapcar #[257 "\211\300\301\302\303\304DDEDD\207" [make-symbol concat "--" symbol-name quote] 8 "\n\n(fn S)"]] 6 (#$ . 408)])) | |
| 19 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put org-with-gensyms edebug-form-spec (sexp body) function-put lisp-indent-function 1] 4) | |
| 20 | #@92 Return S if S is a string containing a non-blank character. | |
| 21 | Otherwise, return nil. | |
| 22 | ||
| 23 | (fn S) | |
| 24 | (defalias 'org-string-nw-p #[257 "\211;\205 \301\302\303\304#)\266\203\205 \211\207" [inhibit-changing-match-data "[^ \n]" nil t string-match] 8 (#$ . 793)]) | |
| 25 | #@248 Splits STRING into substrings at SEPARATORS. | |
| 26 | ||
| 27 | SEPARATORS is a regular expression. When nil, it defaults to | |
| 28 | "[ | |
| 29 | ]+". | |
| 30 | ||
| 31 | Unlike `split-string', matching SEPARATORS at the beginning and | |
| 32 | end of string are ignored. | |
| 33 | ||
| 34 | (fn STRING &optional SEPARATORS) | |
| 35 | (defalias 'org-split-string #[513 "\211\206 \300\301\302P\"\203 \303\304\305\211$\262\301\306P\"\203) \303\304\305\211$\262\307\"\207" ["[ \f \n ]+" string-match "\\`" replace-match "" nil "\\'" split-string] 8 (#$ . 1058)]) | |
| 36 | #@152 Return STRING as it is displayed in the current buffer. | |
| 37 | This function takes into consideration `invisible' and `display' | |
| 38 | text properties. | |
| 39 | ||
| 40 | (fn STRING) | |
| 41 | (defalias 'org-string-display #[257 "\300\301\302\303\304\305!\306\"\307\310%\311#!\207" [#[771 "G\300\301\211\302\303 %\211\262\203> \304 $\305\n\"!\211\2036 OQ\262\262\262\266\202 \303OP\207" [#1="" 0 text-property-not-all nil next-single-property-change text-properties-at] 13 "\n\n(fn S PROPERTY FILTER)"] make-byte-code 257 "\300\301\302#\207" vconcat vector [invisible #[257 "\301=\204 \302\303\304\"\"\205 \305\207" [buffer-invisibility-spec t assoc-string plist-get invisible #1#] 5 "\n\n(fn PROPS)"]] 5 "\n\n(fn S)" #[771 "\300\301\302\303\304\305 !\306\"\307\310%#\207" [display make-byte-code 257 "\301\302\"\211;\203 \211\202 \303\304\"\211\205) \305\306\300!\302;?\205& \307\304\"%\207" vconcat vector [plist-get display cl-some stringp apply propertize cl-remove-if] 10 "\n\n(fn PROPS)"] 12 "\n\n(fn BUILD-FROM-PARTS PRUNE-INVISIBLE S)"]] 9 (#$ . 1552)]) | |
| 42 | #@180 Return width of STRING when displayed in the current buffer. | |
| 43 | Unlike `string-width', this function takes into consideration | |
| 44 | `invisible' and `display' text properties. | |
| 45 | ||
| 46 | (fn STRING) | |
| 47 | (defalias 'org-string-width #[257 "\300\301!!\207" [string-width org-string-display] 4 (#$ . 2639)]) | |
| 48 | #@91 If V not nil, and also not the string "nil", then return V. | |
| 49 | Otherwise return nil. | |
| 50 | ||
| 51 | (fn V) | |
| 52 | (defalias 'org-not-nil #[257 "\211\205\f \211\300\232?\205\f \211\207" ["nil"] 3 (#$ . 2926)]) | |
| 53 | #@19 | |
| 54 | ||
| 55 | (fn &rest BODY) | |
| 56 | (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 (#$ . 3117)])) | |
| 57 | (put 'org-preserve-lc 'edebug-form-spec '(body)) | |
| 58 | #@84 Run BODY while preserving the buffer's `buffer-modified-p' state. | |
| 59 | ||
| 60 | (fn &rest BODY) | |
| 61 | (defalias 'org-unmodified '(macro . #[128 "\300\301!\302\303BC\304\302\305BB\306DEE\207" [make-symbol "--was-modified" let ((buffer-modified-p)) unwind-protect ((buffer-undo-list t) (inhibit-modification-hooks t)) set-buffer-modified-p] 8 (#$ . 3449)])) | |
| 62 | (put 'org-unmodified 'edebug-form-spec '(body)) | |
| 63 | #@19 | |
| 64 | ||
| 65 | (fn &rest BODY) | |
| 66 | (defalias 'org-without-partial-completion '(macro . #[128 "\300\301\302\303\304BB\305BBBBB\207" [if (and (boundp 'partial-completion-mode) partial-completion-mode (fboundp 'partial-completion-mode)) unwind-protect progn (partial-completion-mode -1) ((partial-completion-mode 1))] 7 (#$ . 3844)])) | |
| 67 | (put 'org-without-partial-completion 'edebug-form-spec '(body)) | |
| 68 | #@96 Move to buffer and point of point-or-marker POM for the duration of BODY. | |
| 69 | ||
| 70 | (fn POM &rest BODY) | |
| 71 | (defalias 'org-with-point-at '(macro . #[385 "\300\301!\302DC\303\304\305D\306\307DDE\310\311\312\313BBDBBEE\207" [make-symbol "--mpom" let save-excursion if markerp set-buffer marker-buffer org-with-wide-buffer goto-char or ((point))] 12 (#$ . 4231)])) | |
| 72 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put org-with-point-at edebug-form-spec (form body) function-put lisp-indent-function 1] 4) | |
| 73 | #@87 Execute BODY while recording undo information in two buffers. | |
| 74 | ||
| 75 | (fn BUFFER &rest BODY) | |
| 76 | (defalias 'org-with-remote-undo '(macro . #[385 "\300\301!\300\302!\300\303!\300\304!\300\305!\300\306!\300\307!\300\310!\311\312B\313B\314BD\315B\316\317BBD\257\320 \321\322\323\324\f\316\325BBE \324 \316\326BBE\257\321\327\n\nE\330 \316\331BBE\330 \316\332BBE\333\334\257\335BB\257FC\"BB\207" [make-symbol "--cline" "--cmd" "--buf1" "--buf2" "--undo1" "--undo2" "--c1" "--c2" let ((org-current-line)) (this-command) ((current-buffer)) (buffer-undo-list) with-current-buffer (buffer-undo-list) append when org-agenda-allow-remote-undo setq org-verify-change-for-undo (buffer-undo-list) (buffer-undo-list) or and ((undo-boundary)) ((undo-boundary)) push list (org-agenda-undo-list)] 29 (#$ . 4747)])) | |
| 77 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put org-with-remote-undo edebug-form-spec (form body) function-put lisp-indent-function 1] 4) | |
| 78 | #@46 Inhibit read-only for BODY. | |
| 79 | ||
| 80 | (fn &rest BODY) | |
| 81 | (defalias 'org-no-read-only '(macro . #[128 "\300\301BB\207" [let ((inhibit-read-only t))] 4 (#$ . 5749)])) | |
| 82 | (put 'org-no-read-only 'edebug-form-spec '(body)) | |
| 83 | #@66 Properties to remove when a string without properties is wanted. | |
| 84 | (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t rear-nonsticky t mouse-map t fontified t org-emphasis t) (#$ . 5959)) | |
| 85 | #@153 Remove all text properties from string S. | |
| 86 | When RESTRICTED is non-nil, only remove the properties listed | |
| 87 | in `org-rm-props'. | |
| 88 | ||
| 89 | (fn S &optional RESTRICTED) | |
| 90 | (defalias 'org-no-properties #[513 "\211\203 \301\302G$\210\202 \303\302G\304$\210\207" [org-rm-props remove-text-properties 0 set-text-properties nil] 7 (#$ . 6180)]) | |
| 91 | (put 'org-no-properties 'byte-optimizer 'byte-compile-inline-expand) | |
| 92 | #@19 | |
| 93 | ||
| 94 | (fn OPTION KEY) | |
| 95 | (defalias 'org-get-alist-option #[514 "\211\300=\203 \300\207\300=\203 \300\207\301\"\203 \301\"A\207\302\236A\211<\203- \303\304\"\202. \211\207" [t assoc default delq nil] 6 (#$ . 6583)]) | |
| 96 | (put 'org-get-alist-option 'byte-optimizer 'byte-compile-inline-expand) | |
| 97 | #@347 Check if external program CMD for USE exists, error if not. | |
| 98 | When the program does exist, return its path. | |
| 99 | When it does not exist and NO-ERROR is set, return nil. | |
| 100 | Otherwise, throw an error. The optional argument USE can describe what this | |
| 101 | program is needed for, so that the error message can be more informative. | |
| 102 | ||
| 103 | (fn CMD &optional USE NO-ERROR) | |
| 104 | (defalias 'org-check-external-command #[769 "\300!\206 \211?\205 \301\302\203 \303\304\"\202 \305#\207" [executable-find error "Can't find `%s'%s" format " (%s)" ""] 9 (#$ . 6880)]) | |
| 105 | (put 'org-check-external-command 'byte-optimizer 'byte-compile-inline-expand) | |
| 106 | #@45 Return the last element of LIST. | |
| 107 | ||
| 108 | (fn LIST) | |
| 109 | (defalias 'org-last #[257 "\300!@\207" [last] 3 (#$ . 7501)]) | |
| 110 | (put 'org-last 'byte-optimizer 'byte-compile-inline-expand) | |
| 111 | #@24 | |
| 112 | ||
| 113 | (fn LIST &rest BODY) | |
| 114 | (defalias 'org-let #[385 "\300\301BB!\207" [eval let] 6 (#$ . 7674)]) | |
| 115 | (put 'org-let 'lisp-indent-function 1) | |
| 116 | #@31 | |
| 117 | ||
| 118 | (fn LIST1 LIST2 &rest BODY) | |
| 119 | (defalias 'org-let2 #[642 "\300\301\301BBCBB!\207" [eval let] 9 (#$ . 7814)]) | |
| 120 | (put 'org-let2 'lisp-indent-function 2) | |
| 121 | #@79 Call COMMAND interactively, but pretend prefix arg was ARG. | |
| 122 | ||
| 123 | (fn COMMAND ARG) | |
| 124 | (defalias 'org-call-with-arg #[514 "\211\301!)\207" [current-prefix-arg call-interactively] 4 (#$ . 7971)]) | |
| 125 | (put 'org-call-with-arg 'byte-optimizer 'byte-compile-inline-expand) | |
| 126 | #@22 | |
| 127 | ||
| 128 | (fn &optional POS) | |
| 129 | (defalias 'org-current-line #[256 "\212\211\203 \211b\210n\203 \300\202 \301\302\300`\"\\)\207" [1 0 count-lines] 5 (#$ . 8234)]) | |
| 130 | (put 'org-current-line 'byte-optimizer 'byte-compile-inline-expand) | |
| 131 | #@10 | |
| 132 | ||
| 133 | (fn N) | |
| 134 | (defalias 'org-goto-line #[257 "\214~\210eb\210\211Sy)\207" [] 2 (#$ . 8462)]) | |
| 135 | (put 'org-goto-line 'byte-optimizer 'byte-compile-inline-expand) | |
| 136 | #@26 | |
| 137 | ||
| 138 | (fn &optional TO-HERE) | |
| 139 | (defalias 'org-current-line-string #[256 "\300 \203\n `\202\f \301 {\207" [point-at-bol point-at-eol] 3 (#$ . 8621)]) | |
| 140 | (put 'org-current-line-string 'byte-optimizer 'byte-compile-inline-expand) | |
| 141 | #@14 | |
| 142 | ||
| 143 | (fn POS N) | |
| 144 | (defalias 'org-pos-in-match-range #[514 "\211\224\205 \211\224X\205 \211\225Y\207" [] 4 (#$ . 8846)]) | |
| 145 | (put 'org-pos-in-match-range 'byte-optimizer 'byte-compile-inline-expand) | |
| 146 | #@65 Match REGEXP at the beginning of the current line. | |
| 147 | ||
| 148 | (fn REGEXP) | |
| 149 | (defalias 'org-match-line #[257 "\212\300 \210\301!)\207" [beginning-of-line looking-at] 3 (#$ . 9045)]) | |
| 150 | #@97 Delete PROPERTY from PLIST. | |
| 151 | This is in contrast to merely setting it to 0. | |
| 152 | ||
| 153 | (fn PLIST PROPERTY) | |
| 154 | (defalias 'org-plist-delete #[514 "\300\203 @=\204 \301@A@#\262AA\262\202 \211\207" [nil plist-put] 7 (#$ . 9221)]) | |
| 155 | #@325 Save and restore outline visibility around BODY. | |
| 156 | If USE-MARKERS is non-nil, use markers for the positions. | |
| 157 | This means that the buffer may change while running BODY, | |
| 158 | but it also means that the buffer should stay alive | |
| 159 | during the operation, because otherwise all these markers will | |
| 160 | point nowhere. | |
| 161 | ||
| 162 | (fn USE-MARKERS &rest BODY) | |
| 163 | (defalias 'org-save-outline-visibility '(macro . #[385 "\300\301!\302\303DDC\304\305\306B\307DE\310\311\312D\313BBEEE\207" [make-symbol "--data" let org-outline-overlay-data unwind-protect prog1 progn org-set-outline-overlay-data when dolist c ((when (markerp (car c)) (move-marker (car c) nil)) (when (markerp (cdr c)) (move-marker (cdr c) nil)))] 12 (#$ . 9452)])) | |
| 164 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put org-save-outline-visibility edebug-form-spec (form body) function-put lisp-indent-function 1] 4) | |
| 165 | #@70 Execute body while temporarily widening the buffer. | |
| 166 | ||
| 167 | (fn &rest BODY) | |
| 168 | (defalias 'org-with-wide-buffer '(macro . #[128 "\300\301\302BBD\207" [save-excursion save-restriction (widen)] 5 (#$ . 10321)])) | |
| 169 | (put 'org-with-wide-buffer 'edebug-form-spec '(body)) | |
| 170 | #@70 Execute BODY with limited number of outline levels. | |
| 171 | ||
| 172 | (fn &rest BODY) | |
| 173 | (defalias 'org-with-limited-levels '(macro . #[128 "\300\301\302\303\304\305\306BB\257\207" [progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp)))] 9 (#$ . 10581)])) | |
| 174 | (put 'org-with-limited-levels 'edebug-form-spec '(body)) | |
| 175 | #@119 Return outline-regexp with limited number of levels. | |
| 176 | The number of levels is controlled by `org-inlinetask-min-level' | |
| 177 | (defalias 'org-get-limited-outline-regexp #[0 "\304\305!\204 \207\306\307!\204 \207\nS \203 \211\310_S\202 \211\311\312\"\207" [outline-regexp org-outline-regexp org-inlinetask-min-level org-odd-levels-only derived-mode-p org-mode featurep org-inlinetask 2 format "\\*\\{1,%d\\} "] 5 (#$ . 11148)]) | |
| 178 | #@25 | |
| 179 | ||
| 180 | (fn ENVIRONMENT FORM) | |
| 181 | (defalias 'org-eval-in-environment '(macro . #[514 "\300\301\302\303DFD\207" [eval list 'let quote] 8 (#$ . 11578)])) | |
| 182 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put org-eval-in-environment edebug-form-spec (form form) function-put lisp-indent-function 1] 4) | |
| 183 | #@186 Return alist based on FLAT. | |
| 184 | FLAT is a list with alternating symbol names and values. The | |
| 185 | returned alist is a list of lists with the symbol name in car and | |
| 186 | the value in cdr. | |
| 187 | ||
| 188 | (fn FLAT) | |
| 189 | (defalias 'org-make-parameter-alist #[257 "\211\205 \211@A@D\300AA!B\207" [org-make-parameter-alist] 4 (#$ . 11887)]) | |
| 190 | #@70 Load FILE with optional arguments NOERROR and MUSTSUFFIX. | |
| 191 | ||
| 192 | (fn FILE) | |
| 193 | (defalias 'org-load-noerror-mustsuffix '(macro . #[257 "\300\301BB\207" [load ('noerror nil nil 'mustsuffix)] 4 (#$ . 12199)])) | |
| 194 | #@147 Remove PRE/POST from the beginning/end of STRING. | |
| 195 | Both PRE and POST must be pre-/suffixes of STRING, or neither is | |
| 196 | removed. | |
| 197 | ||
| 198 | (fn PRE POST STRING) | |
| 199 | (defalias 'org-unbracket-string #[771 "\300\"\203 \301\"\203 \211GG[O\207\207" [string-prefix-p string-suffix-p] 6 (#$ . 12404)]) | |
| 200 | #@161 Prompt for a function. | |
| 201 | If ALLOW-EMPTY? is non-nil, return nil rather than raising an | |
| 202 | error when the user input is empty. | |
| 203 | ||
| 204 | (fn PROMPT &optional ALLOW-EMPTY\=\?) | |
| 205 | (defalias 'org-read-function #[513 "\301\302\303$\211\304\230\204 \305!\202 \203 \306\202 \307\310!\207" [obarray completing-read fboundp t "" intern nil user-error "Empty input is not valid"] 7 (#$ . 12695)]) | |
| 206 | #@71 List of local variables that cannot be transferred to another buffer. | |
| 207 | (defconst org-unique-local-variables '(org-element--cache org-element--cache-objects org-element--cache-sync-keys org-element--cache-sync-requests org-element--cache-sync-timer) (#$ . 13079)) | |
| 208 | #@61 Return a list of all local variables in an Org mode buffer. | |
| 209 | (defalias 'org-get-local-variables #[0 "\300\301\302\303\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315 \210\316 *\262\"\"\207" [delq nil mapcar #[257 "\2119\203\n \211C\202 \211@AD\211@\211\302N?\2052 \211>?\2052 \303\304!\305\306\307#)\266\203\2052 \207" [org-unique-local-variables inhibit-changing-match-data org-state "\\`\\(org-\\|orgtbl-\\|outline-\\|comment-\\|paragraph-\\|auto-fill\\|normal-auto-fill\\|fill-paragraph\\|indent-\\)" symbol-name nil t string-match] 10 "\n\n(fn X)"] generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-mode buffer-local-variables] 11 (#$ . 13347)]) | |
| 210 | #@129 Clone local variables from FROM-BUFFER. | |
| 211 | Optional argument REGEXP selects variables to clone. | |
| 212 | ||
| 213 | (fn FROM-BUFFER &optional REGEXP) | |
| 214 | (defalias 'org-clone-local-variables #[513 "\302!\211\205M \211@\211:\203F \211@A\211\211>\204D \2032 \303!\304\305\306#)\266\203\203D \3071? \310!L0\202C \210\202D \210\266A\266\202\202 \207" [org-unique-local-variables inhibit-changing-match-data buffer-local-variables symbol-name nil t string-match (error) make-local-variable] 15 (#$ . 14100)]) | |
| 215 | (provide 'org-macs) | |
