ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-compat.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org-macs)
(defconst org-xemacs-p nil)
#@40 Does format transport text properties?
(defconst org-format-transports-properties-p (byte-code "\301\302\303\304\305$\210\306\303\307\310\311\"#)\207" [x "a" add-text-properties 0 1 (test t) get-text-property test format "%s"] 6) (#$ . 458))
#@604 Make a compatible face specification.
If INHERITS is an existing face and if the Emacs version supports it,
just inherit the face. If INHERITS is set and the Emacs version does
not support it, copy the face specification from the inheritance face.
If INHERITS is not given and SPECS is, use SPECS to define the face.
XEmacs and Emacs 21 do not know about the `min-colors' attribute.
For them we convert a (min-colors 8) entry to a `tty' entry and move it
to the top of the list. The `min-colors' attribute will be removed from
any other entries, and any resulting duplicates will be removed entirely.
(defalias 'org-compatible-face #[(inherits specs) "\203 \306!\203 \204 \206 \307N\206 \310N\203A \306!\203A \n\311Y\203A \n\312Y\204; \313\314\315!\"\204A \316\317EC\207\n\311W\203\264 \320\211\211 \211A\242\211\203\260 \f@\321>\203e \f
B\202M \322\f@\235\211\203\200
\323\324 @\f@\"B\fABC\244\210\202M \325\f@\236\211\203\241 \324 \f@\"\fAB\326\f@
\"\204M \f
B\202M \326\f@
\"\204M \f
B\202M
\237+\207 \207" [inherits specs emacs-major-version a e r facep saved-face face-defface-spec 22 23 string-match "\\`outline-[0-9]+" symbol-name t :inherit nil (t default) (min-colors 8) (type tty) delq min-colors assoc] 5 (#$ . 710)])
(put 'org-compatible-face 'lisp-indent-function 1)
(defalias 'org-version-check #[(version feature level) "\306\307\310\311\"\"\306\307\310\n\311\"\" @\206 \312 A@\206 \312 \313 8\206& \312 @\206. \314 A@\2067 \314 \313 8\206@ \314 \fW\204m \fU\203W
W\204m \fU\203\212
U\203\212 W\203\212 \315=?\205\213 \316\317# \320\321#\210)\322\202\213 \322.\207" [version v1 emacs-version v2 rmaj rmin mapcar string-to-number split-string "[.]" 99 2 0 :predicate format "Emacs %s or greater is recommended for %s" display-warning org t rbld maj min bld level feature msg] 5])
#@96 Compatibility function for defvaralias.
Don't do the aliasing when `defvaralias' is not bound.
(defalias 'org-defvaralias #[(new-alias base-variable &optional docstring) "\303\304!\205 \304 \n#\207" [new-alias base-variable docstring fboundp defvaralias] 4 (#$ . 2580)])
(byte-code "\300\301\302\303#\210\304\305!\204 \304\306!\203 \301\305\306\"\210\300\207" [function-put org-defvaralias lisp-indent-function 1 boundp user-emacs-directory user-init-directory] 4)
#@41 Translation alist for a couple of keys.
(defconst org-xemacs-key-equivalents '(([mouse-1] . [button1]) ([mouse-2] . [button2]) ([mouse-3] . [button3]) ([C-mouse-4] . [(control mouse-4)]) ([C-mouse-5] . [(control mouse-5)])) (#$ . 3055))
(defalias 'org-detach-overlay #[(ovl) "\301!\207" [ovl delete-overlay] 2])
#@47 Make overlay OVL display TEXT with face FACE.
(defalias 'org-overlay-display #[(ovl text &optional face evap) "\304\305 #\210\n\203 \304\302\n#\210 \205 \304\306\307#\207" [ovl text face evap overlay-put display evaporate t] 4 (#$ . 3374)])
#@47 Make overlay OVL display TEXT with face FACE.
(defalias 'org-overlay-before-string #[(ovl text &optional face evap) "\203 \304 \305\300$\210\306\n\307 #\210 \205 \306\n\310\311#\207" [face text ovl evap org-add-props nil overlay-put before-string evaporate t] 5 (#$ . 3626)])
#@101 Find all overlays specifying PROP at POS or point.
If DELETE is non-nil, delete all those overlays.
(defalias 'org-find-overlays #[(prop &optional pos delete) "\306\206 `!\307\211 \211A\242\211\203/ \310\n\f\"\203\f
\203( \311\n!\210\202\f \n B\202\f +\207" [pos found ov overlays prop delete overlays-at nil overlay-get delete-overlay] 3 (#$ . 3913)])
#@88 Get the value of the x or Windows clipboard, compatible with XEmacs, and GNU Emacs 21.
(defalias 'org-get-x-clipboard #[(value) "\302=\203> \306 !\211\205< \n\307 \310\311!\203# \311\312\fG\307\f$\210\202: \2032 \313\312\fG
\f$\210\202: \311\312\fG\307\f$\210\f*)\207\314=\205L \310\315!\205L \315 \207" [window-system value x restricted s org-rm-props org-get-x-clipboard-compat nil fboundp set-text-properties 0 remove-text-properties w32 w32-get-clipboard-data] 6 (#$ . 4282)])
#@28 Decompose from BEG to END.
(defalias 'org-decompose-region #[(beg end) "\302 \"\207" [beg end decompose-region] 3 (#$ . 4774)])
(put 'org-decompose-region 'byte-optimizer 'byte-compile-inline-expand)
#@41 Add-hook, compatible with both Emacsen.
(defalias 'org-add-hook #[(hook function &optional append local) "\210\304 \n $\207" [local hook function append add-hook] 5 (#$ . 4981)])
#@208 Add text properties to entire string, from beginning to end.
PLIST may be a list of properties, PROPS are individual properties and values
that will be added to PLIST. Returns the string that was modified.
(defalias 'org-add-props #[(string plist &rest props) "\303\304G \203 \305\n \"\202 \n$\210\207" [string props plist add-text-properties 0 append] 6 (#$ . 5169)])
(put 'org-add-props 'lisp-indent-function 2)
#@303 Fit WINDOW to the buffer, but only if it is not a side-by-side window.
WINDOW defaults to the selected window. MAX-HEIGHT and MIN-HEIGHT are
passed through to `fit-window-to-buffer'. If SHRINK-ONLY is set, call
`shrink-window-if-larger-than-buffer' instead, the height limit is
ignored in this case.
(defalias 'org-fit-window-to-buffer #[(&optional window max-height min-height shrink-only) "\304\305!\203
\305!?\202 \306 \307!V\2043 \304\310!\203) \204) \310\n #\210\2023 \304\311!\2033 \311!\210\2069 \312 \207" [window shrink-only max-height min-height fboundp window-full-width-p frame-width window-width fit-window-to-buffer shrink-window-if-larger-than-buffer selected-window] 4 (#$ . 5596)])
#@39 Call `number-sequence' or emulate it.
(defalias 'org-number-sequence #[(from &optional to inc) "\306\307!\203\f \307 \n#\207 \203 U\203 C\207\n\204 \310\n\311U\203) \312\313!\210\314\311 \n\311V\203L X\203c
B\fT\f\n_\\\211\2026 Y\203c
B\fT\f\n_\\\211\202M
\237+\207" [from to inc next n seq fboundp number-sequence 1 0 error "The increment can not be zero" nil] 5 (#$ . 6311)])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias org-set-transient-map fboundp set-transient-map set-temporary-overlay-map] 4)
#@54 Non-nil means temporarily disable the active region.
(defvar org-ignore-region nil (#$ . 6869))
#@84 Is `transient-mark-mode' on and the region active?
Works on both Emacs and XEmacs.
(defalias 'org-region-active-p #[nil "?\205 \303\304!\203 \304 \207 \205 \n\207" [org-ignore-region transient-mark-mode mark-active fboundp use-region-p] 2 (#$ . 6971)])
(defalias 'org-cursor-to-region-beginning #[nil "\300 \205 `\301 V\205 \302 \207" [org-region-active-p region-beginning exchange-point-and-mark] 2])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp activate-mark defalias org-activate-mark #[nil "\303\304!\205! \304\305\301!\203 \204 \306\301!\210\307\305\302!\205! \304\211\207" [mark-active transient-mark-mode zmacs-regions mark t boundp make-local-variable lambda] 2]] 3)
#@50 Remove elements from `buffer-invisibility-spec'.
(defalias 'org-remove-from-invisibility-spec #[(arg) "\302\303!\203\n \303!\207 :\205 \304 \"\211\207" [arg buffer-invisibility-spec fboundp remove-from-invisibility-spec delete] 3 (#$ . 7707)])
#@48 Is ARG a member of `buffer-invisibility-spec'?
(defalias 'org-in-invisibility-spec-p #[(arg) ":\205 \235\207" [buffer-invisibility-spec arg] 2 (#$ . 7961)])
#@58 Turn off extents with invisibility while executing BODY.
(defalias 'org-xemacs-without-invisibility '(macro . #[(&rest body) "\301\302\303\304\305\"BBB\207" [body let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) 'all-extents-closed-open 'invisible)) ext-inv-specs) (dolist (ext ext-inv) (when (extent-property ext 'invisible) (add-to-list 'ext-inv-specs (list ext (extent-property ext 'invisible))) (set-extent-property ext 'invisible nil))) append ((dolist (ext-inv-spec ext-inv-specs) (set-extent-property (car ext-inv-spec) 'invisible (cadr ext-inv-spec))))] 6 (#$ . 8128)]))
(put 'org-xemacs-without-invisibility 'edebug-form-spec '(body))
#@61 Work around a bug with extents with invisibility in XEmacs.
(defalias 'org-indent-to-column #[(column &optional minimum buffer) "\302 \"\207" [column minimum indent-to-column] 3 (#$ . 8791)])
#@61 Work around a bug with extents with invisibility in XEmacs.
(defalias 'org-indent-line-to #[(column) "\301!\207" [column indent-line-to] 2 (#$ . 8990)])
#@122 Move to column COLUMN.
Pass COLUMN and FORCE to `move-to-column'.
Pass BUFFER to the XEmacs version of `move-to-column'.
(defalias 'org-move-to-column #[(column &optional force buffer) "\303\304\"\305 \n\")\207" [buffer-invisibility-spec column force remove (org-filtered) move-to-column] 3 (#$ . 9151)])
#@48 Get the clipboard value on XEmacs or Emacs 21.
(defalias 'org-get-x-clipboard-compat #[(value) "\301\302!\205' \3031% \302\304\"\206# \302\305\"\206# \302\306\"\206# \302\307\"0\207\210\310\207" [value fboundp x-get-selection (error) UTF8_STRING COMPOUND_TEXT STRING TEXT nil] 3 (#$ . 9464)])
(defalias 'org-propertize #[(string &rest properties) "\302\303 #\207" [string properties apply propertize] 4])
(defalias 'org-find-library-dir '(macro . #[(library) "\301\302\303D\304BBD\207" [library file-name-directory or locate-library ("")] 4]))
#@29 How many lines in string S?
(defalias 'org-count-lines #[(s) "\303\304\305\306\n #\203 \303\225T\202 \nG\303V\203) \n\211GSH\307U\203) S*\207" [n start s 0 1 string-match "\n" 10] 4 (#$ . 10020)])
(defalias 'org-kill-new #[(string &rest args) "\302\303G\304$\210\305\306 #\207" [string args remove-text-properties 0 (line-prefix t wrap-prefix t) apply kill-new] 5])
#@59 Select FRAME, raise it, and set input focus, if possible.
(defalias 'org-select-frame-set-input-focus #[(frame) "\304Y\203\n \305 !\207\306 !\210\307 !\210\n\310>\203 \311 !\210\202) \n\312=\203) \313 !\210 \2055 \314 \315 !S\316#\207" [emacs-major-version frame window-system focus-follows-mouse 22 select-frame-set-input-focus raise-frame select-frame (x ns mac) x-focus-frame w32 w32-focus-frame set-mouse-position frame-width 0] 4 (#$ . 10405)])
(byte-code "\300\301\302\"\210\303\304!\204 \300\304\305\"\210\303\306!\204 \300\306\307\"\210\300\207" [defalias org-float-time float-time fboundp user-error error format-message format] 3)
#@152 Suppress popup windows.
Let-bind some variables to nil around BODY to achieve the desired
effect, which variables to use depends on the Emacs version.
(defalias 'org-no-popups '(macro . #[(&rest body) "\301\302\303\304#\203 \305\306BB\207\305\307BB\207" [body org-version-check "24.2.50" "" :predicate let (pop-up-frames display-buffer-alist) (pop-up-frames special-display-buffer-names special-display-regexps special-display-function)] 4 (#$ . 11057)]))
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\203! \302\306\305\"\210\202& \302\306\307\"\210\300\310!\2034 \302\311\310\"\210\2029 \302\311\312\"\210\302\313\300\314!\203E \314\202F \315\"\207" [fboundp string-match-p defalias org-string-match-p #[(regexp string &optional start) "\304 \305\216\306 \n #*\207" [save-match-data-internal regexp string start match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match] 4] looking-at-p org-looking-at-p #[(&rest args) "\302 \303\216\304\305 \"*\207" [save-match-data-internal args match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply looking-at] 3] looking-back org-looking-back #[(regexp &optional limit greedy) "`\212\305\306\307Q \310#\205 `)\f\203H \n\203H \214e }\210\neV\203< \212\nb\210\311u\210\312\306\313Q!)\203< \nS\211\202 \212\nb\210\312\306\313Q!\210*\n*??\207" [regexp limit pos start greedy re-search-backward "\\(?:" "\\)\\=" t -1 looking-at "\\)\\'"] 6 "Return non-nil if text before point matches regular expression REGEXP.\nLike `looking-at' except matches before point, and is slower.\nLIMIT if non-nil speeds up the search by specifying a minimum\nstarting position, to avoid checking matches that would start\nbefore LIMIT.\n\nIf GREEDY is non-nil, extend the match backwards as far as\npossible, stopping when a single additional previous character\ncannot be part of a match for REGEXP. When the match is\nextended, its starting position is allowed to occur before\nLIMIT."] org-font-lock-ensure font-lock-ensure #[(&optional _beg _end) "\300 \207" [font-lock-fontify-buffer] 1]] 4)
#@129 Return a list of the floor of X and the fractional part of X.
With two arguments, return floor and remainder of their quotient.
(defalias 'org-floor* #[(x &optional y) "\303 \"\211 \203 \n_\202 \nZ)D\207" [x y q floor] 5 (#$ . 13209)])
#@67 Pop to buffer specified by BUFFER-OR-NAME in the selected window.
(defalias 'org-pop-to-buffer-same-window #[(&optional buffer-or-name norecord label) "\302\303!\203 \303 \"\207\304 \"\207" [buffer-or-name norecord fboundp pop-to-buffer-same-window switch-to-buffer] 3 (#$ . 13457)])
#@48 Compatibility function for `delete-directory'.
(defalias 'org-delete-directory #[(directory &optional recursive) "\204 \302 !\207\3031 \302 \"0\207\210\304\305 !!\306 !\204( \307\310\311 \312\313#\"\210\302 !\207" [recursive directory delete-directory (wrong-number-of-arguments) directory-file-name expand-file-name file-symlink-p mapc #[(file) "\302!@\303=\203 \304 \"\207\305!\207" [file recursive file-attributes t org-delete-directory delete-file] 3] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"] 6 (#$ . 13750)])
#@52 Try very hard to provide sensible version strings.
(defalias 'org-check-version '(macro . #[nil "\303\304\305!\206 \306!\211\307P\310P\311\312 \313#\203 \314\202/ \311\315\n\313#\203* \316\202/ \317\320!\210\321+\207" [org-dir org-version\.el org-fixup\.el file-name-directory locate-library "org" "" "org-version.el" "../mk/org-fixup.el" require org-version noerror (progn (autoload 'org-release "org-version.el") (autoload 'org-git-version "org-version.el")) org-fixup (org-fixup) warn "Could not define org version correctly. Check installation!" (progn (defun org-release nil "N/A") (defun org-git-version nil "N/A !!check installation!!"))] 5 (#$ . 14299)]))
#@99 Return t if files F1 and F2 are the same.
Implements `file-equal-p' for older emacsen and XEmacs.
(defalias 'org-file-equal-p #[(f1 f2) "\304\305!\203 \305 \"\207\306\211\307\310!!\211\205& \307\310 !!\211\205& \n\232*\207" [f1 f2 f2-attr f1-attr fboundp file-equal-p nil file-attributes file-truename] 3 (#$ . 14976)])
#@49 Compatibility function for `buffer-narrowed-p'.
(defalias 'org-buffer-narrowed-p #[nil "\300\301!\203 deZ\302 U?\207deZ\302 U?\207" [fboundp buffer-narrowed-p buffer-size] 2 (#$ . 15310)])
(defalias 'org-with-silent-modifications '(macro . #[(&rest body) "\301\302!\203\n \302B\207\303B\207" [body fboundp with-silent-modifications org-unmodified] 2]))
(byte-code "\300\301\302\303#\210\304\305!\207" [put org-with-silent-modifications edebug-form-spec (body) provide org-compat] 4)
Kontol Shell Bypass