;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.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
#@27
|
|
(fn SYMBOLS &rest BODY)
|
(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)]))
|
(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)
|
#@92 Return S if S is a string containing a non-blank character.
|
Otherwise, return nil.
|
|
(fn S)
|
(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)])
|
#@248 Splits STRING into substrings at SEPARATORS.
|
|
SEPARATORS is a regular expression. When nil, it defaults to
|
"[
|
]+".
|
|
Unlike `split-string', matching SEPARATORS at the beginning and
|
end of string are ignored.
|
|
(fn STRING &optional SEPARATORS)
|
(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)])
|
#@152 Return STRING as it is displayed in the current buffer.
|
This function takes into consideration `invisible' and `display'
|
text properties.
|
|
(fn STRING)
|
(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)])
|
#@180 Return width of STRING when displayed in the current buffer.
|
Unlike `string-width', this function takes into consideration
|
`invisible' and `display' text properties.
|
|
(fn STRING)
|
(defalias 'org-string-width #[257 "\300\301!!\207" [string-width org-string-display] 4 (#$ . 2639)])
|
#@91 If V not nil, and also not the string "nil", then return V.
|
Otherwise return nil.
|
|
(fn V)
|
(defalias 'org-not-nil #[257 "\211\205\f \211\300\232?\205\f \211\207" ["nil"] 3 (#$ . 2926)])
|
#@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 (#$ . 3117)]))
|
(put 'org-preserve-lc 'edebug-form-spec '(body))
|
#@84 Run BODY while preserving the buffer's `buffer-modified-p' state.
|
|
(fn &rest BODY)
|
(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)]))
|
(put 'org-unmodified 'edebug-form-spec '(body))
|
#@19
|
|
(fn &rest BODY)
|
(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)]))
|
(put 'org-without-partial-completion 'edebug-form-spec '(body))
|
#@96 Move to buffer and point of point-or-marker POM for the duration of BODY.
|
|
(fn POM &rest BODY)
|
(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)]))
|
(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)
|
#@87 Execute BODY while recording undo information in two buffers.
|
|
(fn BUFFER &rest BODY)
|
(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)]))
|
(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)
|
#@46 Inhibit read-only for BODY.
|
|
(fn &rest BODY)
|
(defalias 'org-no-read-only '(macro . #[128 "\300\301BB\207" [let ((inhibit-read-only t))] 4 (#$ . 5749)]))
|
(put 'org-no-read-only 'edebug-form-spec '(body))
|
#@66 Properties to remove when a string without properties is wanted.
|
(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))
|
#@153 Remove all text properties from string S.
|
When RESTRICTED is non-nil, only remove the properties listed
|
in `org-rm-props'.
|
|
(fn S &optional RESTRICTED)
|
(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)])
|
(put 'org-no-properties 'byte-optimizer 'byte-compile-inline-expand)
|
#@19
|
|
(fn OPTION KEY)
|
(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)])
|
(put 'org-get-alist-option 'byte-optimizer 'byte-compile-inline-expand)
|
#@347 Check if external program CMD for USE exists, error if not.
|
When the program does exist, return its path.
|
When it does not exist and NO-ERROR is set, return nil.
|
Otherwise, throw an error. The optional argument USE can describe what this
|
program is needed for, so that the error message can be more informative.
|
|
(fn CMD &optional USE NO-ERROR)
|
(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)])
|
(put 'org-check-external-command 'byte-optimizer 'byte-compile-inline-expand)
|
#@45 Return the last element of LIST.
|
|
(fn LIST)
|
(defalias 'org-last #[257 "\300!@\207" [last] 3 (#$ . 7501)])
|
(put 'org-last 'byte-optimizer 'byte-compile-inline-expand)
|
#@24
|
|
(fn LIST &rest BODY)
|
(defalias 'org-let #[385 "\300\301BB!\207" [eval let] 6 (#$ . 7674)])
|
(put 'org-let 'lisp-indent-function 1)
|
#@31
|
|
(fn LIST1 LIST2 &rest BODY)
|
(defalias 'org-let2 #[642 "\300\301\301BBCBB!\207" [eval let] 9 (#$ . 7814)])
|
(put 'org-let2 'lisp-indent-function 2)
|
#@79 Call COMMAND interactively, but pretend prefix arg was ARG.
|
|
(fn COMMAND ARG)
|
(defalias 'org-call-with-arg #[514 "\211\301!)\207" [current-prefix-arg call-interactively] 4 (#$ . 7971)])
|
(put 'org-call-with-arg 'byte-optimizer 'byte-compile-inline-expand)
|
#@22
|
|
(fn &optional POS)
|
(defalias 'org-current-line #[256 "\212\211\203 \211b\210n\203 \300\202 \301\302\300`\"\\)\207" [1 0 count-lines] 5 (#$ . 8234)])
|
(put 'org-current-line 'byte-optimizer 'byte-compile-inline-expand)
|
#@10
|
|
(fn N)
|
(defalias 'org-goto-line #[257 "\214~\210eb\210\211Sy)\207" [] 2 (#$ . 8462)])
|
(put 'org-goto-line 'byte-optimizer 'byte-compile-inline-expand)
|
#@26
|
|
(fn &optional TO-HERE)
|
(defalias 'org-current-line-string #[256 "\300 \203\n `\202\f \301 {\207" [point-at-bol point-at-eol] 3 (#$ . 8621)])
|
(put 'org-current-line-string 'byte-optimizer 'byte-compile-inline-expand)
|
#@14
|
|
(fn POS N)
|
(defalias 'org-pos-in-match-range #[514 "\211\224\205 \211\224X\205 \211\225Y\207" [] 4 (#$ . 8846)])
|
(put 'org-pos-in-match-range 'byte-optimizer 'byte-compile-inline-expand)
|
#@65 Match REGEXP at the beginning of the current line.
|
|
(fn REGEXP)
|
(defalias 'org-match-line #[257 "\212\300 \210\301!)\207" [beginning-of-line looking-at] 3 (#$ . 9045)])
|
#@97 Delete PROPERTY from PLIST.
|
This is in contrast to merely setting it to 0.
|
|
(fn PLIST PROPERTY)
|
(defalias 'org-plist-delete #[514 "\300\203 @=\204 \301@A@#\262AA\262\202 \211\207" [nil plist-put] 7 (#$ . 9221)])
|
#@325 Save and restore outline visibility around BODY.
|
If USE-MARKERS is non-nil, use markers for the positions.
|
This means that the buffer may change while running BODY,
|
but it also means that the buffer should stay alive
|
during the operation, because otherwise all these markers will
|
point nowhere.
|
|
(fn USE-MARKERS &rest BODY)
|
(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)]))
|
(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)
|
#@70 Execute body while temporarily widening the buffer.
|
|
(fn &rest BODY)
|
(defalias 'org-with-wide-buffer '(macro . #[128 "\300\301\302BBD\207" [save-excursion save-restriction (widen)] 5 (#$ . 10321)]))
|
(put 'org-with-wide-buffer 'edebug-form-spec '(body))
|
#@70 Execute BODY with limited number of outline levels.
|
|
(fn &rest BODY)
|
(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)]))
|
(put 'org-with-limited-levels 'edebug-form-spec '(body))
|
#@119 Return outline-regexp with limited number of levels.
|
The number of levels is controlled by `org-inlinetask-min-level'
|
(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)])
|
#@25
|
|
(fn ENVIRONMENT FORM)
|
(defalias 'org-eval-in-environment '(macro . #[514 "\300\301\302\303DFD\207" [eval list 'let quote] 8 (#$ . 11578)]))
|
(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)
|
#@186 Return alist based on FLAT.
|
FLAT is a list with alternating symbol names and values. The
|
returned alist is a list of lists with the symbol name in car and
|
the value in cdr.
|
|
(fn FLAT)
|
(defalias 'org-make-parameter-alist #[257 "\211\205 \211@A@D\300AA!B\207" [org-make-parameter-alist] 4 (#$ . 11887)])
|
#@70 Load FILE with optional arguments NOERROR and MUSTSUFFIX.
|
|
(fn FILE)
|
(defalias 'org-load-noerror-mustsuffix '(macro . #[257 "\300\301BB\207" [load ('noerror nil nil 'mustsuffix)] 4 (#$ . 12199)]))
|
#@147 Remove PRE/POST from the beginning/end of STRING.
|
Both PRE and POST must be pre-/suffixes of STRING, or neither is
|
removed.
|
|
(fn PRE POST STRING)
|
(defalias 'org-unbracket-string #[771 "\300\"\203 \301\"\203 \211GG[O\207\207" [string-prefix-p string-suffix-p] 6 (#$ . 12404)])
|
#@161 Prompt for a function.
|
If ALLOW-EMPTY? is non-nil, return nil rather than raising an
|
error when the user input is empty.
|
|
(fn PROMPT &optional ALLOW-EMPTY\=\?)
|
(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)])
|
#@71 List of local variables that cannot be transferred to another buffer.
|
(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))
|
#@61 Return a list of all local variables in an Org mode buffer.
|
(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)])
|
#@129 Clone local variables from FROM-BUFFER.
|
Optional argument REGEXP selects variables to clone.
|
|
(fn FROM-BUFFER &optional REGEXP)
|
(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)])
|
(provide 'org-macs)
|
