;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ehelp.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 '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 "\n\n(fn)"] "If set, adjust help window sizes to buffer sizes when displaying help." :type boolean electric-help-mode-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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\332#\210\305
\333\332#\210\305
\334\335#\210\305
\336\337#\210\305
\340\337#\210\305
\341\342#\210\305
\343\342#\210\305
\344\345#\210\305
\346\347#\210\211\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 "" 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) (#$ . 1243))
(defvar electric-help-orig-major-mode nil)
(make-variable-buffer-local 'electric-help-orig-major-mode)
#@148 `with-electric-help' temporarily places its buffer in this mode.
(On exit from `with-electric-help', the original `major-mode' is restored.)

(fn)
(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 (#$ . 2401)])
#@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@\206\n\307!\240\210\310\311!\312 C\313C\313\314\315\316\317\320\321	#\322\"\323\324%DC\216\212\2037\325\326 !b\210\311\327@!\210)r@q\210\203V\330 W\203V\331\330 Z!\210\332 \210\313\204b\333 \210)@ \204\202@q\210\334\313!\210eb\210\203\202\f\203\202\335 \210)@q\210\336\337!\210\311\340 \242\341=\203\235
\312 \240\210\202\241\211\311\240\210\342
>\205\253\343\305\342\"+\266\203\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 funcall make-byte-code 0 "\305\306!\210\300@q\210\307\310\311\312D\313\311\314\310EDC\217\210\315\301@!\210\302@\203+\316\300@!\210\317\300@!\210\320\f!\2034\f \207\321\f!\207" vconcat vector [buffer-read-only electric-help-form-to-execute message "" nil #1=#:err funcall #[0 "\206\301 \207" [electric-help-orig-major-mode fundamental-mode] 1 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] set-window-configuration replace-buffer-in-windows bury-buffer functionp eval] 6 "\n\n(fn)" window-start selected-window 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] 17 (#$ . 2907)])
(defalias 'electric-help-command-loop #[0 "\300\301\302D\215\207" [exit funcall #[0 "\301d!\203\302\303\304\305!\"\210\306 C\211\307\232\203\310\311\312\313\"\210\310C\310C\310C\310C\314\315\310\313#\316=\205K\314\317\310\313#\320=\205K\314\321\310\313#\322=\205K\314\323\310\313#\324=\325\312\326\327\330\331\332%\333\"\334\335%\313#\207" [unread-command-events 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) nil throw exit t key-binding " " scroll-up "" scroll-down "q" electric-help-exit "r" electric-help-retain Electric-command-loop make-byte-code 0 "\306\307!\210\310e!\310dS!
\203\311\202t
\2030\211\2030\304\203#\312\202t\303@\206t\303\313\314!\240\202t
\203I\304\203<\315\202t\300@\206t\300\313\316!\240\202t\211\203b\304\203U\317\202t\301@\206t\301\313\320!\240\202t\304\203j\321\202t\302@\206t\302\313\322!\240\207" vconcat vector [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 "\n\n(fn)"] 17 "\n\n(fn)"]] 3 "\n\n(fn)"])
#@122 Exit `with-electric-help', restoring the previous window/buffer configuration.
(The *Help* buffer will be buried.)

(fn)
(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 (#$ . 7289) nil])
#@184 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.)

(fn)
(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 (#$ . 7594) 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 "\n\n(fn)" 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 "\n\n(fn)" nil])
(defalias 'electric-helpify #[513 "\211\206\300\301 \302\303\304\305\306\307!\310\"\311\312%DC\216\313K\314!C\315
@!
@\2032\316@!\2042
\317\240\210\302\303\304\320\306\307#\321\"\311\312%DC\216\322\323\324\325\n!!\"\210
@\203`r
@q\210\326\327!\210)\313\330M\210\331!\210\314!\205\216\316\314!!\205\216
@?\206\216
@\314!=?\206\216\315@!?)\266\203)\262
\205\234\332\330\327#\207" ["*Help*" current-window-configuration funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "\n\n(fn)" help-print-return-message get-buffer buffer-modified-p get-buffer-window nil "\303\300M\210\301@\205\304\301@!\205r\301@q\210\305\302!)\207" [help-print-return-message buffer-name set-buffer-modified-p] message "%s..." capitalize symbol-name set-buffer-modified-p t ignore call-interactively with-electric-help] 16 "\n\n(fn FUN &optional NAME)"])
(defalias 'electric-help-execute-extended #[257 "\301\302 \207" [electric-help-form-to-execute #[0 "\300\301!\207" [execute-extended-command nil] 2 "\n\n(fn)"] electric-help-retain] 2 "\n\n(fn PREFIXARG)" "p"])
(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 "\n\n(fn)"] electric-help-retain] 2 "\n\n(fn PREFIXARG)" "p"])
(defalias 'electric-describe-key #[0 "\300\301!\207" [electric-helpify describe-key] 2 "\n\n(fn)" nil])
(defalias 'electric-describe-mode #[0 "\300\301!\207" [electric-helpify describe-mode] 2 "\n\n(fn)" nil])
(defalias 'electric-view-lossage #[0 "\300\301!\207" [electric-helpify view-lossage] 2 "\n\n(fn)" nil])
(defalias 'electric-describe-function #[0 "\300\301!\207" [electric-helpify describe-function] 2 "\n\n(fn)" nil])
(defalias 'electric-describe-variable #[0 "\300\301!\207" [electric-helpify describe-variable] 2 "\n\n(fn)" nil])
(defalias 'electric-describe-bindings #[0 "\300\301!\207" [electric-helpify describe-bindings] 2 "\n\n(fn)" nil])
(defalias 'electric-describe-syntax #[0 "\300\301!\207" [electric-helpify describe-syntax] 2 "\n\n(fn)" nil])
(defalias 'electric-command-apropos #[0 "\300\301\302\"\207" [electric-helpify command-apropos "*Apropos*"] 3 "\n\n(fn)" nil])
(defalias 'electric-apropos #[0 "\300\301!\207" [electric-helpify apropos] 2 "\n\n(fn)" 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\211\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)