ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-macs.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\204
\303\302\304\305B\"\210\306Y\203 \303\307\310\"\210\202 \303\307\311\"\210\301\207" [emacs-major-version fboundp declare-function defalias macro #[(fn file &optional _arglist _fileonly) "\302\303D E\207" [fn file autoload quote] 3] 23 org-char-to-string #[(c) "\301!\207" [c char-to-string] 2 "Defsubst to decode UTF-8 character values in emacs 23 and beyond."] #[(c) "\301\302\303\"!\207" [c string decode-char ucs] 4 "Defsubst to decode UTF-8 character values in emacs 22."]] 4)
(defalias 'org-with-gensyms '(macro . #[(symbols &rest body) "\302\303\304\" BB\207" [symbols body let mapcar #[(s) "\301\302\303\304\305DDEDD\207" [s make-symbol concat "--" symbol-name quote] 7]] 4]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-with-gensyms edebug-form-spec (sexp body) function-put lisp-indent-function 1] 4)
(defalias 'org-called-interactively-p '(macro . #[(&optional kind) "\303V\204 \303Y\203 \304Y\203 \305\306\nDD\207\307\207" [emacs-major-version emacs-minor-version kind 23 2 with-no-warnings called-interactively-p (interactive-p)] 3]))
(put 'org-called-interactively-p 'edebug-form-spec '(&optional ("quote" symbolp)))
#@58 Return the value of symbol VAR if it is bound, else nil.
(defalias 'org-bound-and-true-p '(macro . #[(var) "\301\302\303DDE\207" [var and boundp quote] 4 (#$ . 1603)]))
(put 'org-bound-and-true-p 'edebug-form-spec '(symbolp))
#@43 Is S a string with a non-white character?
(defalias 'org-string-nw-p #[(s) ";\205
\301\302\"\205
\207" [s org-string-match-p "\\S-"] 3 (#$ . 1837)])
#@83 If V not nil, and also not the string "nil", then return V.
Otherwise return nil.
(defalias 'org-not-nil #[(v) "\205\f \301\232?\205\f \207" [v "nil"] 2 (#$ . 1997)])
#@52 Substitute posix classes in regular expression RE.
(defalias 'org-substitute-posix-classes #[(re) "\303 \304\216\305\306 \"\203 \307\310\311\211 $\202 \305\312 \"\203) \307\310\311\211 $\202 \305\313 \"\203: \307\314\311\211 $\202) \305\315 \"\203K \307\316\311\211 $\202: +\207" [re ss save-match-data-internal match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\[:alnum:\\]" replace-match "a-zA-Z0-9" t "\\[:word:\\]" "\\[:alpha:\\]" "a-zA-Z" "\\[:punct:\\]" "-@[-`{-~"] 5 (#$ . 2173)])
#@46 Replace posix classes in regular expression.
(defalias 'org-re '(macro . #[(s) "\207" [s] 1 (#$ . 2734)]))
(put 'org-re 'edebug-form-spec '(form))
(defalias 'org-preserve-lc '(macro . #[(&rest body) "\303\304!\303\305!\306 \307B\310BD\311\312\nB\313 D\314DFE*\207" [col line body make-symbol "--line" "--col" let ((org-current-line)) ((current-column)) unwind-protect progn org-goto-line org-move-to-column] 7]))
(put 'org-preserve-lc 'edebug-form-spec '(body))
#@67 Run BODY while preserving the buffer's `buffer-modified-p' state.
(defalias 'org-unmodified '(macro . #[(&rest body) "\302\303!\304\305BC\306\304\307 BB\310DEE)\207" [was-modified body make-symbol "--was-modified" let ((buffer-modified-p)) unwind-protect ((buffer-undo-list t) (inhibit-modification-hooks t)) set-buffer-modified-p] 6 (#$ . 3207)]))
(put 'org-unmodified 'edebug-form-spec '(body))
(defalias 'org-without-partial-completion '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBBBB\207" [body if (and (boundp 'partial-completion-mode) partial-completion-mode (fboundp 'partial-completion-mode)) unwind-protect progn (partial-completion-mode -1) ((partial-completion-mode 1))] 6]))
(put 'org-without-partial-completion 'edebug-form-spec '(body))
#@479 Add (intangible t) to PROPS if Emacs version is earlier than Emacs 22.
In Emacs 21, invisible text is not avoided by the command loop, so the
intangible property is needed to make sure point skips this text.
In Emacs 22, this is not necessary. The intangible text property has
led to problems with flyspell. These problems are fixed in flyspell.el,
but we still avoid setting the property in Emacs 22 and later.
We use a macro so that the test can happen at compilation time.
(defalias 'org-maybe-intangible '(macro . #[(props) "\302W\203 \303\304 E\207 \207" [emacs-major-version props 22 append '(intangible t)] 3 (#$ . 3979)]))
#@75 Move to buffer and point of point-or-marker POM for the duration of BODY.
(defalias 'org-with-point-at '(macro . #[(pom &rest body) "\303\304!\305 DC\306\307\310D\311\312DDE\313\314\315\316BBD\nBBEE)\207" [mpom pom body make-symbol "--mpom" let save-excursion if markerp set-buffer marker-buffer org-with-wide-buffer goto-char or ((point))] 9 (#$ . 4620)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-with-point-at edebug-form-spec (form body) function-put lisp-indent-function 1] 4)
(defalias 'org-no-warnings '(macro . #[(&rest body) "\301\302!\203\n \302\202 \303B\207" [body fboundp with-no-warnings progn] 2]))
(put 'org-no-warnings 'edebug-form-spec '(body))
#@63 Execute BODY while recording undo information in two buffers.
(defalias 'org-with-remote-undo '(macro . #[(buffer &rest body) "\306\307!\306\310!\306\311!\306\312!\306\313!\306\314!\306\315!\306\316! $ %\317%\320B$\321B
\322B\f&D \323B\n\324&\325BBD \257\326'\327\330\331 \332 \324
\333BBE\332\n\324\f\334BBE\257\327\335 E\336 \324
\337BBE\336\324\f\340BBE\341\342$%
\f\257\343BB\257FC\".BB\207" [c2 c1 undo2 undo1 buf2 buf1 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) cmd cline buffer body] 19 (#$ . 5320)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-with-remote-undo edebug-form-spec (form body) function-put lisp-indent-function 1] 4)
#@29 Inhibit read-only for BODY.
(defalias 'org-no-read-only '(macro . #[(&rest body) "\301\302BB\207" [body let ((inhibit-read-only t))] 3 (#$ . 6353)]))
(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) (#$ . 6560))
(defalias 'org-match-string-no-properties #[(num &optional string) "\302 \"\207" [num string match-string-no-properties] 3])
(put 'org-match-string-no-properties 'byte-optimizer 'byte-compile-inline-expand)
#@124 Remove all text properties from string S.
When RESTRICTED is non-nil, only remove the properties listed
in `org-rm-props'.
(defalias 'org-no-properties #[(s &optional restricted) "\303\304!\203 \304\305G\306$\210\202( \203 \307\305G\n$\210\202( \304\305G\306$\210\207" [s restricted org-rm-props fboundp set-text-properties 0 nil remove-text-properties] 5 (#$ . 6989)])
(put 'org-no-properties 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-get-alist-option #[(option key) "\303=\203 \303\207 \303=\203 \303\207\304 \"\203 \304 \"A\207\305 \236A\211<\203. \306\307\n\"\202/ \n)\207" [key option r t assoc default delq nil] 4])
(put 'org-get-alist-option 'byte-optimizer 'byte-compile-inline-expand)
#@314 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.
(defalias 'org-check-external-command #[(cmd &optional use no-error) "\303!\206 ?\205 \304\305\n\203 \306\307\n\"\202 \310#\207" [cmd no-error use executable-find error "Can't find `%s'%s" format " (%s)" ""] 6 (#$ . 7725)])
(put 'org-check-external-command 'byte-optimizer 'byte-compile-inline-expand)
#@191 Modified `buffer-invisibility-spec' for Emacs 21.
Some ops with invisible text do not work correctly on Emacs 21. For these
we turn off invisibility temporarily. Use this in a `let' form.
(defalias 'org-inhibit-invisibility #[nil "\302W?\205 \207" [emacs-major-version buffer-invisibility-spec 22] 2 (#$ . 8354)])
(put 'org-inhibit-invisibility 'byte-optimizer 'byte-compile-inline-expand)
#@55 Make VAR local in current buffer and set it to VALUE.
(defalias 'org-set-local #[(var value) "\302! L\207" [var value make-local-variable] 2 (#$ . 8755)])
(put 'org-set-local 'byte-optimizer 'byte-compile-inline-expand)
#@34 Return the last element of LIST.
(defalias 'org-last #[(list) "\301!@\207" [list last] 2 (#$ . 8982)])
(put 'org-last 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-let #[(list &rest body) "\302\303 BB!\207" [list body eval let] 4])
(put 'org-let 'lisp-indent-function 1)
(defalias 'org-let2 #[(list1 list2 &rest body) "\303\304\304 \nBBCBB!\207" [list1 list2 body eval let] 6])
(put 'org-let2 'lisp-indent-function 2)
#@61 Call COMMAND interactively, but pretend prefix arg was ARG.
(defalias 'org-call-with-arg #[(command arg) "\303\n!)\207" [arg current-prefix-arg command call-interactively] 2 (#$ . 9423)])
(put 'org-call-with-arg 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-current-line #[(&optional pos) "\212\203 b\210n\203 \301\202 \302\303\301`\"\\)\207" [pos 1 0 count-lines] 4])
(put 'org-current-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-goto-line #[(N) "\214~\210eb\210Sy)\207" [N] 1])
(put 'org-goto-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-current-line-string #[(&optional to-here) "\301 \203\n `\202\f \302 {\207" [to-here point-at-bol point-at-eol] 2])
(put 'org-current-line-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-pos-in-match-range #[(pos n) "\224\205 \224 X\205 \225 Y\207" [n pos] 2])
(put 'org-pos-in-match-range 'byte-optimizer 'byte-compile-inline-expand)
#@50 Looking-at at the beginning of the current line.
(defalias 'org-match-line #[(re) "\212\301 b\210\302!)\207" [re point-at-bol looking-at] 2 (#$ . 10391)])
#@76 Delete PROPERTY from PLIST.
This is in contrast to merely setting it to 0.
(defalias 'org-plist-delete #[(plist property) "\303 \203 \n @=\204 \304 @ A@# AA\211\204 )\207" [p plist property nil plist-put] 5 (#$ . 10553)])
#@72 Like `replace-match', but add the text properties found original text.
(defalias 'org-replace-match-keep-properties #[(newtext &optional fixedcase literal string) "\304\305\306\224 \"\"\307\n $\207" [newtext string fixedcase literal org-add-props text-properties-at 0 replace-match] 5 (#$ . 10789)])
#@296 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.
(defalias 'org-save-outline-visibility '(macro . #[(use-markers &rest body) "\304\305!\304\306!\307 \310\nDDD\311\312\313\312 BE\314 DE\315\n\316\317 EEEF*\207" [rtn data use-markers body make-symbol "--data" "--rtn" let org-outline-overlay-data unwind-protect progn setq org-set-outline-overlay-data when mapc (lambda (c) (and (markerp (car c)) (move-marker (car c) nil)) (and (markerp (cdr c)) (move-marker (cdr c) nil)))] 9 (#$ . 11100)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-save-outline-visibility edebug-form-spec (form body) function-put lisp-indent-function 1] 4)
#@53 Execute body while temporarily widening the buffer.
(defalias 'org-with-wide-buffer '(macro . #[(&rest body) "\301\302\303BBD\207" [body save-excursion save-restriction (widen)] 4 (#$ . 12007)]))
(put 'org-with-wide-buffer 'edebug-form-spec '(body))
#@53 Execute BODY with limited number of outline levels.
(defalias 'org-with-limited-levels '(macro . #[(&rest body) "\301\302\303\304\305\306\307BB\257\207" [body 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)))] 8 (#$ . 12264)]))
(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 #[nil "\305\306!\203\f \307\310!\204 \207 S \203 \n\311_S\202 \n \312\313\f\"*\207" [org-outline-regexp org-inlinetask-min-level limit-level org-odd-levels-only nstars derived-mode-p org-mode featurep org-inlinetask 2 format "\\*\\{1,%d\\} "] 3 (#$ . 12827)])
#@50 Compatibility function replacing format-seconds.
(defalias 'org-format-seconds #[(string seconds) "\302\303!\203 \303 \"\207\304\305 !\"\207" [string seconds fboundp format-seconds format-time-string seconds-to-time] 4 (#$ . 13258)])
(defalias 'org-eval-in-environment '(macro . #[(environment form) "\302\303\304\305 DFD\207" [environment form eval list 'let quote] 6]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put org-eval-in-environment edebug-form-spec (form form) function-put lisp-indent-function 1] 4)
#@175 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.
(defalias 'org-make-parameter-alist #[(flat) "\205 @A@D\301AA!B\207" [flat org-make-parameter-alist] 3 (#$ . 13795)])
#@129 Load FILE with optional arguments NOERROR and MUSTSUFFIX. Drop the MUSTSUFFIX argument for XEmacs, which doesn't recognize it.
(defalias 'org-load-noerror-mustsuffix '(macro . #[(file) "\301\302BB\207" [file load ('noerror nil nil 'mustsuffix)] 3 (#$ . 14099)]))
(provide 'org-macs)
Kontol Shell Bypass