HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/org/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/org/org-macs.elc
;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)