Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/ehelp.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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] "If set, adjust help window sizes to buffer sizes when displaying help." :type boolean electric-help-mode-hook #[0 "\300\207" [nil] 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\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 [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) (#$ . 1081))
(defvar electric-help-orig-major-mode 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 (#$ . 2268)])
#@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\316\317\320#\321\"\322$\216\212\2031\323 b\210\311\324\242!\210)r\242q\210\203P\325 W\203P\326\325 Z!\210\327 \210\313\204\\\330 \210)\242 \204|\242q\210\331\313!\210eb\210\203|\f\203|\332 \210)\242q\210\333\334!\210\311\335 \242\336=\203\227\312 \240\210\202\233\211\311\240\210\337
>\205\245\340\305\337\"+\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 make-byte-code 0 "\306\307!\210\300\242q\210\310\3111\f\206\312 0\202\210\202\210\313\301\242!\210\302\242\2031\314\300\242!\210\315\300\242!\210\316
!\203:
 \207\317
!\207" vconcat vector [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] 16 (#$ . 2768)])
(defalias 'electric-help-command-loop #[0 "\3012n\302d!\203&\303\304\305\306!\"\210\307 \211\310\232\203!\311\301\312\"\210\202%\211B\210\313C\313C\313C\313C\314\315\313\312#\316=\205S\314\317\313\312#\320=\205S\314\321\313\312#\322=\205S\314\323\313\312#\324=\325\301\326\327\330\331\332%\333\"\334$\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-byte-code 0 "\306\307!\210\310e!\310dS!
\203\311\202t\2030\211\2030\304\203#\312\202t\303\242\206t\303\313\314!\240\202t\203I\304\203<\315\202t\300\242\206t\300\313\316!\240\202t\211\203b\304\203U\317\202t\301\242\206t\301\313\320!\240\202t\304\203j\321\202t\302\242\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] 17])
#@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 (#$ . 6977) 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 (#$ . 7276) 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\304\305\306!\307\"\310$\216\311K\312!C\313\242!\242\203-\314\242!\204-\315\240\210\302\303\316\305\306#\317\"\310$\216\320\321\322\323\n!!\"\210\242\203Wr\242q\210\324\325!\210)\311\326M\210\327!\210\312!\205\205\314\312!!\205\205\242?\206\205\242\312!=?\206\205\313\242!?)\266\203)\262\205\223\330\326\325#\207" ["*Help*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 help-print-return-message get-buffer buffer-modified-p get-buffer-window nil "\303\300M\210\301\242\205\304\301\242!\205r\301\242q\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] 15 (#$ . 8541)])
#@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 (#$ . 9442) "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 (#$ . 9657) "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\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)