Current File : //usr/local/share/emacs/27.2/lisp/mh-e/mh-compat.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300\301\302\"\210\300\303\304\305!\203 \305\202 \306\"\210\300\307\304\310!\203 \310\202! \311\"\207" [defalias mh-require require mh-assoc-string fboundp assoc-string #[(key list case-fold) "\203 \303\304!\203 \304 \n\"\207\305 \n\"\207" [case-fold key list fboundp assoc-ignore-case assoc] 3 "Like `assoc' but specifically for strings.\nCase is ignored if CASE-FOLD is non-nil.\nThis function is used by Emacs versions that lack `assoc-string',\nintroduced in Emacs 22."] mh-cancel-timer cancel-timer delete-itimer] 4)
#@216 Make temporary overriding function definitions.
This is an analogue of a dynamically scoped `let' that operates on
the function cell of FUNCs rather than their value cell.
(fn ((FUNC ARGLIST BODY...) ...) FORM...)
(defalias 'mh-flet '(macro . #[(bindings &rest body) "\302\303!\203 \303\304\305\" BB\207\306 BB\207" [bindings body fboundp cl-letf mapcar #[(binding) "\301\302@DD\303ABD\207" [binding symbol-function quote lambda] 3] flet] 4 (#$ . 949)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mh-flet lisp-indent-function 1 edebug-form-spec ((&rest (sexp sexp &rest form)) &rest form)] 4)
#@292 Return the number of color cells supported by DISPLAY.
This function is used by XEmacs to return 2 when `device-color-cells'
or `display-color-cells' returns nil. This happens when compiling or
running on a tty and causes errors since `display-color-cells' is
expected to return an integer.
(defalias 'mh-display-color-cells #[(&optional display) "\301\302!\203 \302!\206 \303\207\301\304!\203 \304!\206 \303\207\303\207" [display fboundp display-color-cells 2 device-color-cells] 2 (#$ . 1574)])
#@333 Display the list of COMPLETIONS.
See documentation for `display-completion-list' for a description of the
arguments COMPLETIONS.
The optional argument COMMON-SUBSTRING, if non-nil, should be a string
specifying a common substring for adding the faces
`completions-first-difference' and `completions-common-part' to
the completions.
(defalias 'mh-display-completion-list '(macro . #[(completions &optional common-substring) "\303W\203\n \304 D\207\305\306!\203 \304\306 \nG\307BBBD\207\304 \nE\207" [emacs-major-version completions common-substring 22 display-completion-list fboundp completion-hilit-commonality (nil)] 5 (#$ . 2084)]))
#@267 Return the foreground color name of FACE, or nil if unspecified.
See documentation for `face-foreground' for a description of the
arguments FACE, FRAME, and perhaps INHERIT.
This macro is used by Emacs versions that lack an INHERIT argument,
introduced in Emacs 22.
(defalias 'mh-face-foreground '(macro . #[(face &optional frame inherit) "\304W\203 \305 \nE\207\305 \n F\207" [emacs-major-version face frame inherit 22 face-foreground] 4 (#$ . 2729)]))
#@259 Return the background color name of face, or nil if unspecified.
See documentation for `face-background' for a description of the
arguments FACE, FRAME, and INHERIT.
This macro is used by Emacs versions that lack an INHERIT argument,
introduced in Emacs 22.
(defalias 'mh-face-background '(macro . #[(face &optional frame inherit) "\304W\203 \305 \nE\207\305 \n F\207" [emacs-major-version face frame inherit 22 face-background] 4 (#$ . 3192)]))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\210\300\313\302\314!\2039 \314\202: \315\"\210\300\316\302\317!\203H \317\202I \320\"\210\321\322\323\324#\210\300\325\302\326!\203] \326\202^ \327\"\207" [defalias mh-font-lock-add-keywords fboundp font-lock-add-keywords #[(_mode _keywords &optional _how) "\300\207" [#1="XEmacs does not have `font-lock-add-keywords'.\nThis function returns nil on that system."] 1 #1#] mh-image-load-path-for-library image-load-path-for-library #[(library image &optional path no-error) "\204 \306\307!\210 \204 \306\310!\210\311\211 \312 !\206 \313 !\311
\203A \314
!\314!\211\203A \315\f!\316\317
\"\202+
+\n\203Y \n\320\316\321\"!\232\204Y \n\202\306 \311\211\211 \313!\211 \204p \306\322\"\210\320\316\314 !\323P!! \320\316\314 !\324P!! \325\316 \"!\203\227 \202\243 \325\316 \"!\205\243 \211+\204\306 \n\203\262 \n\202\306 \203\300 \326\327 #\210\202\306 \306\327 #\210 C\330 \331 \206\322 !!\"\244*\207" [library image image-directory-load-path image-directory parent dir error "No library specified" "No image specified" nil mh-image-search-load-path locate-library file-name-directory directory-file-name expand-file-name "../" file-name-as-directory "images" "Cannot find library %s in load-path" "../../etc/images" "../etc/images" file-exists-p message "Could not find image %s for library %s" delete copy-sequence img data-directory d2ei d1ei library-name no-error path load-path] 6 "Return a suitable search path for images used by LIBRARY.\n\nIt searches for IMAGE in `image-load-path' (excluding\n\"`data-directory'/images\") and `load-path', followed by a path\nsuitable for LIBRARY, which includes \"../../etc/images\" and\n\"../etc/images\" relative to the library file itself, and then\nin \"`data-directory'/images\".\n\nThen this function returns a list of directories which contains\nfirst the directory in which IMAGE was found, followed by the\nvalue of `load-path'. If PATH is given, it is used instead of\n`load-path'.\n\nIf NO-ERROR is non-nil and a suitable path can't be found, don't\nsignal an error. Instead, return a list of directories as before,\nexcept that nil appears in place of the image directory.\n\nHere is an example that uses a common idiom to provide\ncompatibility with versions of Emacs that lack the variable\n`image-load-path':\n\n ;; Shush compiler.\n (defvar image-load-path)\n\n (let* ((load-path (image-load-path-for-library \"mh-e\" \"mh-logo.xpm\"))\n (image-load-path (cons (car load-path)\n (when (boundp \\='image-load-path)\n image-load-path))))\n (mh-tool-bar-folder-buttons-init))"] mh-image-search-load-path image-search-load-path #[(_file &optional _path) "\300\207" [nil] 1 "Emacs 21 and XEmacs don't have `image-search-load-path'.\nThis function returns nil on those systems."] mh-line-beginning-position line-beginning-position point-at-bol mh-line-end-position line-end-position point-at-eol mh-require mailabbrev nil t mh-mail-abbrev-make-syntax-table mail-abbrev-make-syntax-table #[nil "\300\207" [nil] 1 "Emacs 21 and XEmacs don't have `mail-abbrev-make-syntax-table'.\nThis function returns nil on those systems."]] 4)
#@297 Make OBSOLETE-NAME a variable alias for CURRENT-NAME and mark it obsolete.
See documentation for `define-obsolete-variable-alias' for a description
of the arguments OBSOLETE-NAME, CURRENT-NAME, and perhaps WHEN
and DOCSTRING. This macro is used by XEmacs that lacks WHEN and
DOCSTRING arguments.
(defalias 'mh-define-obsolete-variable-alias '(macro . #[(obsolete-name current-name &optional when docstring) "\304 \n \257\207" [obsolete-name current-name when docstring define-obsolete-variable-alias] 5 (#$ . 7004)]))
#@346 Make the byte-compiler warn that OBSOLETE-NAME is obsolete.
See documentation for `make-obsolete-variable' for a description
of the arguments OBSOLETE-NAME, CURRENT-NAME, and perhaps WHEN
and ACCESS-TYPE. This macro is used by XEmacs that lacks WHEN and
ACCESS-TYPE arguments and by Emacs versions that lack ACCESS-TYPE,
introduced in Emacs 24.
(defalias 'mh-make-obsolete-variable '(macro . #[(obsolete-name current-name &optional when access-type) "\305W\203\f \306 \n F\207\306 \n \f\257\207" [emacs-major-version obsolete-name current-name when access-type 24 make-obsolete-variable] 5 (#$ . 7531)]))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\207" [defalias mh-match-string-no-properties fboundp match-string-no-properties #[(num &optional _string) "\301\224\225\"\207" [num buffer-substring-no-properties] 3 "Return string of text matched by last search, without text properties.\nThis function is used by XEmacs that lacks `match-string-no-properties'.\nThe function `buffer-substring-no-properties' is used instead.\nThe argument STRING is ignored."] mh-replace-regexp-in-string replace-regexp-in-string #[(regexp rep string &optional _fixedcase literal _subexp _start) "\300\207" [nil] 1 "Replace REGEXP with REP everywhere in STRING and return result.\nThis function is used by XEmacs that lacks `replace-regexp-in-string'.\nThe function `replace-in-string' is used instead.\nThe arguments FIXEDCASE, SUBEXP, and START, used by\n`replace-in-string' are ignored."] mh-test-completion test-completion #[(_string _collection &optional _predicate) "\300\207" [nil] 1 "Return non-nil if STRING is a valid completion.\nXEmacs does not have `test-completion'. This function returns nil\non that system."]] 4)
#@92 A list of characters that are _NOT_ reserved in the URL spec.
This is taken from RFC 2396.
(defconst mh-url-unreserved-chars '(97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 48 49 50 51 52 53 54 55 56 57 45 95 46 33 126 42 39 40 41) (#$ . 9349))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\207" [defalias mh-url-hexify-string fboundp url-hexify-string #[(str) "\301\302\303#\207" [str mapconcat #[(char) " >\204 \303V\203 \304\305\n\"\207\306\307\"\207\310!\207" [char mh-url-unreserved-chars str 255 error "Hexifying multibyte character %s" format "%%%02X" char-to-string] 3] ""] 4 "Escape characters in a string.\nThis is a copy of `url-hexify-string' from url-util.el in Emacs\n22; needed by Emacs 21."] mh-view-mode-enter view-mode-enter #[(&optional return-to exit-action) "\210 \210\302\303!\207" [return-to exit-action view-mode 1] 2 "Enter View mode.\nThis function is used by XEmacs that lacks `view-mode-enter'.\nThe function `view-mode' is used instead.\nThe arguments RETURN-TO and EXIT-ACTION are ignored."] mh-window-full-height-p window-full-height-p #[(&optional _window) "\300 T\301 U\207" [window-height frame-height] 2 "Return non-nil if WINDOW is not the result of a vertical split.\nThis function is defined in XEmacs as it lacks\n`window-full-height-p'. The values of the functions\n`window-height' and `frame-height' are compared instead. The\nargument WINDOW is ignored."]] 4)
#@235 Return `write-file-functions' if it exists.
Otherwise return `local-write-file-hooks'.
This macro exists purely for compatibility. The former symbol is used
in Emacs 22 onward while the latter is used in previous versions and
XEmacs.
(defalias 'mh-write-file-functions '(macro . #[nil "\300\301!\203 \302\207\303\207" [boundp write-file-functions 'write-file-functions 'local-write-file-hooks] 2 (#$ . 10992)]))
(provide 'mh-compat)
Mini Shell