Edit file

File name : org-macs.elc

Content :;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!\302
DC\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@#\262
AA\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\266
A\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)

Save