;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 #[771 "\211\203\300\301!\203\301\"\207\302\"\207" [fboundp assoc-ignore-case assoc] 6 "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.\n\n(fn KEY LIST CASE-FOLD)"] 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 . #[385 "\300\301!\203\301\302\303\"BB\207\304BB\207" [fboundp cl-letf mapcar #[257 "\300\301@DD\302ABD\207" [symbol-function quote lambda] 4 "\n\n(fn BINDING)"] flet] 6 (#$ . 617)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-flet lisp-indent-function 1 put edebug-form-spec ((&rest (sexp sexp &rest form)) &rest form)] 5)
#@316 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.

(fn &optional DISPLAY)
(defalias 'mh-display-color-cells #[256 "\300\301!\203\301
!\206\302\207\300\303!\203\303
!\206\302\207\302\207" [fboundp display-color-cells 2 device-color-cells] 3 (#$ . 1224)])
#@378 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.

(fn COMPLETIONS &optional COMMON-SUBSTRING)
(defalias 'mh-display-completion-list '(macro . #[513 "\301W\203\n\302D\207\303\304!\203\302\304G\305BBBD\207\302E\207" [emacs-major-version 22 display-completion-list fboundp completion-hilit-commonality (nil)] 7 (#$ . 1734)]))
#@302 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.

(fn FACE &optional FRAME INHERIT)
(defalias 'mh-face-foreground '(macro . #[769 "\301W\203\302E\207\302F\207" [emacs-major-version 22 face-foreground] 7 (#$ . 2356)]))
#@294 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.

(fn FACE &optional FRAME INHERIT)
(defalias 'mh-face-background '(macro . #[769 "\301W\203\302E\207\302F\207" [emacs-major-version 22 face-background] 7 (#$ . 2806)]))
(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 #[770 "\300\207" ["XEmacs does not have `font-lock-add-keywords'.\nThis function returns nil on that system."] 4 "XEmacs does not have `font-lock-add-keywords'.\nThis function returns nil on that system.\n\n(fn MODE KEYWORDS &optional HOW)"] mh-image-load-path-for-library image-load-path-for-library #[1026 "\204\302\303!\210\204\302\304!\210\305\211\306!\206\307!\305
\203?\310!\262\310!\211\262\203?\311
!\262\312\313\"\262\202(
\266\204\211\203W\211\314\312\315\"!\232\204W\211\262\202\302\305\211\211\307	!\262\204j\302\316\n\"\210\314\312\310!\317P!!\262
\314\312\310!\320P!!\262\321\312	\"!\203\216\211\202\231\321\312	\"!\205\231
\211\262\266\203\204\302\211\203\253\211\262\202\302\203\272\322\323#\210\202\302\302\323#\210
C\324\325\206\315	!\"\244\207" [data-directory load-path 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] 13 "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))\n\n(fn LIBRARY IMAGE &optional PATH NO-ERROR)"] mh-image-search-load-path image-search-load-path #[513 "\300\207" [nil] 3 "Emacs 21 and XEmacs don't have `image-search-load-path'.\nThis function returns nil on those systems.\n\n(fn FILE &optional PATH)"] 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 #[0 "\300\207" [nil] 1 "Emacs 21 and XEmacs don't have `mail-abbrev-make-syntax-table'.\nThis function returns nil on those systems."]] 4)
#@355 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.

(fn OBSOLETE-NAME CURRENT-NAME &optional WHEN DOCSTRING)
(defalias 'mh-define-obsolete-variable-alias '(macro . #[1026 "\300\257\207" [define-obsolete-variable-alias] 9 (#$ . 6653)]))
#@406 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.

(fn OBSOLETE-NAME CURRENT-NAME &optional WHEN ACCESS-TYPE)
(defalias 'mh-make-obsolete-variable '(macro . #[1026 "\301W\203\f\302F\207\302\257\207" [emacs-major-version 24 make-obsolete-variable] 9 (#$ . 7146)]))
(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 #[513 "\300\224\225\"\207" [buffer-substring-no-properties] 5 "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.\n\n(fn NUM &optional STRING)"] mh-replace-regexp-in-string replace-regexp-in-string #[1795 "\300\207" [nil] 8 "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.\n\n(fn REGEXP REP STRING &optional FIXEDCASE LITERAL SUBEXP START)"] mh-test-completion test-completion #[770 "\300\207" [nil] 4 "Return non-nil if STRING is a valid completion.\nXEmacs does not have `test-completion'. This function returns nil\non that system.\n\n(fn STRING COLLECTION &optional PREDICATE)"]] 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) (#$ . 8946))
(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 #[257 "\300\301\302\"\303#\207" [mapconcat make-closure #[257 "\211	>\204\211\302V\203\303\304\300\"\207\305\306\"\207\307
!\207" [V0 mh-url-unreserved-chars 255 error "Hexifying multibyte character %s" format "%%%02X" char-to-string] 4 "\n\n(fn CHAR)"] ""] 5 "Escape characters in a string.\nThis is a copy of `url-hexify-string' from url-util.el in Emacs\n22; needed by Emacs 21.\n\n(fn STR)"] mh-view-mode-enter view-mode-enter #[512 "\300\301!\207" [view-mode 1] 4 "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.\n\n(fn &optional RETURN-TO EXIT-ACTION)"] mh-window-full-height-p window-full-height-p #[256 "\300 T\301 U\207" [window-height frame-height] 3 "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.\n\n(fn &optional WINDOW)"]] 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 . #[0 "\300\301!\203\302\207\303\207" [boundp write-file-functions 'write-file-functions 'local-write-file-hooks] 2 (#$ . 10617)]))
(provide 'mh-compat)