JezK
Edit File: org-compat.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:57 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-compat.el ;;; in Emacs version 24.3.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) (#$ . 605)) #@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@\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 (#$ . 857)]) (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]) #@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)])) (#$ . 2724)) (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 (#$ . 3043)]) #@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 (#$ . 3295)]) #@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@\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 (#$ . 3582)]) #@77 Get the value of the x clipboard, compatible with XEmacs, and GNU Emacs 21. (defalias 'org-get-x-clipboard #[(value) "\302=\205= \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" [window-system value x restricted s org-rm-props org-get-x-clipboard-compat nil fboundp set-text-properties 0 remove-text-properties] 6 (#$ . 3948)]) #@28 Decompose from BEG to END. (defalias 'org-decompose-region #[(beg end) "\302 \"\207" [beg end decompose-region] 3 (#$ . 4366)]) (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 (#$ . 4573)]) #@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 (#$ . 4761)]) (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 (#$ . 5188)]) #@38 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\311\n!\203) \312\313!\210\314\315 \n\315V\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 zerop error "The increment can not be zero" nil 0] 5 (#$ . 5903)]) #@43 To temporarily disable the active region. (defvar org-ignore-region nil (#$ . 6320)) #@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 (#$ . 6411)]) (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\305\302!\205 \304\211\207" [mark-active transient-mark-mode zmacs-regions mark t boundp 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 (#$ . 7114)]) #@48 Is ARG a member of `buffer-invisibility-spec'? (defalias 'org-in-invisibility-spec-p #[(arg) ":\205 \235\207" [buffer-invisibility-spec arg] 2 (#$ . 7368)]) #@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 (#$ . 7535)])) (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 (#$ . 8198)]) #@61 Work around a bug with extents with invisibility in XEmacs. (defalias 'org-indent-line-to #[(column) "\301!\207" [column indent-line-to] 2 (#$ . 8397)]) (defalias 'org-move-to-column #[(column &optional force buffer) "\302 \"\207" [column force move-to-column] 3]) #@48 Get the clipboard value on XEmacs or Emacs 21. (defalias 'org-get-x-clipboard-compat #[(value) "\300\301!\205\n \302\303\304\217\207" [fboundp x-get-selection nil (byte-code "\301\302\"\206 \301\303\"\206 \301\304\"\206 \301\305\"\207" [value x-get-selection UTF8_STRING COMPOUND_TEXT STRING TEXT] 3) ((error))] 3 (#$ . 8670)]) (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 (#$ . 9264)]) (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 (#$ . 9648)]) #@88 Convert time value TIME to a floating point number. TIME defaults to the current time. (defalias 'org-float-time #[(&optional time) "\301!\207" [time float-time] 2 (#$ . 10105)]) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp user-error defalias error] 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 (#$ . 10386)])) (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\300\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 ((byte-code "\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 ((byte-code "\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."]] 3) #@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 (#$ . 12413)]) #@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 (#$ . 12661)]) #@48 Compatibility function for `delete-directory'. (defalias 'org-delete-directory #[(directory &optional recursive) "\204 \302 !\207\303\304\305\217\207" [recursive directory delete-directory nil (delete-directory directory recursive) ((wrong-number-of-arguments (byte-code "\301\302!!\303!\204 \304\305\306\307\310#\"\210\311!\207" [directory 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 "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" delete-directory] 6)))] 3 (#$ . 12954)]) #@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 (#$ . 13590)])) (provide 'org-compat)