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



(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook temp-buffer-setup-hook help-mode-setup temp-buffer-show-hook help-mode-finish] 3)
#@60 Marker to override default `window-point' in help windows.
(defvar help-window-point-marker (make-marker) (#$ . 226))
#@59 Frame selected at the time `with-help-window' is invoked.
(defvar help-window-old-frame nil (#$ . 350))
#@47 Keymap for characters following the Help key.
(defvar help-map (byte-code "\301 \302
\303!\304#\210\302
\305\304#\210\302
\306\304#\210\302
\307\310#\210\302
\311\304#\210\302
\312\313#\210\302
\314\315#\210\302
\316\317#\210\302
\320\321#\210\302
\322\323#\210\302
\324\325#\210\302
\326\327#\210\302
\330\331#\210\302
\332\333#\210\302
\334\335#\210\302
\336\337#\210\302
\340\341#\210\302
\342\343#\210\302
\344\345#\210\302
\346\347#\210\302
\350\343#\210\302
\351\352#\210\302
\353\354#\210\302
\355\356#\210\302
\357\360#\210\302
\361\362#\210\302
\363\364#\210\302
\365\366#\210\302
\367\370#\210\302
\371\372#\210\302
\373\374#\210\302
\375\376#\210\302
\377\201@#\210\302
\201A\201B#\210\302
\201C\201D#\210\302
\201E\201F#\210\302
\201G\201H#\210\302
\201I\201J#\210\302
\201K\327#\210\302
\201L\201M#\210\302
\201N\201O#\210\302
\201P\201Q#\210\302
\201R\201S#\210\302
\201T\201U#\210\302
\201V\201W#\210\302
\201X\201Y#\210\302
\201Z\201[#\210\302
\201\\\201]#\210\302
\201^\201_#\210\207" [help-char make-sparse-keymap define-key char-to-string help-for-help [help] [f1] "." display-local-help "?" "
" about-emacs "" describe-copying "" view-emacs-debugging "" view-external-packages "" view-emacs-FAQ "
" view-order-manuals "" view-emacs-news "" describe-distribution "" view-emacs-problems "" search-forward-help-for-help "" view-emacs-todo "" describe-no-warranty "" describe-input-method "C" describe-coding-system "F" Info-goto-emacs-command-node "I" "K" Info-goto-emacs-key-command-node "L" describe-language-environment "S" info-lookup-symbol "a" apropos-command "b" describe-bindings "c" describe-key-briefly "d" apropos-documentation "e" view-echo-area-messages "f" describe-function "g" describe-gnu-project "h" view-hello-file "i" info "4i" info-other-window "k" describe-key "l" view-lossage "m" describe-mode "o" describe-symbol "n" "p" finder-by-keyword "P" describe-package "r" info-emacs-manual "R" info-display-manual "s" describe-syntax "t" help-with-tutorial "v" describe-variable "w" where-is "x" describe-command "q" help-quit] 5) (#$ . 460))
(byte-code "\303\304	!\305#\210\303\306\305#\210\303\307\305#\210\305\nM\207" [global-map help-char help-map define-key char-to-string help-command [help] [f1]] 4)
(defvar help-button-cache nil)
#@49 Just exit from the Help command's command loop.
(defalias 'help-quit #[0 "\300\207" [nil] 1 (#$ . 2785) nil])
#@333 What to do to "exit" the help buffer.
This is a list
 (WINDOW . t)              delete the selected window (and possibly its frame,
                           see `quit-window'), go to WINDOW.
 (WINDOW . quit-window)    do quit-window, then select WINDOW.
 (WINDOW BUF START POINT)  display BUF at START, POINT, then select WINDOW.
(defvar help-return-method nil (#$ . 2902))
#@496 Display or return message saying how to restore windows after help command.
This function assumes that `standard-output' is the help buffer.
It computes a message, and applies the optional argument FUNCTION to it.
If FUNCTION is nil, it applies `message', thus displaying the message.
In addition, this function sets up `help-return-method', which see, that
specifies what to do when the user exits the help buffer.

Do not call this in the scope of `with-help-window'.

(fn &optional FUNCTION)
(defalias 'help-print-return-message #[256 "\304!?\205v	\204\305\306!!\203\307 \310B\311\202C\312\310!\204+\307 \313B\314\202C\2038\307 \310B\315\202C\307 \316 \317 \320 F\321
\206H\322
\205O\323!\205T\324\206]\305\306!!?\205r\325\306!!\203o\323\326!\202r\323\327!Q!\262
\207" [standard-output pop-up-frames help-return-method pop-up-windows get-buffer-window special-display-p buffer-name selected-window t nil one-window-p quit-window "Type \\[display-buffer] RET to restore the other window." "Type \\[delete-other-windows] to remove help window." window-buffer window-start window-point "Type \\[switch-to-buffer] RET to remove help window." message substitute-command-keys "  " same-window-p "\\[scroll-up-command] to scroll the help." "\\[scroll-other-window] to scroll the help."] 8 (#$ . 3285)])
(byte-code "\300\301KM\207" [defining-kbd-macro start-kbd-macro] 2)
#@37 Name of the `help-for-help' buffer.
(defvar help-for-help-buffer-name " *Metahelp*" (#$ . 4687))
(custom-declare-face 'help-for-help-header '((t :height 1.26)) "Face used for headers in the `help-for-help' buffer." :group 'help)
#@74 Create commands for `help-for-help' screen from COMMANDS.

(fn COMMANDS)
(defalias 'help--for-help-make-commands #[257 "\300\301\302#\207" [mapconcat #[257 "\211<\203(\211@
A@\300\301\302\"\203\303\304\305#\202\306\307Q\310\303\311\312\313#\260\207\314\207" ["   " string-match "\\`C-[[:word:]]\\'" propertize face help-key-binding "\\[" "]" " " "	" display (space :align-to 8) ""] 10 "\n\n(fn CMD)"] "\n"] 5 (#$ . 4922)])
#@74 Create sections for `help-for-help' screen from SECTIONS.

(fn SECTIONS)
(defalias 'help--for-help-make-sections #[257 "\300\301\302#\207" [mapconcat #[257 "\211@
A\300\301\302\303#\300\304!R\207" ["\n\n" propertize face help-for-help-header help--for-help-make-commands] 8 "\n\n(fn SECTION)"] ""] 5 (#$ . 5362)])
(defalias 'help 'help-for-help)
#@15 Help command.
(defalias 'help-for-help #[0 "\306\307\310!!\203\311\312\"\210\313\314\315!\316\314\317!\320\314\321!\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340 \"D\341BBBBBBBB\342BBB!\343\260	\344 	C\345 \346C\346C\346\211\347\350	\"\203`\351\314\352 \353\354O!\355\211$\262\356\357$\216\346\n\241\210\360\361\362#\210\360\363\364\365\"#\210\203\244\366\346!)\262\364
\"\203\234\364
\"\262
\353H\262
\202\247\367\262
\211\367=\204\273\211@=\204\273\211A>\203\342
\370 \240\210\371B\206\307\372\346\355#\210\373\374!\203\341\375 =\204\341\375 \240\210\346\240\210\346C\355D\376 \210\306!c\210)\242\377 \210	\240\210)eb\210\211\201GA@\201HB\">\204!
\211\242\201I=\204!

\201J\232\203\342
\201K1\204
\211\242\201I=\2038
\201L
!\202
\211\201M>\203G
\201N \202
\211\201O>\204W

\201J\232\203^
\201P \202
\211\201Q=\203p
\201N\201R!\202
\211\201S=\205
\201P\201R!0\210\202\205
\210\355E\366\336\201T\201Ud!\203\234
\332\202\301
\201V\314\201W!\201X\314\201Y!\201X\314\201Z!\201X\314\201[!\201\\\260	\"!\262
\353H\262
*\211\201]=\203\377\201^\364\"\346#\210\202\377\311\332!\210\211<\203\367
\211FBF\346\240\202;\364\"\211\2035\242\203\201_\242!\210\346\240\210\242\201`
!\210)\242\2059\242\345 =\204/\201a\242!\210\346\240\2029\201b \262
*\207" [three-step-help minor-mode-map-alist help-map global-map overriding-local-map function-key-map substitute-command-keys purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?" message "%s" "(Type " help--key-description-fontified [PageDown] " or " [PageUp] " to scroll, " "" " to search, or \\<help-map>\\[help-quit] to exit.)" help--for-help-make-sections ("Commands, Keys and Functions" ("describe-mode" "Show help for current major and minor modes and their commands") ("describe-bindings" "Show all key bindings") ("describe-key" "Show help for key") ("describe-key-briefly" "Show help for key briefly") ("where-is" "Show which key runs a specific command") #1="" ("apropos-command" "Search for commands (see also \\[apropos])") ("apropos-documentation" "Search documentation of functions, variables, and other items") ("describe-command" "Show help for command") ("describe-function" "Show help for function") ("describe-variable" "Show help for variable") ("describe-symbol" "Show help for function or variable")) ("Manuals" ("info-emacs-manual" "Show Emacs manual") ("Info-goto-emacs-command-node" "Show Emacs manual section for command") ("Info-goto-emacs-key-command-node" "Show Emacs manual section for a key sequence") ("info" "Show all installed manuals") ("info-display-manual" "Show a specific manual") ("info-lookup-symbol" "Show description of symbol in pertinent manual")) "Other Help Commands" ("view-external-packages" "Extending Emacs with external packages") ("finder-by-keyword" "Search for Emacs packages (see also \\[list-packages])") ("describe-package" "Describe a specific Emacs package") #1# ("help-with-tutorial" "Start the Emacs tutorial") ("view-echo-area-messages" "Show recent messages (from echo area)") "view-lossage" format "Show last %d input keystrokes (lossage)" lossage-size (("display-local-help" "Show local help at point")) (("Miscellaneous" ("about-emacs" "About Emacs") ("view-emacs-FAQ" "Emacs FAQ") ("C-n" "News of recent changes") ("view-emacs-problems" "Known problems") ("view-emacs-debugging" "Debugging Emacs") #1# ("describe-gnu-project" "About the GNU project") ("describe-copying" "Emacs copying permission (GNU General Public License)") ("describe-distribution" "Emacs ordering and distribution information") ("C-m" "Order printed manuals") ("view-emacs-todo" "Emacs TODO") ("describe-no-warranty" "Information on absence of warranty")) ("Internationalization and Coding Systems" ("describe-input-method" "Describe input method") ("describe-coding-system" "Describe coding system") ("describe-language-environment" "Describe language environment") ("describe-syntax" "Show current syntax table") ("view-hello-file" "Display the HELLO file illustrating various scripts"))) "\n" make-sparse-keymap selected-frame nil string-match "%THIS-KEY%" replace-match this-command-keys 0 -1 t make-closure #[0 "\301\242\203\n\304\301\242!\210\302\242\203\305\302\242!\210\300\242\211\207" [V0 V1 V2 minor-mode-map-alist set-window-configuration iconify-frame] 2] define-key [t] undefined [vertical-scroll-bar] lookup-key [vertical-scroll-bar] read-key-sequence 63 current-window-configuration pop-to-buffer " *Metahelp*" fboundp make-frame window-frame erase-buffer help-mode help-char help-event-list help-for-help-buffer-name buffer-read-only inhibit-read-only cursor-in-echo-area unread-command-events append (63 22 32 127 134217846 33554464 deletechar backspace vertical-scroll-bar next prior up down) switch-frame "\366" (error) handle-switch-frame (22 32 next) scroll-up (127 134217846 33554464 deletechar backspace prior) scroll-down down 1 up "Type one of listed options%s: " pos-visible-in-window-p ", or " [PageDown] "/" [PageUp] " " "" " to scroll" vertical-scroll-bar command-execute set-window-configuration call-interactively iconify-frame ding] 22 (#$ . 5717) nil])
#@122 Return a function around point or else called by the list containing point.
If that doesn't give a function, return nil.
(defalias 'function-called-at-point #[0 "\302 p\303\304#\216\305!\210\3061F\212\307\310!\311U\203,gz\312=\204,gz\313=\204,\314\315!\210\316\317w\210\320p!\2119\205?\321
!\205?\211\262
)0\202J\210\202M\206\312\3221\204\212\214\317e`\323Z]d}\210\324\325!\210\325u\210\326\327!\203n\330\331!\210\320p!\2119\205}\321
!\205}\211\262
+0\202\210\210\202\213\206\312\332 \211\205\224\333
!\211\203\244\321
!\203\244\211\266\202\202\312\334 \303\335\"\216\205\305\336\337\"\205\305\333\340\325\"!\262\321!\205\305
)\262
\266\202)\207" [emacs-lisp-mode-syntax-table forward-sexp-function syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table (error) skip-syntax-backward "_w" 0 119 95 forward-sexp -1 "'" nil read fboundp (error) 1000 backward-up-list 1 looking-at "[ 	]" error "Probably not a Lisp function call" find-tag-default intern-soft match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string] 9 (#$ . 10960)])
#@27 

(fn FILE &optional DIR)
(defalias 'view-help-file #[513 "\301\302\206\"!\210\303\304!\210eb\207" [data-directory view-file expand-file-name goto-address-mode 1] 6 (#$ . 12140)])
#@124 Apply expand-file-name to FILENAME.
If expand-file-name does not find a file, append `.dfsg' and try again.

(fn FILENAME)
(defalias 'debian-expand-file-name-dfsg #[257 "\301
\"\302
!\203\207\301
\303P\"\207" [data-directory expand-file-name file-exists-p ".dfsg"] 5 (#$ . 12332)])
#@64 Display info on how to obtain the latest version of GNU Emacs.
(defalias 'describe-distribution #[0 "\300\301!\207" [view-help-file "DISTRIB"] 2 (#$ . 12624) nil])
#@63 Display info on how you may redistribute copies of GNU Emacs.
(defalias 'describe-copying #[0 "\300\301!\207" [view-help-file "COPYING"] 2 (#$ . 12794) nil])
#@47 Browse online information on the GNU project.
(defalias 'describe-gnu-project #[0 "\300\301!\207" [browse-url "https://www.gnu.org/gnu/thegnuproject.html"] 2 (#$ . 12958) nil])
#@64 Display info on all the kinds of warranty Emacs does NOT have.
(defalias 'describe-no-warranty #[0 "\301 \210\302\303\304!\210\305y\210\306\305!)\207" [case-fold-search describe-copying nil search-forward "Disclaimer of Warranty" 0 recenter] 2 (#$ . 13141) nil])
#@164 Describe the bindings of the prefix used to reach this command.
The prefix described consists of all but the last event
of the key sequence that ran this command.
(defalias 'describe-prefix-bindings #[0 "\300 \301
;\203
\302GSO\2020\303GS\304\"\302\211GW\203-

HI\210\211T\262
\202
\266\202!\207" [this-command-keys describe-bindings 0 make-vector nil] 8 (#$ . 13412) nil])
(byte-code "\301\211\207" [prefix-help-command describe-prefix-bindings] 2)
#@125 Display info on recent changes to Emacs.
With argument, display info only for the selected version.

(fn &optional VERSION)
(defalias 'view-emacs-news #[256 "\211\204\262
\211:\203^\302C\303\304\305\"\306\307	\302\310\302$B\"\210\311\312\242!\313\"\262
\211@\314\315\316\"\302\211\211\211&\262\317!\250\203G\317!\266\203\202^\235\204\\\317!\317!X\204\\\320\321\"\210\266\211\250\203\214\211\322X\203r\323\324\"\262
\202\214\211\325X\203\201\323\326\"\262
\202\214\211V\203\214\320\327\"\210\211;\203\227\317
!\202\230\211\211Y\203\242\306\202\260\211\325W\203\254\330\202\260\323\331\"\302\332\333	\"!\210~\210eb\210;\205
\334\335W\203\315\336\202\316\337\340Q\302\341#\205
\342 \210`\212\334\335W\203\347\343\202\350\344\302\341#\211\262\203\371\345\346!\232\204\334
\204
db\210\342 \210`)}\207" [emacs-major-version data-directory nil mapc make-closure #[257 "\302\303\304\"r\211q\210\305\306\"\216\307\310	\"!\210\311\312\235\203\313\202 \314\315\304#\2052\300\316\317!\300\242B\240\210\202*\207" [V0 data-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents expand-file-name re-search-forward ("NEWS.18" "NEWS.1-17") "Changes in \\(?:Emacs\\|version\\)?[ 	]*\\([0-9]+\\(?:\\.[0-9]+\\)?\\)" "^\\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)" nil match-string-no-properties 1] 6 "\n\n(fn FILE)"] "NEWS" directory-files "\\`NEWS\\.[0-9][-0-9]*\\'" sort delete-dups string> completing-read format-prompt "Read NEWS for the version" string-to-number error "No news about version %s" 12 format "1.%d" 18 "%d" "No news about Emacs %d (yet)" "NEWS.1-17" "NEWS.%d" view-file expand-file-name re-search-forward 19 "Changes in Emacs[ 	]*" "^\\* [^0-9\n]*" "$" t beginning-of-line "Changes in \\(?:Emacs\\|version\\)?[ 	]*\\([0-9]+\\(?:\\.[0-9]+\\)?\\)" "^\\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)" match-string-no-properties 1] 11 (#$ . 13881) "P"])
#@50 Display the Emacs TODO list.

(fn &optional ARG)
(defalias 'view-emacs-todo #[256 "\300\301!\207" [view-help-file "TODO"] 3 (#$ . 15867) "P"])
#@164 View the log of recent echo-area messages: the `*Messages*' buffer.
The number of messages retained in that buffer is specified by
the variable `message-log-max'.
(defalias 'view-echo-area-messages #[0 "r\300 q\210db\210\301p!\302
`\"\210\211\262
)\207" [messages-buffer display-buffer set-window-point] 4 (#$ . 16017) nil])
#@68 Display information on how to buy printed copies of Emacs manuals.
(defalias 'view-order-manuals #[0 "\300\301!\207" [info "(emacs)Printed Books"] 2 (#$ . 16348) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[0 "\300\301!\207" [info "(efaq)"] 2 (#$ . 16522) nil])
#@69 Display info on known problems with Emacs and possible workarounds.
(defalias 'view-emacs-problems #[0 "\300\301!\207" [view-help-file "PROBLEMS"] 2 (#$ . 16668) nil])
#@46 Display info on how to debug Emacs problems.
(defalias 'view-emacs-debugging #[0 "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 16842) nil])
#@51 Display info on where to get more Emacs packages.
(defalias 'view-external-packages #[0 "\300\301!\207" [info "(efaq)Packages that do not come with Emacs"] 2 (#$ . 16991) nil])
#@241 Display last few input keystrokes and the commands run.
For convenience this uses the same format as
`edit-last-kbd-macro'.
See `lossage-size' to update the number of recorded keystrokes.

To record all your input, use `open-dribble-file'.
(defalias 'view-lossage #[0 "\306\307C\310\311!\"\210\312\211\223\210\313	B\314\nB\315 \316 \317
!\211\312\211\320\321!\210\320\322\323\324\325!\321#!\210r\fq\210eb\210\326\327m\204H\330 \210\331y\210\202;*`\312\223)\262
rq\210\332\312\"\262)\333\334!\203h\334\"\202i\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output comment-column help-setup-xref view-lossage called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ " " mapconcat #[257 "\211:\203\211@\204\300\301A9\203A\202\302\"\207\211\250\204)\2119\204)\211<\203-\303
!\207\304
\305\"\207" [format ";; %s\n" "anonymous-command" single-key-description prin1-to-string nil] 4 "\n\n(fn KEY)"] recent-keys include-cmds ";; " 24 comment-indent 1 temp-buffer-window-show functionp help-window-setup comment-start] 9 (#$ . 17175) nil])
#@87 Like `key-description' but add face for "*Help*" buffers.

(fn KEYS &optional PREFIX)
(defalias 'help--key-description-fontified #[513 "\300\301\"\302\303\304\303%\207" [propertize key-description font-lock-face help-key-binding face] 8 (#$ . 18403)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable describe-bindings-outline funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil enables outlines in the output buffer of `describe-bindings'." :type boolean :group help :version "28.1"] 10)
#@429 Display a buffer showing a list of all defined keys, and their definitions.
The keys are displayed in order of precedence.

The optional argument PREFIX, if non-nil, should be a key sequence;
then we display only bindings that start with that prefix.
The optional argument BUFFER specifies which buffer's bindings
to display (default, the current buffer).  BUFFER can be a buffer
or a buffer name.

(fn &optional PREFIX BUFFER)
(defalias 'describe-bindings #[512 "\211\204p\262
\306\307E\310\311!\"\210\312\211\223\210\313	B\314\nB\315 \316 \317
!\211\312\211r\316 q\210\320\"\210
\205}\321\322!\210\323\321\324!\210\325\321\326!\210\327\321\330!\210\331\321\332!\210\331\333\334!\210\212\331&eb\210\335\336!c\210\337\340\312\331#\205|\341\342!\205|\342 *)\262
rq\210\343\312\"\262)\344\345!\203\230\345\"\202\231\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output describe-bindings-outline help-setup-xref describe-bindings called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-buffer-bindings make-local-variable outline-regexp ".*:$" outline-heading-end-regexp ":\n" outline-level #[0 "\300\207" [1] 1] outline-minor-mode-cycle t outline-minor-mode-highlight outline-minor-mode 1 substitute-command-keys "\\<outline-minor-mode-cycle-map>Type \\[outline-cycle] or \\[outline-cycle-buffer] on headings to cycle their visibility.\n\n" re-search-forward "Key translations" fboundp outline-cycle temp-buffer-window-show functionp help-window-setup inhibit-read-only] 10 (#$ . 18948) nil])
#@259 Print message listing key sequences that invoke the command DEFINITION.
Argument is a command definition, usually a symbol with a function definition.
If INSERT (the prefix arg) is non-nil, insert the message in the buffer.

(fn DEFINITION &optional INSERT)
(defalias 'where-is #[513 "
\204\302\303!\210\304!\305C\203p\202\306\307\310$!\210
\242B\211\203\260\211@\311
!\312	\305\211%\313\314\315#\305\203g
G\316V\203_\203V\317\320$\202\222\317\321#\202\222\317\322\"\202\222
G\316V\203\206\203}\317\323$\202\222\317\324#\202\222\n=\205\222\317\325\"\262
\211\203\247\n=\204\243\326\327!\210\326
!\210\266
A\266\202\202%\210)\266\305\207" [standard-output overriding-local-map error "No command" indirect-function nil mapatoms make-closure #[257 "\303
!\205%\211\300=?\205%\301\3041\305!0\202\210
=\205%\302
\302\242B\240\207" [V0 V1 V2 fboundp (error) indirect-function] 4 "\n\n(fn SYMBOL)"] command-remapping where-is-internal mapconcat help--key-description-fontified ", " 0 format "%s (%s) (remapped from %s)" "%s (%s)" "M-x %s RET" "%s is remapped to %s which is on %s" "%s is on %s" "%s is not on any key" princ ";\n its alias "] 15 (#$ . 20645) (byte-code "\303 \304\305
\306\307\310\"	\311\304\305\211	\205\312\n!&\262
\211\313\232?\205'\314
!\n)D\207" [enable-recursive-minibuffers obarray current-prefix-arg function-called-at-point t nil completing-read format-prompt "Where is command" commandp symbol-name "" intern] 12)])
#@25 

(fn KEY UNTRANSLATED)
(defalias 'help-key-description #[514 "\300!
\203
\301H\302=\203\301H\302=\204\207\300!

\232\203#
\207\303\304#\207" [help--key-description-fontified 0 27 format "%s (translated from %s)"] 8 (#$ . 22165)])
#@13 

(fn DEFN)
(defalias 'help--binding-undefined-p #[257 "\211?\206
\211\250\206
\211\300=\207" [undefined] 3 (#$ . 22414)])
#@248 Get information about KEY its corresponding UNTRANSLATED events.
Returns a list of the form (BRIEF-DESC DEFN EVENT MOUSE-MSG).
When BUFFER is nil, it defaults to the buffer displayed
in the selected window.

(fn KEY UNTRANSLATED &optional BUFFER)
(defalias 'help--analyze-key #[770 "
\247\203	\300\301!\210G\302V\205,\211\302H9\203*G\303V\203*\303H:\203*\303\202+\302H\304
!\305
>\204A\306
>\204A\307
>\203E\310\202F\311\203R\312\313\"\202_\212\314\315!!\210\312\313\")\211\204|\211GSH;\203|\312\302\316O!\317=\203|\320\262
\211GSH;\203\216\211GS\321I\210\203\242\211GSH;\203\242\211GS\321I\210\322\"\323!\203\266\324\325#\202\274\324\326$\262

F\207" [error "Missing `untranslated'!" 0 1 event-modifiers click down drag " at that spot" "" key-binding t posn-set-point event-end -1 yank-menu menu-bar-select-yank "(any string)" help-key-description help--binding-undefined-p format "%s%s is undefined" "%s%s runs the command %S"] 13 (#$ . 22546)])
#@44 Drop the undefined keys.

(fn INFO-LIST I)
(defalias 'help--filter-info-list #[514 "\300\301\302\303\304\"\"\"\206\305!\207" [delq nil mapcar make-closure #[257 "\301\3008!?\205\n\211\207" [V0 help--binding-undefined-p] 4 "\n\n(fn X)"] last] 8 (#$ . 23553)])
#@529 Print the name of the functions KEY-LIST invokes.
KEY-LIST is a list of pairs (SEQ . RAW-SEQ) of key sequences, where
RAW-SEQ is the untranslated form of the key sequence SEQ.
If INSERT (the prefix arg) is non-nil, insert the message in the buffer.

While reading KEY-LIST interactively, this command temporarily enables
menu items or tool-bar buttons that are disabled to allow getting help
on them.

BUFFER is the buffer in which to lookup those keys; it defaults to the
current buffer.

(fn &optional KEY-LIST INSERT BUFFER)
(defalias 'describe-key-briefly #[768 "\300!\203CC\262r\301
!\203\211\202pq\210\302\303\304\"\"\305\306\307\310\"\311#\2033\211c\266\202\2029\312\313\"\266\202)\207" [arrayp buffer-live-p mapcar make-closure #[257 "\301
@A\300#\207" [V0 help--analyze-key] 5 "\n\n(fn KR)"] mapconcat car help--filter-info-list 1 "\n" message "%s"] 9 (#$ . 23826) (byte-code "\301\302!\211D\207" [current-prefix-arg help--read-key-sequence no-mouse-movement] 3)])
#@239 Return a keymap holding a binding for KEY within current keymaps.
The effect of the arguments KEY, ACCEPT-DEFAULT, NO-REMAP and
POSITION is as documented in the function `key-binding'.

(fn KEY &optional ACCEPT-DEFAULT NO-REMAP POSITION)
(defalias 'help--key-binding-keymap #[1025 "\300\301\"\302\211\211\204*\211A\262\242\211\262\203*\303#\262
\211\250\203\302\262
\202\211\205E\2119\203D\204D\304
!\203D\305\306\307\"!\207
\207" [current-active-maps t nil lookup-key command-remapping help--key-binding-keymap vector remap] 11 (#$ . 24825)])
#@210 Describe in which keymap KEY is defined.
Return a symbol pointing to that keymap if one exists ; otherwise
return nil.  The argument POSITION is as documented in the
function `key-binding'.

(fn KEY POSITION)
(defalias 'help--binding-locus #[514 "\302\303\304$\211\205N\3052N\306\307D\310\304\311\312\"\"\244\313\314\315\316	\"!D\244\211\211\203B\211@\317
!\203;
J=\203;\320\305\"\210
A\266\202\202#\210\321\322\323\"!\210\304\262
0\207" [minor-mode-map-alist major-mode help--key-binding-keymap t nil found overriding-terminal-local-map overriding-local-map delq mapcar #[257 "\211@\211J\205
\300\301\302\"!\207" [intern-soft format "%s-map"] 6 "\n\n(fn MODE-AND-MAP)"] global-map intern-soft format "%s-map" boundp throw mapatoms make-closure #[257 "\301
!\205\302
!\205\211J\300=\205\303\304\"\207" [V0 boundp special-variable-p throw found] 4 "\n\n(fn X)"]] 9 (#$ . 25397)])
#@532 Read a key sequence from the user.
Usually reads a single key sequence, except when that sequence might
hide another one (e.g. a down event, where the user is interested
in getting info about the up event, or a click event, where the user
wants to get info about the double click).
Return a list of elements of the form (SEQ . RAW-SEQ), where SEQ is a key
sequence, and RAW-SEQ is its untranslated form.
If NO-MOUSE-MOVEMENT is non-nil, ignore key sequences starting
with `mouse-movement' events.

(fn &optional NO-MOUSE-MOVEMENT)
(defalias 'help--read-key-sequence #[256 "\304\211\305\211C\306\307\"\216\305\211\nA\204 \310\n!\240\210\311\312\305\"\210\211\2039\313>\2049\314>\203\212\315\316\245\304\"\204\212\317\320\305\211\321$\322 
G\323V\205M
\211GSH\324
!\325!G\323U\204\205\203e
\326=\204\205
\327\267\202zB\262	\266\202 \266\202 \211\262BB\262\266\202 \203\227
\237B\266\202\202\233\211\237\266\202+\207" [cursor-in-echo-area enable-disabled-menus-and-buttons yank-menu double-click-time t nil make-closure #[0 "\300\242\205\302\300\242!\301\303	BM\207" [V0 yank-menu copy-sequence keymap] 3] copy-sequence menu-bar-update-yank-menu "(any string)" down click sit-for 1000.0 read-key-sequence "Describe the following key, mouse click, or menu item: " can-return-switch-frame this-single-command-raw-keys 0 event-basic-type event-modifiers mouse-movement #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mouse-movement 107 switch-frame 107 select-window 107 help-echo 117))] 14 (#$ . 26304)])
#@21 

(fn KEY-LIST BUF)
(defalias 'describe-key--helper #[514 "\300\301!\205	\"\207" [describe-key buffer-live-p] 6 (#$ . 27892)])
#@17 

(fn FUNC BUF)
(defalias 'describe-function--helper #[514 "\301
!\205\211\302!)\207" [describe-function-orig-buffer buffer-live-p describe-function] 4 (#$ . 28029)])
#@599 Display documentation of the function invoked by KEY-LIST.
KEY-LIST can be any kind of a key sequence; it can include keyboard events,
mouse events, and/or menu events.  When calling from a program,
pass KEY-LIST as a list of elements (SEQ . RAW-SEQ) where SEQ is
a key-sequence and RAW-SEQ is its untranslated form.

While reading KEY-LIST interactively, this command temporarily enables
menu items or tool-bar buttons that are disabled to allow getting help
on them.

BUFFER is the buffer in which to lookup those keys; it defaults to the
current buffer.

(fn &optional KEY-LIST BUFFER UP-EVENT)
(defalias 'describe-key #[768 "
C\305!\2032C\205CB\262\211\242\203.\211\242\247\203#\306 \202%\211\242\307!\211@\241\266\211\310\240\210\211\242\2068p\311\312\313\"\"\314rq\210\311\312\315\"\")\316\"\317\320E\321\322!\"\210\211G\323X\203t\324\316@8!\203t\325\326@A@\"\207\310\211\223\210\327	B\330\nB\331 \332 \333
!\211\310\211G\323V\203\261\334\335!\210\334\336\337\340#!\210\341\310\"\203\255\334\342!\210\334\343!\210\211\205
\211@\211\242
\243\211\242
\243\211\242
\243\211\242
\243\310\203\371G\323V\203\341r\fq\210\344\345 \340\261\210)\334!\210\203\361\334\346\347\"!\210\334\350!\210\351!\210\266	
A\266\202\202\262\262
\262
rq\210\352\310\"\262)\353\354!\203
\354\"\202
\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output arrayp this-single-command-raw-keys last nil mapcar make-closure #[257 "\211A	\302>?\205%\211G\303V\205%\211\303H\242\304=\205%r\300q\210\305\306\303H!!)\207" [V0 mouse-1-click-follows-link (nil double) 0 mouse-1 mouse-on-link-p event-start] 6 "\n\n(fn KR)"] help--filter-info-list #[257 "\211\242
\243\301\300\242#\211\242
\243\211\242
\243\211\242
\243\211\242
\243\302\303\f\304!\"\f\n	F\207" [V0 help--analyze-key nil help--binding-locus event-start] 18 "\n\n(fn X)"] 2 help-setup-xref describe-key--helper called-interactively-p interactive 1 help--binding-undefined-p message "%s" help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ "There were several key-sequences:\n\n" mapconcat #[257 "\211\242
\243\211\242
\243\211\242
\243\211\242
\243\300\211\211\301	P\207" [nil "  "] 14 "\n\n(fn INFO)"] "\n" delq "\n\nThose are influenced by `mouse-1-click-follows-link'" "\n\nThey're all described below." "\n\n" make-separator-line format " (found in %s)" ", which is " describe-function-1 temp-buffer-window-show functionp help-window-setup] 26 (#$ . 28207) (byte-code "\300 C\207" [help--read-key-sequence] 1)])
(set-advertised-calling-convention 'describe-key '(key-list &optional buffer) "27.1")
#@115 Search forward in the help-for-help window.
This command is meant to be used after issuing the `C-h C-h' command.
(defalias 'search-forward-help-for-help #[0 "\301!\204\302\303\"\210\304!\210\305\306\307\"\207" [help-for-help-buffer-name get-buffer error "No %s buffer; use `C-h C-h' first" pop-to-buffer isearch-forward nil t] 3 (#$ . 30954) nil])
#@175 Display documentation of a minor mode given as MINOR-MODE.
MINOR-MODE can be a minor mode symbol or a minor mode indicator string
appeared on the mode-line.

(fn MINOR-MODE)
(defalias 'describe-minor-mode #[257 "\2119\203\n\300
!\262
\301 \302 \235\203\303\304!!\207
\235\203$\305!\207\306\307\"\207" [symbol-name describe-minor-mode-completion-table-for-symbol describe-minor-mode-completion-table-for-indicator describe-minor-mode-from-symbol intern describe-minor-mode-from-indicator error "No such minor mode: %s"] 6 (#$ . 31315) (byte-code "\300\301\302 \303 \244\"C\207" [completing-read "Minor mode: " describe-minor-mode-completion-table-for-symbol describe-minor-mode-completion-table-for-indicator] 4)])
(defalias 'describe-minor-mode-completion-table-for-symbol #[0 "\301\302\303\304\"\"\207" [minor-mode-list delq nil mapcar symbol-name] 5])
#@79 Display documentation of a minor mode given as a symbol, SYMBOL.

(fn SYMBOL)
(defalias 'describe-minor-mode-from-symbol #[257 "\300
!\203\n\301
!\207\302
!\207" [fboundp describe-function describe-variable] 3 (#$ . 32186) (byte-code "\300\301\302\303 \"!C\207" [intern completing-read "Minor mode symbol: " describe-minor-mode-completion-table-for-symbol] 4)])
(defalias 'describe-minor-mode-completion-table-for-indicator #[0 "\301\302\303\304\"\"\207" [minor-mode-alist delq nil mapcar #[257 "\300
!\211G\301U\203\f\302\207\211\301H\303=\203\211\304\302O\207\207" [format-mode-line 0 nil 32 1] 5 "\n\n(fn X)"]] 5])
#@189 Display documentation of a minor mode specified by INDICATOR.
If you call this function interactively, you can give indicator which
is currently activated with completion.

(fn INDICATOR)
(defalias 'describe-minor-mode-from-indicator #[257 "\300
!\211\203\301
!\207\302\303\"\207" [lookup-minor-mode-from-indicator describe-minor-mode-from-symbol error "Cannot find minor mode for `%s'"] 5 (#$ . 32816) (byte-code "\300\301\302 \"C\207" [completing-read "Minor mode indicator: " describe-minor-mode-completion-table-for-indicator] 3)])
#@81 Return a minor mode symbol from its indicator on the mode line.

(fn INDICATOR)
(defalias 'lookup-minor-mode-from-indicator #[257 "\301
GW\203\211\301H\302=\203\211\303\304O\262
\304
\203X
@@\305@A@!\211;\203>\211G\301V\203>\211\301H\302=\203>\211\303\304O\262

\232\203O
\262\304\262\266\202A\262\266\202\207" [minor-mode-alist 0 32 1 nil format-mode-line] 8 (#$ . 33361)])
#@1187 Substitute key descriptions for command names in STRING.
Each substring of the form \\=[COMMAND] is replaced by either a
keystroke sequence that invokes COMMAND, or "M-x COMMAND" if COMMAND
is not on any keys.  Keybindings will use the face `help-key-binding',
unless the optional argument NO-FACE is non-nil.

Each substring of the form \\={MAPVAR} is replaced by a summary of
the value of MAPVAR as a keymap.  This summary is similar to the one
produced by ‘describe-bindings’.  The summary ends in two newlines
(used by the helper function ‘help-make-xrefs’ to find the end of the
summary).

Each substring of the form \\=<MAPVAR> specifies the use of MAPVAR
as the keymap for future \\=[COMMAND] substrings.

Each grave accent \=` is replaced by left quote, and each apostrophe \='
is replaced by right quote.  Left and right quote characters are
specified by ‘text-quoting-style’.

\\== quotes the following character and is discarded; thus, \\==\\== puts \\==
into the output, \\==\[ puts \[ into the output, and \\==\=` puts \=` into the
output.

Return the original STRING if no substitutions are made.
Otherwise, return a new string.

(fn STRING &optional NO-FACE)
(defalias 'substitute-command-keys #[513 "
??\205\370
\302p
\303\304\302\"r\211q\210\305\306\"\216c\210eb\210`dW\203\360
`\307\211\211\211g\310U\203\254
\3111:\312u0\210\202;\210`TdU\203Og\313U\203O\312u\266\202g\313U\203mb\210\314\315!\210\3161h\312u0\266\202\266\202g\317U\203
\212\320\321\307\302#`\315Z\262)\203
b\210\314\315!\210\322`S{!rq\210\323
\302#)\324
!\203\312\211G\312V\203\312\211\325H\326=\203\312\211\312H9\203\312\211\312H\262rq\210\323\f\302#)\262
\211\204\353`\327c\210\330\\b\210\f\204\343\331
`\332#\210\314\312!\266	\202\314`Z!\210\203\375\333
!\202
\334
!c\266\202g\335U\203
\336\211\262\203
\302\211\262\204'
g\337U\203\247
\340\211\262\203\247
\212\320\307\302#`\315Z\262)\203\353
b\210\314\315!\210\322`S{!\307\314`Z!\210rq\210\341 \262\342!\203e
\343J!\205c

J\262
)\211\204\204
\344\345\346!\347!\345\350!\351\261\210\204\245
\307\262\266\202\204\217
\262\n\266\202\211\352!>A\353\302\237\307\211\302\307\211\302&	\266\266\266\202\354 \355=\203\320
g\356U\203\277
\357c\210\202\310
g\360U\203\320
\361c\210\314\312!\266\202\354 \362=\203\350
g\356U\203\350
\350c\210\314\312!\266\202\312u\210\266\202\363 *\262
)\266\203\207" [overriding-local-map inhibit-modification-hooks t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil 92 (error) 1 61 delete-char 2 (error) 91 search-forward "]" intern where-is-internal vectorp 0 remap "M-x " 3 add-text-properties (face help-key-binding font-lock-face help-key-binding) key-description help--key-description-fontified 123 "}" 60 ">" current-active-maps boundp keymapp "\nUses keymap " substitute-command-keys "`" symbol-name "'" ", which is not currently defined.\n" reverse describe-map-tree text-quoting-style curve 96 "‘" 39 "’" straight buffer-string] 24 (#$ . 33766)])
(defvar help--keymaps-seen nil)
#@1049 Insert a description of the key bindings in STARTMAP.
This is followed by the key bindings of all maps reachable
through STARTMAP.

If PARTIAL is non-nil, omit certain uninteresting commands
(such as `undefined').

If SHADOW is non-nil, it is a list of maps; don't mention keys
which would be shadowed by any of them.

If PREFIX is non-nil, mention only keys that start with PREFIX.

If TITLE is non-nil, is a string to insert at the beginning.
TITLE should not end with a colon or a newline; we supply that.

If NOMENU is non-nil, then omit menu-bar commands.

If TRANSL is non-nil, the definitions are actually key
translations so print strings and vectors differently.

If ALWAYS-TITLE is non-nil, print the title even if there are no
maps to look through.

If MENTION-SHADOW is non-nil, then when something is shadowed by
SHADOW, don't omit it; instead, mention it but say it is
shadowed.

Any inserted text ends in two newlines (used by
`help-make-xrefs').

(fn STARTMAP PARTIAL SHADOW PREFIX TITLE NO-MENU TRANSL ALWAYS-TITLE MENTION-SHADOW)
(defalias 'describe-map-tree #[2313 "\301	\"\2037\211\302
\2032
@\211@G\303Y\203#\211@\304\234\305=\204*\306C\"\262\210
A\262\202\f\262
\2028\211\211
\206>\211\203Z\205V\n\205T\307\310\f!P\311Q\312Pc\210\302
:\203\305
@\211@\313
\314#\315
!\203w\302\262
\202\215\316
!\204\215\211\203\215\211:\203\274\316
@!\203\274\211\232\204\253\211@@\232\203\244\211@AB\262\211A\262
\202\216\210\317A\f&\210\266
A\262\202\\\211\205\313\320c\207" [help--keymaps-seen accessible-keymaps nil 1 0 menu-bar append " Starting With " help--key-description-fontified ":\n" "key             binding\n---             -------\n" lookup-key t natnump keymapp describe-map "\n"] 24 (#$ . 36905)])
#@130 Like `lookup-key', but with command remapping.
Return nil if the key sequence is too long.

(fn KEYMAP KEY ACCEPT-DEFAULT REMAP)
(defalias 'help--shadow-lookup #[1028 "\300#\301
!\203\302
X\206)\211\203(
\203(\2119\203(\303
\304#\206)\207\211\207" [lookup-key fixnump 0 command-remapping nil] 9 (#$ . 38691)])
(defvar help--previous-description-column 0)
#@19 

(fn DEFINITION)
(defalias 'help--describe-command #[257 "i\211\301V\203\302c\210\303\202%\211\304V\204 \211\305V\203$\303U\203$\303\202%\306`\307\310\"\210\311
`\312#\266\2119\203@\313!\302\261\207;\204K\314!\203N\315c\207\316!\203W\317c\207\320c\207" [help--previous-description-column 30 "\n" 32 14 10 16 indent-to 1 set-text-properties (face nil font-lock-face nil) symbol-name vectorp "Keyboard Macro\n" keymapp "Prefix Command\n" "??\n"] 8 (#$ . 39064)])
#@19 

(fn DEFINITION)
(defalias 'help--describe-translation #[257 "`\300\301\302\"\210\303
`\304#\266\2119\203\305
!\306\261\207\211;\204$\307
!\203,\310
\311\"\306\261\207\312
!\2035\313c\207\314c\207" [indent-to 16 1 set-text-properties (face nil font-lock-face nil) symbol-name "\n" vectorp key-description nil keymapp "Prefix Command\n" "??\n"] 6 (#$ . 39553)])
#@12 

(fn A B)
(defalias 'help--describe-map-compare #[514 "
@
@\300!\203\300
!\203

W\207\300!\203\"\300
!\204\"\301\207
9\2035\2119\2035\302\303!\303!\"\207\304\207" [fixnump t string-version-lessp symbol-name nil] 8 (#$ . 39929)])
#@281 Describe the contents of keymap MAP.
Assume that this keymap itself is reached by the sequence of
prefix keys PREFIX (a string or vector).

TRANSL, PARTIAL, SHADOW, NOMENU, MENTION-SHADOW are as in
`describe-map-tree'.

(fn MAP PREFIX TRANSL PARTIAL SHADOW NOMENU MENTION-SHADOW)
(defalias 'describe-map #[1799 "\205\302\303!\211\304\203\305\202\306\307\211:\203

\204
\310@!\204.\311@!\203B\312@&\210\202\373@:\203\325@@\307\2119\204X\313!\203\320\203c\314=\204\320\315@A\307\"\211\262\203\320
9\203|
\nN\204\320\f\203\272\316
\317!\304\307$\211\204\222\304\202\265\320!\203\242\320
!\203\242\304\202\265\203\264\211=\204\264\304\211\262\202\265\307\262
\203\320
\321	\317!\304#=\203\320EB\262\266\202\373@\322=\203\373\236\211:\203\363\211@\232\203\363\304\262\210\202\373BB\210A\262\202\323
\324\"\211\205\266
\211@\211@
A@AA@	\203#
\325\326c\210\307\262\n\313!\203p
A\203p
@@@A@@AA@A@@	A@A@\nA@AA@T=\205_

\232\205_

=\266\206\203p
A\262@@\262
\202)
\327\317!\"c\210
=\204\212
\330\327\317!\"\261\210\203\226
\305!\210\202\232
\306!\210
\203\255
`Se]b\210\331c\210`Td^b\210\266\211A\262
\202
\207" [help--keymaps-seen help--previous-description-column suppress-keymap keymap-canonicalize t help--describe-translation help--describe-command nil vectorp char-table-p help--describe-vector fixnump menu-bar keymap--get-keyelt help--shadow-lookup vector keymapp lookup-key keymap sort help--describe-map-compare 0 "\n" help--key-description-fontified " .. " "\n  (this binding is currently shadowed)"] 28 (#$ . 40178)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\310\311\312\320&	\210\300\321\302\303\322DD\323\324\325\326\327\306\330\310\311&\207" [custom-declare-variable temp-buffer-max-height funcall function #[0 "\300\207" [#[257 "\300 \203\301 \302 =\203\303\304 \305 \306#\207\307 \306Z\306\245\207" [display-graphic-p selected-window frame-root-window / x-display-pixel-height frame-char-height 2 frame-height] 5 "\n\n(fn BUFFER)"]] 1 #1=""] "Maximum height of a window displaying a temporary buffer.\nThis is effective only when Temp Buffer Resize mode is enabled.\nThe value is the maximum height (in lines) which\n`resize-temp-buffer-window' will give to a window displaying a\ntemporary buffer.  It can also be a function to be called to\nchoose the height for such a buffer.  It gets one argument, the\nbuffer, and should return a positive integer.  At the time the\nfunction is called, the window to be resized is selected." :type (choice integer function) :group help :version "24.3" temp-buffer-max-width #[0 "\300\207" [#[257 "\300 \203\301 \302 =\203\303\304 \305 \306#\207\307 \306Z\306\245\207" [display-graphic-p selected-window frame-root-window / x-display-pixel-width frame-char-width 2 frame-width] 5 "\n\n(fn BUFFER)"]] 1 #1#] "Maximum width of a window displaying a temporary buffer.\nThis is effective only when Temp Buffer Resize mode is enabled.\nThe value is the maximum width (in columns) which\n`resize-temp-buffer-window' will give to a window displaying a\ntemporary buffer.  It can also be a function to be called to\nchoose the width for such a buffer.  It gets one argument, the\nbuffer, and should return a positive integer.  At the time the\nfunction is called, the window to be resized is selected." (choice integer function) "24.4" temp-buffer-resize-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Temp-Buffer-Resize mode is enabled.\nSee the `temp-buffer-resize-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `temp-buffer-resize-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean] 12)
#@1184 Toggle auto-resizing temporary buffer windows (Temp Buffer Resize Mode).

This is a minor mode.  If called interactively, toggle the
`Temp-Buffer-Resize mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='temp-buffer-resize-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When Temp Buffer Resize mode is enabled, the windows in which we
show a temporary buffer are automatically resized in height to
fit the buffer's contents, but never more than
`temp-buffer-max-height' nor less than `window-min-height'.

A window is resized only if it has been specially created for the
buffer.  Windows that have shown another buffer before are not
resized.  A frame is resized only if `fit-frame-to-buffer' is
non-nil.

This mode is used by `help', `apropos' and `completion' buffers,
and some others.

(fn &optional ARG)
(defalias 'temp-buffer-resize-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203E\313\314\315\316#\210\202J\317\314\315\"\210\320\321\305\301!\203V\322\202W\323\"\210\324\325!\203\326\301!\210\302 \203o\211\302 \232\203\327\330\305\301!\203{\331\202|\332\333#\210\210\334 \210\305\301!\207" [global-minor-modes temp-buffer-resize-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook temp-buffer-show-hook resize-temp-buffer-window append remove-hook run-hooks temp-buffer-resize-mode-hook temp-buffer-resize-mode-on-hook temp-buffer-resize-mode-off-hook called-interactively-p any customize-mark-as-set message "Temp-Buffer-Resize mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 44092) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar temp-buffer-resize-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [temp-buffer-resize-mode-map temp-buffer-resize-mode-hook variable-documentation put "Hook run after entering or leaving `temp-buffer-resize-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode temp-buffer-resize-mode boundp] 6)
#@736 Resize WINDOW to fit its contents.
WINDOW must be a live window and defaults to the selected one.
Do not resize if WINDOW was not created by `display-buffer'.

If WINDOW is part of a vertical combination, restrain its new
size by `temp-buffer-max-height' and do not resize if its minimum
accessible position is scrolled out of view.  If WINDOW is part
of a horizontal combination, restrain its new size by
`temp-buffer-max-width'.  In both cases, the value of the option
`fit-window-to-buffer-horizontally' can inhibit resizing.

If WINDOW is the root window of its frame, resize the frame
provided `fit-frame-to-buffer' is non-nil.

This function may call `preserve-window-size' to preserve the
size of WINDOW.

(fn &optional WINDOW)
(defalias 'resize-temp-buffer-window #[256 "\304
\305\"\262
\306!\203%\307
!r\310\311\"\216\312
@\313\"\210\314 !*\262
\202&\306	!\203E\307!r\310\315\"\216\312
@\313\"\210	\314 !*\262
\202F	\316\317\"A@\211\320=\203p\321!\203e\n\322=\204e\323e\"\204\202\321\305\"\203p\n\204\202\211\324=\205\213\205\213\325!=\205\213\326\327\327\305&\207" [temp-buffer-max-height temp-buffer-max-width fit-window-to-buffer-horizontally fit-frame-to-buffer window-normalize-window t functionp internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord window-buffer #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] window-parameter quit-restore window window-combined-p only pos-visible-in-window-p frame frame-root-window fit-window-to-buffer nil] 11 (#$ . 46759)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\315\316\317#\210\320\211\2039\211@\315
N\2032\316
N\2042\321\316\315N#\210
A\266\202\202\210\322\315\316\323#\210\300\316\302\303\324DD\325\306\326\310\311\312\327&	\207" [custom-declare-variable help-window-select funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means select help window for viewing.\nChoices are:\n\n never (nil) Select help window only if there is no other window\n             on its frame.\n\n other       Select help window if and only if it appears on the\n             previously selected frame, that frame contains at\n             least two other windows and the help window is\n             either new or showed a different buffer before.\n\n always (t)  Always select the help window.\n\nIf this option is non-nil and the help window appears on another\nframe, then give that frame input focus too.  Note also that if\nthe help window appears on another frame, it may get selected and\nits frame get input focus even if this option is nil.\n\nThis option has effect if and only if the help window was created\nby `with-help-window'." :type (choice (const :tag "never (nil)" nil) (const :tag "other" other) (const :tag "always (t)" t)) :group help :version "23.1" defvaralias help-enable-auto-load help-enable-autoload nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1" #[0 "\300\207" [t] 1 #1#] "Whether Help commands can perform autoloading.\nIf non-nil, whenever \\[describe-function] is called for an\nautoloaded function whose docstring contains any key substitution\nconstruct (see `substitute-command-keys'), the library is loaded,\nso that the documentation can show the right key bindings." boolean "24.3"] 10)
#@299 Display message telling how to quit and scroll help window.
QUIT-PART is a string telling how to quit the help window WINDOW.
Optional argument SCROLL non-nil means tell how to scroll WINDOW.
SCROLL equal `other' means tell how to scroll the "other"
window.

(fn QUIT-PART WINDOW &optional SCROLL)
(defalias 'help-window-display-message #[770 "\204\300\202*\301r\302!q\210d)\303#\203\304\202*\211\305=\203%\306\202*\211\205*\307\310\311\312P!\"\207" [nil pos-visible-in-window-p window-buffer t "." other ", \\[scroll-other-window] to scroll help." ", \\[scroll-up-command] to scroll help." message "%s" substitute-command-keys] 9 (#$ . 50136)])
#@152 Set up help window WINDOW for `with-help-window'.
WINDOW is the window used for displaying the help buffer.
Return VALUE.

(fn WINDOW &optional VALUE)
(defalias 'help-window-setup #[513 "\303!\205	\304!\303!\205\305\306\"@\307!\203\317\310!=\203-\311\"\210\312\211\223\210	\203E\313\n!\203E\211\n=\204E\314!\210\315
!\210\316 =\204u\211\317 =\203\221	\320=\204o	\321=\203\221\322\312\323\"G\324V\203\221
\325=\204\221\314!\203\221\326\327\267\202\210\330\202\211\331\202\211\332\202\211\312\320#\210\202\317\307!\n=\203\273\322\312\323\"G\324U\203\273\326\333\267\202\262\334\202\263\335\202\263\312\321#\210\202\317\326\336\267\202\312\337\202\313\340\202\313\312\"\210\207" [help-window-point-marker help-window-select help-window-old-frame window-live-p window-buffer window-parameter quit-restore window-frame marker-buffer set-window-point nil frame-live-p select-window select-frame-set-input-focus selected-window selected-frame t other window-list no-mini 2 same help-window-display-message #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 124 frame 128 other 132)) "Type \"q\" to delete help window" "Type \"q\" to quit the help frame" "Type \"q\" to restore previous buffer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 170 other 174)) "Type \\[delete-other-windows] to delete the help window" "Type \"q\" in help window to restore its previous buffer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 194 other 198)) "Type \"q\" in help window to delete it" "Type \"q\" in help window to restore previous buffer"] 9 (#$ . 50804)])
#@458 Evaluate BODY, send output to BUFFER-OR-NAME and show in a help window.
This construct is like `with-temp-buffer-window', which see, but unlike
that, it puts the buffer specified by BUFFER-OR-NAME in `help-mode' and
displays a message about how to delete the help window when it's no
longer needed.  The help window will be selected if
`help-window-select' is non-nil.
Most of this is done by `help-window-setup', which see.

(fn BUFFER-OR-NAME &rest BODY)
(defalias 'with-help-window '(macro . #[385 "\300\301\302\303\304\305\306\307\300\nB\257FE\207" [progn (set-marker help-window-point-marker nil) let ((temp-buffer-window-setup-hook (cons 'help-mode-setup temp-buffer-window-setup-hook)) (temp-buffer-window-show-hook (cons 'help-mode-finish temp-buffer-window-show-hook))) (setq help-window-old-frame (selected-frame)) with-temp-buffer-window nil 'help-window-setup] 13 (#$ . 52543)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-help-window lisp-indent-function 1 put edebug-form-spec t] 5)
#@46 Display the output of a non-nil `help-form'.
(defalias 'help-form-show #[0 "\306!\211;\2055	r\307\310!q\210p\311 \210
\312\211\313\211\313\314 \210\315\316!\210+\211\317!\320!\210)\266\202\207" [help-form default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks eval get-buffer-create " *Char Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show inhibit-read-only standard-output] 7 (#$ . 53578)])
#@136 Return a doc string that represents STRING.
The result, when formatted by `substitute-command-keys', should equal STRING.

(fn STRING)
(defalias 'help--docstring-quote #[257 "\300\301\302#\207" [replace-regexp-in-string "['\\`‘’]" "\\\\=\\&"] 5 (#$ . 54105)])
#@495 Split a function DOCSTRING into the actual doc and the usage info.
Return (USAGE . DOC), where USAGE is a string describing the argument
list of DEF, such as "(apply FUNCTION &rest ARGUMENTS)".
DEF is the function whose usage we're looking for in DOCSTRING.
With SECTION nil, return nil if there is no usage info; conversely,
SECTION t means to return (USAGE . DOC) even if there's no usage info.
When SECTION is \='usage or \='doc, return only that part.

(fn DOCSTRING DEF &optional SECTION)
(defalias 'help-split-fundoc #[770 "\205\300\301\"\211\203\"
\302>\205#\303\224\303U?\205#\303\211\224O\202#
\205N\304>\205N\305\306\"\307\3109\203I\203I\311\307\312	\"!\202J\313#\262
\314\267\202c\211\205d\211B\207\211B\207\207
\207\315\207" [string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" (t nil doc) 0 (t nil usage) match-string 1 format "(%s%s" help--docstring-quote "%S" anonymous #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 84 t 92 usage 96 doc 97)) nil] 12 (#$ . 54377)])
#@258 Add the usage info to DOCSTRING.
If DOCSTRING already has a usage info, then just return it unchanged.
The usage info is built from ARGLIST.  DOCSTRING can be nil.
ARGLIST can also be t or a string of the form "(FUN ARG1 ARG2 ...)".

(fn DOCSTRING ARGLIST)
(defalias 'help-add-fundoc-usage #[514 "
;\204\300\262\301\302\"\204\211\303=\203
\207
\301\304\"\2031\305\225\305\224Z\306W\203-\307\2022\300\2022\310;\203N\301\311\"\203H\312\313\314\"\315Q\202R\316\317!\202R\320\321\"Q\207" ["" string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" t "\n?\n\\'" 0 2 "\n" "\n\n" "\\`[^ ]+\\(.*\\))\\'" "(fn" match-string 1 ")" error "Unrecognized usage format" help--make-usage-docstring fn] 8 (#$ . 55428)])
#@219 Return a formal argument list for the function DEF.
If PRESERVE-NAMES is non-nil, return a formal arglist that uses
the same names as used in the original source code, when possible.

(fn DEF &optional PRESERVE-NAMES)
(defalias 'help-function-arglist #[513 "
9\203\300!\203\301!\262\302!\203#
\211\303H\303H\262
\262\202
\242\304=\203.
A\262\305!\203?
\306H<\203?
\306H\207
\242\307=\203J
A@\207
\242\310=\203U\3038\207\311\312!\203l\313!\203l\314!<\203l\314!\207\305!\203y
\306H\250\204\205\313!\204\205\315!\203M
\211\203\346\3161\224\317!0\202\226\210\320\211\205\237\321
\320\"@\211\205\251\322
\227!@A\323
\211\203\333\211@\2119\203\321\324
!\211\306H\325=\203\307
\326>\202\314\327\330\"?\262
\204\324\320\262
A\266\202\202\253\210\211\205\341
\266\204\206b
\331!\211A
@\320\306\211W\203
\332\333\334T!P!B\262\211T\262
\202\357\210\250\203;
V\203;
\335
B\262
Z\306\211W\2039
\332\333\334T\\!P!B\262\211T\262
\202
\266\250\204J
\336
B\262
\337
B\262
\211\237\207
\211\242\340=\262
\203a
\3418\342=\204a
\343\207\323\207" [fboundp indirect-function advice--p 2 macro byte-code-function-p 0 lambda closure featurep native-compile subrp subr-native-lambda-list module-function-p (error) documentation nil help-split-fundoc read-from-string t symbol-name 38 (&rest &optional) string-search "." func-arity intern "arg" number-to-string &optional &rest rest autoload 4 keymap "[Arg list not available until function definition is loaded.]"] 13 (#$ . 56146)])
#@25 

(fn FUNCTION ARGLIST)
(defalias 'help--make-usage #[514 "
9\203	
\202\n\300\301\302\"B\207" [anonymous mapcar #[257 "\2119\203%\300
!\301\302\"\203
\207\301\303\"\203 \304
\305\306O\226!\207\304
\226!\207\211:\203;\211@9\203;\304\300@!\226!
AB\207\207" [symbol-name string-match "\\`&" "\\`_." intern 1 nil] 6 "\n\n(fn ARG)"]] 6 (#$ . 57679)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias help-make-usage help--make-usage nil make-obsolete "25.1"] 4)
#@19 

(fn FN ARGLIST)
(defalias 'help--make-usage-docstring #[514 "\301\302\303\304\305\"\"!)\207" [print-escape-newlines t help--docstring-quote format "%S" help--make-usage] 8 (#$ . 58171)])
#@260 An alist of confusable characters to give hints about.
Each alist element is of the form (CHAR . REPLACEMENT), where
CHAR is the potentially confusable character, and REPLACEMENT is
the suggested string to use instead.  See
`help-uni-confusable-suggestions'.
(defconst help-uni-confusables '((8216 . "'") (8217 . "'") (8219 . "'") (8220 . "\"") (8221 . "\"") (8223 . "\"") (12318 . "\"") (65282 . "'") (65287 . "'")) (#$ . 58370))
#@65 Regexp matching any character listed in `help-uni-confusables'.
(defconst help-uni-confusables-regexp (byte-code "\301\302\303\"\304Q\207" [help-uni-confusables "[" mapcar car "]"] 4) (#$ . 58807))
#@65 Return a message describing confusables in STRING.

(fn STRING)
(defalias 'help-uni-confusable-suggestions #[257 "\302\303\304#\211\262\203-\305H	\"HB\262\306
\307\211$\262
G\\\262\210\202\211\205?\310\311\312\313G#\314\315\316##\207" [help-uni-confusables-regexp help-uni-confusables 0 nil string-match alist-get replace-match t format-message ngettext "Found confusable character: %s, perhaps you meant: `%s'?" "Found confusable characters: %s; perhaps you meant: `%s'?" mapconcat #[257 "\300\301\"\207" [format-message "`%c'"] 4 "\n\n(fn C)"] ", "] 9 (#$ . 59012)])
#@28 

(fn DATA CONTEXT SIGNAL)
(defalias 'help-command-error-confusable-suggestions #[771 ":\2054\242\211\300=\2052\243\211:\2050\211\242
\243\211?\205.\301\302!!\211\205,\303\304P\305\"\262
\266\202\262
\262
\207" [void-variable help-uni-confusable-suggestions symbol-name princ "\n  " t] 11 (#$ . 59610)])
(byte-code "\300\301\302\303B\304\305$\210\306\307\310\305#\210\311\307\310\312#\210\313\314!\207" [advice--add-function :after #[0 "\300\301!\207" [default-value command-error-function] 2] #[257 "\300\301\"\207" [set-default command-error-function] 4 "\n\n(fn GV--VAL)"] help-command-error-confusable-suggestions nil defalias help-for-help-internal help-for-help make-obsolete "28.1" provide help] 5)