;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\210\300\310\311\303#\210\304\310\311\305#\210\300\312\313\303#\210\304\312\313\305#\207" [defalias mh-require require nil make-obsolete "29.1" mh-assoc-string assoc-string mh-cancel-timer cancel-timer mh-display-color-cells display-color-cells] 4)#@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 "\300\301G\302BBBD\207" [display-completion-list completion-hilit-commonality (nil)] 7 (#$ . 425)]))
(byte-code "\300\301\302\303#\210\304\305\306\302#\210\300\305\306\303#\210\304\307\310\302#\210\300\307\310\303#\210\304\311\312\302#\210\300\311\312\303#\210\304\313\314\302#\210\300\313\314\303#\210\304\315\316\302#\210\300\315\316\303#\210\304\317\320\302#\210\300\317\320\303#\210\304\321\322\302#\210\300\321\322\303#\210\323\324!\210\304\325\326\302#\210\300\325\326\303#\210\304\327\330\302#\210\300\327\330\303#\210\304\331\332\302#\210\300\331\332\303#\210\304\333\334\302#\210\300\333\334\303#\210\304\335\336\302#\210\300\335\336\303#\210\304\337\340\302#\210\300\337\340\303#\207" [make-obsolete mh-display-completion-list nil "29.1" defalias mh-face-foreground face-foreground mh-face-background face-background mh-font-lock-add-keywords font-lock-add-keywords mh-image-load-path-for-library image-load-path-for-library mh-image-search-load-path image-search-load-path mh-line-beginning-position line-beginning-position mh-line-end-position line-end-position require mailabbrev mh-mail-abbrev-make-syntax-table mail-abbrev-make-syntax-table mh-define-obsolete-variable-alias define-obsolete-variable-alias mh-make-obsolete-variable make-obsolete-variable mh-match-string-no-properties match-string-no-properties mh-replace-regexp-in-string replace-regexp-in-string mh-test-completion test-completion] 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) (#$ . 2282))
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\305\306\303#\210\304\311\312\307#\210\310\311\312\303#\210\304\313\314\307#\210\310\313\314\303#\207" [make-obsolete-variable mh-url-unreserved-chars url-unreserved-chars "29.1" defalias mh-url-hexify-string url-hexify-string nil make-obsolete mh-view-mode-enter view-mode-enter mh-window-full-height-p window-full-height-p] 4)#@32 Return `write-file-functions'.
(defalias 'mh-write-file-functions '(macro . #[0 "\300\207" ['write-file-functions] 1 (#$ . 3052)]))
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete mh-write-file-functions nil "29.1" provide mh-compat] 4)