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



(require 'electric)
(defvar electric-help-form-to-execute nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\210\324\325\326\327#\207" [custom-declare-group electric-help nil "Electric help facility." :version "21.1" :group help custom-declare-variable electric-help-shrink-window funcall function #[0 "\300\207" [t] 1 #1=""] "If set, adjust help window sizes to buffer sizes when displaying help." :type boolean electric-help-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run by `with-electric-help' after initializing the buffer." hook put electric-help-undefined suppress-keymap t] 8)
#@61 Keymap defining commands available in `electric-help-mode'.
(defvar electric-help-map (byte-code "\302 \303
\"\210\304
!\210\305
\306\307#\210\305
\310\307#\210\305
\311\307#\210\305
\312\307#\210\305
\313\307#\210\305
\314\307#\210\305
\315\307#\210\305
\316\307#\210\305
\317\307#\210\305
\320\307#\210\305
\321\307#\210\305
\322	!\323#\210\305
\324\323#\210\305
\325\326#\210\305
\327\330#\210\305
\331\330#\210\305
\332\333#\210\305
\334\333#\210\305
\335\336#\210\305
\337\340#\210\305
\341\340#\210\305
\342\343#\210\305
\344\343#\210\305
\345\346#\210\305
\347\350#\210\207" [button-buffer-map help-char make-keymap set-keymap-parent suppress-keymap define-key "" electric-help-undefined [67108912] [67108913] [67108914] [67108915] [67108916] [67108917] [67108918] [67108919] [67108920] [67108921] char-to-string electric-help-help "?" " " scroll-up [33554464] scroll-down "" "." beginning-of-buffer "<" ">" end-of-buffer "Q" electric-help-exit "q" "R" electric-help-retain "r" "x" electric-help-execute-extended "" electric-help-ctrl-x-prefix] 5) (#$ . 767))
(defvar electric-help-orig-major-mode nil nil)
(make-variable-buffer-local 'electric-help-orig-major-mode)
#@142 `with-electric-help' temporarily places its buffer in this mode.
(On exit from `with-electric-help', the original `major-mode' is restored.)
(defalias 'electric-help-mode #[0 "\306	\307\310\311\312
!\210\313\314\315\"\210\316\317!\207" [buffer-read-only major-mode electric-help-orig-major-mode mode-name mode-line-buffer-identification electric-help-map t "Help" help-mode (" Help:  %b") use-local-map add-hook mouse-leave-buffer-hook electric-help-retain view-mode -1] 3 (#$ . 1953)])
#@1169 Pop up an "electric" help buffer.
THUNK is a function of no arguments which is called to initialize the
contents of BUFFER.  BUFFER defaults to `*Help*'.  BUFFER will be
erased before THUNK is called unless NOERASE is non-nil.  THUNK will
be called while BUFFER is current and with `standard-output' bound to
the buffer specified by BUFFER.

If THUNK returns nil, we display BUFFER starting at the top, and shrink
the window to fit.  If THUNK returns non-nil, we don't do those things.

After THUNK has been called, this function "electrically" pops up a
window in which BUFFER is displayed and allows the user to scroll
through that buffer in `electric-help-mode'.  The window's height will
be at least MINHEIGHT if this value is non-nil.

If THUNK returns nil, we display BUFFER starting at the top, and
shrink the window to fit if `electric-help-shrink-window' is non-nil.
If THUNK returns non-nil, we don't do those things.

When the user exits (with `electric-help-exit', or otherwise), the help
buffer's window disappears (i.e., we use `save-window-excursion'), and
BUFFER is put back into its original major mode.

(fn THUNK &optional BUFFER NOERASE MINHEIGHT)
(defalias 'with-electric-help #[1025 "C\211\306\242\206\n\307!\240\210\310\311!\312 C\313C\313\314\315$\216\212\203'\316 b\210\311\317\242!\210)r\242q\210\203F\320 W\203F\321\320 Z!\210\322 \210\313\204R\323 \210)\242 \204r\242q\210\324\313!\210eb\210\203r\f\203r\325 \210)\242q\210\326\327!\210\311\330 \242\331=\203\215
\312 \240\210\202\221\211\311\240\210\332
>\205\233\333\305\332\"+\207" [electric-help-form-to-execute pop-up-windows buffer-read-only standard-output electric-help-shrink-window mouse-leave-buffer-hook get-buffer-create "*Help*" one-window-p t current-window-configuration nil make-closure #[0 "\306\307!\210\300\242q\210\310\3111\f\206\312 0\210\202\210\313\301\242!\210\302\242\203.\314\300\242!\210\315\300\242!\210\316
!\2037
 \207\317
!\207" [V0 V1 V2 buffer-read-only electric-help-orig-major-mode electric-help-form-to-execute message "" nil (error) fundamental-mode set-window-configuration replace-buffer-in-windows bury-buffer functionp eval] 2] window-start pop-to-buffer window-height enlarge-window electric-help-mode erase-buffer set-buffer-modified-p shrink-window-if-larger-than-buffer run-hooks electric-help-mode-hook electric-help-command-loop retain electric-help-retain remove-hook] 13 (#$ . 2453)])
(defalias 'electric-help-command-loop #[0 "\3012i\302d!\203'\303\304\305\306!\"\210\307 \211\310=\203\"\311\301\312\"\266\202'\211B\210\313C\313C\313C\313C\314\315\313\312#\316=\205T\314\317\313\312#\320=\205T\314\321\313\312#\322=\205T\314\323\313\312#\324=\325\301\326\327&\312#\266\2050\207" [unread-command-events exit pos-visible-in-window-p message "%s" substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>" read-event 32 throw t nil key-binding " " scroll-up "" scroll-down "q" electric-help-exit "r" electric-help-retain Electric-command-loop make-closure #[0 "\306\307!\210\310e!\310dS!
\203\311\207
\203*\211\203*\304\203\312\207\303\242\206d\303\313\314!\240\207
\203?\304\2034\315\207\300\242\206d\300\313\316!\240\207\211\203T\304\203I\317\207\301\242\206d\301\313\320!\240\207\304\203Z\321\207\302\242\206d\302\313\322!\240\207" [V0 V1 V2 V3 V4 isearch-mode sit-for 0 pos-visible-in-window-p noprompt "Press q to exit, r to retain " substitute-command-keys "Press \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press SPC to scroll, q to exit, r to retain " "Press \\[scroll-up] to scroll, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press DEL to scroll back, q to exit, r to retain " "Press \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press SPC to scroll, DEL to scroll back, q to exit, r to retain " "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "] 5]] 14])
#@116 Exit `with-electric-help', restoring the previous window/buffer configuration.
(The *Help* buffer will be buried.)
(defalias 'electric-help-exit #[0 "\301>\205\302\300\301\"\210\303\304\305\"\207" [mouse-leave-buffer-hook electric-help-retain remove-hook throw exit t] 3 (#$ . 6578) nil])
#@178 Exit `with-electric-help', retaining the current window/buffer configuration.
(The *Help* buffer will not be selected, but \[switch-to-buffer-other-window] RET
will select it.)
(defalias 'electric-help-retain #[0 "\301>\205\302\300\301\"\210\303\304\305\"\207" [mouse-leave-buffer-hook electric-help-retain remove-hook throw exit (retain)] 3 (#$ . 6877) nil])
(defalias 'electric-help-undefined #[0 "\300\301\302\303\304 \305#\306\307\310\311#\312=\203\307\202\313\314!#\207" [error "%s is undefined -- Press %s to exit" mapconcat single-key-description this-command-keys " " key-binding "q" nil t electric-help-exit substitute-command-keys "\\[electric-help-exit]"] 7 nil nil])
(defalias 'electric-help-help #[0 "\300\301\302\303#\304=\203/\300\305\302\303#\306=\203/\300\307\302\303#\310=\203/\300\311\302\303#\312=\203/\313\314!\210\2026\313\315\316\317!\"\210\320\321!\207" [key-binding "q" nil t electric-help-exit " " scroll-up "" scroll-down "r" electric-help-retain message "SPC scrolls up, DEL scrolls down, q exits burying help buffer, r exits" "%s" substitute-command-keys "\\[scroll-up] scrolls up, \\[scroll-down] scrolls down, \\[electric-help-exit] exits burying help buffer, \\[electric-help-retain] exits" sit-for 2] 4 nil nil])
#@27 

(fn FUN &optional NAME)
(defalias 'electric-helpify #[513 "\211\206\300\301 \302\303\"\216\304K\305!C\306
\242!
\242\203&\307\242!\204&
\310\240\210\302\311$\216\312\313\314\315\n!!\"\210
\242\203Fr
\242q\210\316\317!\210)\304\320M\210\321!\210\305!\205t\307\305!!\205t
\242?\206t
\242\305!=?\206t\306\242!?)\266\203)\262
\205\202\322\320\317#\207" ["*Help*" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] help-print-return-message get-buffer buffer-modified-p get-buffer-window nil #[0 "\303\300M\210\301\242\205\304\301\242!\205r\301\242q\210\305\302!)\207" [V0 V1 V2 help-print-return-message buffer-name set-buffer-modified-p] 2] message "%s..." capitalize symbol-name set-buffer-modified-p t ignore call-interactively with-electric-help] 12 (#$ . 8142)])
#@18 

(fn PREFIXARG)
(defalias 'electric-help-execute-extended #[257 "\301\302 \207" [electric-help-form-to-execute #[0 "\300\301!\207" [execute-extended-command nil] 2] electric-help-retain] 2 (#$ . 8988) "p"])
#@18 

(fn PREFIXARG)
(defalias 'electric-help-ctrl-x-prefix #[257 "\301\302 \207" [electric-help-form-to-execute #[0 "\301\302!\210\303\304\"\211\207" [unread-command-events message nil append (24)] 3] electric-help-retain] 2 (#$ . 9203) "p"])
(defalias 'electric-describe-key #[0 "\300\301!\207" [electric-helpify describe-key] 2 nil nil])
(defalias 'electric-describe-mode #[0 "\300\301!\207" [electric-helpify describe-mode] 2 nil nil])
(defalias 'electric-view-lossage #[0 "\300\301!\207" [electric-helpify view-lossage] 2 nil nil])
(defalias 'electric-describe-function #[0 "\300\301!\207" [electric-helpify describe-function] 2 nil nil])
(defalias 'electric-describe-variable #[0 "\300\301!\207" [electric-helpify describe-variable] 2 nil nil])
(defalias 'electric-describe-bindings #[0 "\300\301!\207" [electric-helpify describe-bindings] 2 nil nil])
(defalias 'electric-describe-syntax #[0 "\300\301!\207" [electric-helpify describe-syntax] 2 nil nil])
(defalias 'electric-command-apropos #[0 "\300\301\302\"\207" [electric-helpify command-apropos "*Apropos*"] 3 nil nil])
(defalias 'electric-apropos #[0 "\300\301!\207" [electric-helpify apropos] 2 nil nil])
(defvar ehelp-map (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\207" [help-map copy-keymap substitute-key-definition apropos electric-apropos command-apropos electric-command-apropos describe-key electric-describe-key describe-mode electric-describe-mode view-lossage electric-view-lossage describe-function electric-describe-function describe-variable electric-describe-variable describe-bindings electric-describe-bindings describe-syntax electric-describe-syntax] 5))
(byte-code "\301\302\"\210\303\302\304\305#\210\306\307!\207" [ehelp-map defalias ehelp-command put documentation "Prefix command for ehelp." provide ehelp] 4)