Current File : //usr/local/share/emacs/27.2/lisp/help.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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) (#$ . 550))
#@59 Frame selected at the time `with-help-window' is invoked.
(defvar help-window-old-frame nil (#$ . 674))
#@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\211\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 "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit] 5) (#$ . 784))
(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 (#$ . 3023) 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 (#$ . 3140))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias print-help-return-message help-print-return-message nil make-obsolete "23.2"] 4)
#@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 (#$ . 3670)])
(byte-code "\300\301KM\210\302\303\304\"\210\302\305\304\"\207" [defining-kbd-macro start-kbd-macro defalias help help-for-help-internal help-for-help] 3)
#@2816 You have typed %THIS-KEY%, the help character. Type a Help option:
(Use SPC or DEL to scroll through this text. Type \<help-map>\[help-quit] to exit the Help command.)
a PATTERN Show commands whose name matches the PATTERN (a list of words
or a regexp). See also the `apropos' command.
b Display all key bindings.
c KEYS Display the command name run by the given key sequence.
C CODING Describe the given coding system, or RET for current ones.
d PATTERN Show a list of functions, variables, and other items whose
documentation matches the PATTERN (a list of words or a regexp).
e Go to the *Messages* buffer which logs echo-area messages.
f FUNCTION Display documentation for the given function.
F COMMAND Show the Emacs manual's section that describes the command.
g Display information about the GNU project.
h Display the HELLO file which illustrates various scripts.
i Start the Info documentation reader: read included manuals.
I METHOD Describe a specific input method, or RET for current.
k KEYS Display the full documentation for the key sequence.
K KEYS Show the Emacs manual's section for the command bound to KEYS.
l Show last 300 input keystrokes (lossage).
L LANG-ENV Describe a specific language environment, or RET for current.
m Display documentation of current minor modes and current major mode,
including their special commands.
n Display news of recent Emacs changes.
o SYMBOL Display the given function or variable's documentation and value.
p TOPIC Find packages matching a given topic keyword.
P PACKAGE Describe the given Emacs Lisp package.
r Display the Emacs manual in Info mode.
s Display contents of current syntax table, plus explanations.
S SYMBOL Show the section for the given symbol in the Info manual
for the programming language used in this buffer.
t Start the Emacs learn-by-doing tutorial.
v VARIABLE Display the given variable's documentation and value.
w COMMAND Display which keystrokes invoke the given command (where-is).
. Display any available local help at point in the echo area.
C-a Information about Emacs.
C-c Emacs copying permission (GNU General Public License).
C-d Instructions for debugging GNU Emacs.
C-e External packages and information about Emacs.
C-f Emacs FAQ.
C-m How to order printed Emacs manuals.
C-n News of recent Emacs changes.
C-o Emacs ordering and distribution information.
C-p Info about known Emacs problems.
C-s Search forward "help window".
C-t Emacs TODO list.
C-w Information on absence of warranty for GNU Emacs.
(defalias 'help-for-help-internal-doc #[0 "\300\207" [nil] 1 (#$ . 5161)])
#@15 Help command.
(defalias 'help-for-help-internal #[0 "\306\307\310!!\203 \311\312\"\210\313\314!\315 C\316 \317C\317C\317\211\320\321 \"\2035 \322\323\324\325 \326\327#!\330\211 $\262\331\326\332\333\334\n #\335\"\336$\216\317\n\241\210\337\340\341#\210\337\342\343 \344\"#\210\203\200 \345\317!)\262\343
\"\203x \343
\"\262\326H\262\202\203 \346\262\211\346=\204\227 \211@=\204\227 \211A>\203R\347 \240\210\350\351\317\330#\210\352\353!\203\270 \354 =\204\270 \354 \240\210\317\240\210\317B\330 C\355 \210c\210)\242\356 \210 \240\210)eb\210\211\357A@\360B\">\204\356 \211\242\361=\204\356 \362\232\203R\3631 \211\242\361=\203\377 \364!\202\211\365>\203\n\366 \202\211\367>\204\362\232\205\370 0\202 \210\202!\210\330 D\345\371\372\373d!\2034\374\2025\375\"!\262\326H\262*\211\376=\203\324 \377\343\"\317#\210\202\324 \311\374!\210\211<\203g\211EBE\317\240\202\253\343\"\211\203\245\242\203\200\201F \242!\210\317\240\210\242\201G !\210)\242\205\251\242\316 =\204\237\201H \242!\210\317\240\202\251\201I \262*\266\210\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" documentation help-for-help-internal-doc make-sparse-keymap selected-frame nil string-match "%THIS-KEY%" replace-match key-description substring this-command-keys 0 -1 t make-byte-code "\301\242\203\n \304\301\242!\210\302\242\203 \305\302\242!\210\300\242\211\207" vconcat vector [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 append (63 22 32 127 delete backspace vertical-scroll-bar 134217846) switch-frame "\366" (error) handle-switch-frame (22 32) scroll-up (127 134217846 delete backspace) scroll-down format "Type one of the options listed%s: " pos-visible-in-window-p "" ", or SPACE or DEL to scroll" vertical-scroll-bar command-execute help-char help-event-list buffer-read-only inhibit-read-only cursor-in-echo-area unread-command-events set-window-configuration call-interactively iconify-frame ding] 17 (#$ . 8057) 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\305\306\307\"\310\"\311$\216\312!\210\3131O \212\314\315!\304U\2035 gz\316=\2045 gz\317=\2045 \320\321!\210\322\323w\210\324p!\2119\205H \325!\205H \211\262)0\202S \210\202V \206\330 \3261\215 \212\214\323e`\327Z]d}\210\330\331!\210\331u\210\332\333!\203w \334\335!\210\324p!\2119\205\206 \325!\205\206 \211\262+0\202\221 \210\202\224 \206\330 \336 \211\205\235 \337!\211\203\253 \325!\203\253 \211\202\326 \340 \303\304\341\306\307!\342\"\343$\216\205\323 \344\345\"\205\323 \337\346\331\"!\262\325!\205\323 )\262\266\202)\207" [emacs-lisp-mode-syntax-table forward-sexp-function syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) skip-syntax-backward "_w" 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 "\301\300\302\"\207" [set-match-data evaporate] 3 string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string] 11 (#$ . 10460)])
#@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 (#$ . 11685)])
#@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 (#$ . 11876) 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 (#$ . 12046) 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 (#$ . 12210) 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 (#$ . 12393) 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 \302\303GS#\2021 \304GS\305\"\303\211GW\203. HI\210\211T\262\202 \266\202!\207" [this-command-keys describe-bindings substring 0 make-vector nil] 8 (#$ . 12664) 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:\203g \302C\303\304\305\306\307\310!\311\"\312\313%\314\315 \302\316\302$B\"\210\317\320\242!\321\"\262\211@\322\323\324\"\302\211\211\211&\262\325!\250\203P \325!\262\202e \235\204e \325!\325!X\204e \326\327\"\210\266\211\250\203\225 \211\330X\203{ \323\331\"\262\202\225 \211\332X\203\212 \323\333\"\262\202\225 \211V\203\225 \326\334\"\210\211;\203\240 \325!\202\241 \211\211Y\203\253 \314\202\271 \211\332W\203\265 \335\202\271 \323\336\"\302\337\340 \"!\210~\210eb\210;\205\341\342W\203\326 \343\202\327 \344\345Q\302\346#\205\347 \210`\212\341\342W\203\360 \350\202\361 \351\302\346#\211\262\203\352\353!\232\204\345 \204 db\210\347 \210`)}\207" [emacs-major-version data-directory nil mapc make-byte-code 257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314 \"!\210\315\316\235\203% \317\202& \320\321\322#\2058 \300\323\324!\300\242B\240\210\202 *\207" vconcat vector [data-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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 t match-string-no-properties 1] 8 "\n\n(fn FILE)" "NEWS" directory-files "\\`NEWS\\.[0-9][-0-9]*\\'" sort delete-dups string> completing-read format "Read NEWS for the version (default %s): " string-to-number error "No news about version %s" 12 "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 (#$ . 13147) "P"])
#@50 Display the Emacs TODO list.
(fn &optional ARG)
(defalias 'view-emacs-todo #[256 "\300\301!\207" [view-help-file "TODO"] 3 (#$ . 15192) "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 (#$ . 15342) 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 (#$ . 15673) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[0 "\300\301!\207" [info "(efaq)"] 2 (#$ . 15847) 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 (#$ . 15993) nil])
#@46 Display info on how to debug Emacs problems.
(defalias 'view-emacs-debugging #[0 "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 16167) 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 (#$ . 16316) nil])
#@177 Display last few input keystrokes and the commands run.
For convenience this uses the same format as
`edit-last-kbd-macro'.
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\327 m\204H \330 \210\331y\210\202; *`\312\223)\262rq\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\203 A\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 (#$ . 16500) nil])
#@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\204 p\262\305\306E\307\310!\"\210\311\211\223\210\312 B\313\nB\314 \315 \316!\211 \311\211r\315 q\210\317\")\262rq\210\320\311\"\262)\321\322!\203O \322\"\202P \211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output 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 temp-buffer-window-show functionp help-window-setup] 9 (#$ . 17665) nil])
#@388 Show a list of all defined keys, and their definitions.
We put that list in a buffer, and display the buffer.
The optional argument MENUS, if non-nil, says to mention menu bindings.
(Ordinarily these are omitted from the output.)
The optional argument PREFIX, if non-nil, should be a key sequence;
then we display only bindings that start with that prefix.
(fn &optional MENUS PREFIX)
(defalias 'describe-bindings-internal #[512 "p\305\211\223\210\306 B\307\nB\310 \311 \312!\211 \305\211r\311 q\210\313 #)\262rq\210\314\305\"\262)\315\316!\203A \316\"\202B \211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-buffer-bindings temp-buffer-window-show functionp help-window-setup] 11 (#$ . 18719)])
(make-obsolete 'describe-bindings-internal 'describe-buffer-bindings "24.4")
#@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\203 p\202 \306\307\310\311\312\313 #\314\"\315\316%!\210\242B\211\203\272 \211@\317!\320 \305\211%\321\322\323#\305\203q G\324V\203i \203` \325\326$\202\234 \325\327#\202\234 \325\330\"\202\234 G\324V\203\220 \203\207 \325\331$\202\234 \325\332#\202\234 \n=\205\234 \325\333\"\262\211\203\261 \n=\204\255 \334\335!\210\334!\210\266A\266\202\202/ \210)\266\305\207" [standard-output overriding-local-map error "No command" indirect-function nil mapatoms make-byte-code 257 "\303!\205% \211\300=?\205% \301\3041 \305!0\202 \210=\205% \302\302\242B\240\207" vconcat vector [fboundp (error) indirect-function] 4 "\n\n(fn SYMBOL)" command-remapping where-is-internal mapconcat key-description ", " 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 (#$ . 19706) (byte-code "\303 \304\305\306\203 \307\310\"\202 \311 \312\304\305\211 \205! \313\n!&\262\211\314\232?\205/ \315!\n)D\207" [enable-recursive-minibuffers obarray current-prefix-arg function-called-at-point t nil completing-read format "Where is command (default %s): " "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 \211\202/ \300!\232\203( \202- \303\304#\262\207" [key-description 0 27 format "%s (translated from %s)"] 8 (#$ . 21293)])
#@13
(fn DEFN)
(defalias 'help--binding-undefined-p #[257 "\211?\206
\211\250\206
\211\300=\207" [undefined] 3 (#$ . 21539)])
#@151 Get information about KEY its corresponding UNTRANSLATED events.
Returns a list of the form (BRIEF-DESC DEFN EVENT MOUSE-MSG).
(fn KEY UNTRANSLATED)
(defalias 'help--analyze-key #[514 "\211\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\312\313\"\211\314=\203i \211GSH;\203i \312\315\302\316#!\317=\203i \320\262\211GSH;\203y \211GS\321I\210\203\215 \211GSH;\203\215 \211GS\321I\210\322\"\323!\203\241 \324\325#\202\247 \324\326$\262F\207" [error "Missing `untranslated'!" 0 1 event-modifiers click down drag " at that spot" "" key-binding t nil substring -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"] 12 (#$ . 21671)])
#@44 Drop the undefined keys.
(fn INFO-LIST I)
(defalias 'help--filter-info-list #[514 "\300\301\302\303\304\305\306\307!\310\"\311\312%\"\"\206 \313!\207" [delq nil mapcar make-byte-code 257 "\301\3008!?\205\n \211\207" vconcat vector [help--binding-undefined-p] 4 "\n\n(fn X)" last] 11 (#$ . 22530)])
#@447 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.
(fn &optional KEY-LIST INSERT UNTRANSLATED)
(defalias 'describe-key-briefly #[768 "\300!\203 \247\203 \301 \202 BC\262\302\303\"\304\305\306\307\"\310#\203+ \211c\202/ \311\312\"\207" [arrayp this-single-command-raw-keys mapcar #[257 "\300@A\"\207" [help--analyze-key] 4 "\n\n(fn KR)"] mapconcat car help--filter-info-list 1 "\n" message "%s"] 9 (#$ . 22842) (byte-code "\301\302!\211D\207" [current-prefix-arg help--read-key-sequence no-mouse-movement] 3)])
(set-advertised-calling-convention 'describe-key-briefly '(key-list &optional insert) "27.1")
#@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\205G \2119\203F \204F \304!\203F \305\306\307\"!\202G \207" [current-active-maps t nil lookup-key command-remapping help--key-binding-keymap vector remap] 11 (#$ . 23819)])
#@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\205W \3052W \306\307D\310\304\311\312\"\"\244\313\314\315\316 \"!D\244\211\211\203B \211@\317!\203; J=\203; \320\305\"\210A\266\202\202# \210\321\322\323\324\325\326!\327\"\330\331%!\210\304\2620\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-byte-code 257 "\301!\205 \302!\205 \211J\300=\205 \303\304\"\207" vconcat vector [boundp special-variable-p throw found] 4 "\n\n(fn X)"] 11 (#$ . 24393)])
#@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\310\311\312!\313\"\314$\216\305\211\nA\204' \315\n!\240\210\316\317\305\"\210\211\203@ \320>\204@ \321>\203\215 \322 \323\245\304\"\204\215 \324\325\305\211\326$\327 G\307V\205T \211GSH\330!\331!G\307U\204\210 \203l \332=\204\210 \333\267\202} B\262 \202\210 \202\210 \211\262BB\262\266\202' \203\230 \237B\202\232 \211\237\266\202+\207" [cursor-in-echo-area enable-disabled-menus-and-buttons yank-menu double-click-time t nil make-byte-code 0 "\300\242\205 \302\300\242!\301\303 BM\207" vconcat vector [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 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 114 switch-frame 114 select-window 114 help-echo 122))] 14 (#$ . 25339)])
#@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 "\305!\203, C\205 CB\262\203) \247\203 \306 \202 \307!\211@\241\266\310\262\2061 p\311\312\313\314\315\316!\317\"\320\321%\"\322rq\210\311\323\")\324\"\325\326E\327\330!\"\210\211G\331X\203s \332\324@8!\203s \333\334@A@\"\202*\310\211\223\210\335 B\336\nB\337 \340 \341!\211 \310\211G\331V\203\260 \342\343!\210\342\344\345\346#!\210\347\310\"\203\254 \342\350!\210\342\351!\210\211\205 \211@\211@A\211@A\211@A\211@A\n\203 G\331V\203\350 r\fq\210\352\353\346\354\355#\346\261\210)\342!\210\203\370 \342\356\357\"!\210\342\360!\210\361!\210\266\fA\266\202\202\261 \262\262rq\210\362\310\"\262)\363\364!\203%\364\"\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-byte-code 257 "\211A \302>?\205% \211G\303V\205% \211\303H\242\304=\205% r\300q\210\305\306\303H!!)\207" vconcat vector [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@A\211\300\"\211@A\211@A\211@A\211@A\n\301\302!\"F\262\266\204\266\211\266\202\207" [help--analyze-key help--binding-locus event-start] 23 "\n\n(fn X)"] 2 help-setup-xref #[514 "\300\301!\205 \"\207" [describe-key buffer-live-p] 6 "\n\n(fn KEY-LIST BUF)"] 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@A\211@A\211@A\211@A\n\300P\266\204\207" [" "] 15 "\n\n(fn INFO)"] "\n" delq "\n\nThose are influenced by `mouse-1-click-follows-link'" "\n\nThey're all described below." "\n\n" propertize face (:height 0.1 :inverse-video t :extend t) format " (found in %s)" ", which is " describe-function-1 temp-buffer-window-show functionp help-window-setup] 29 (#$ . 26947) (byte-code "\300 C\207" [help--read-key-sequence] 1)])
(set-advertised-calling-convention 'describe-key '(key-list &optional buffer) "27.1")
#@559 Display documentation of current major mode and minor modes.
A brief summary of the minor modes comes first, followed by the
major mode description. This is followed by detailed
descriptions of the minor modes, each on a separate page.
For this to work correctly for a minor mode, the mode's indicator
variable (listed in `minor-mode-alist') must also be a function
whose documentation describes the minor mode.
If called from Lisp with a non-nil BUFFER argument, display
documentation for the major and minor modes of that buffer.
(fn &optional BUFFER)
(defalias 'describe-mode #[256 "\211\204 p\262\306\307D\310\311!\"\210\312\211\223\210\313 B\314\nB\315 \316 \317!\211 \312\211rq\210\312
\211\203M \211@\211@\262\211@>\204F \211@B@A\266\202\202/ \210@\211\203\232 \211@\211\320N\206] \211\321!\203\222 J\203\222 \322!\203\222 \323\324\325!\"\203\204 \326\327\325!\330\211\224#!\202\205 \211\331
\236!EB\262\210\210A\266\202\202P \210deZ\332 U\204\251 \333B\262\334\335\"\262\211\2032\336\337!\210\340\341!\210r\fq\210\211\211\203\"\211@\211@A@\3428\212db\210\336\343!\210\344 !B!\345\346\347\350C\351\352&\210\336\353\354G\330U\203\370 \355\202\374 \353\356\"\"!\210\336\357\360!\312\361#!\210)\362\363!@\364\365\366\367&\210\370 \266A\266\202\202\300 \210\371y\210\372\312!\210\373y\210)\336\374!\210Ar\fq\210`\331\312\211 $c\210\375`\376#\266)\210\336\377!\210B\201C \312\"\211\203\211\336\201D \201E \201F !\"!\210r\fq\210\212\201G \201H \201I !\312\365#\210\201J \373\201K $\210*\266\336\201L !\210\336\357\360B!\312\361#!\262)\262rq\210\201M \312\"\262)\201N \201O !\203\276\201O \"\210)\266*\312\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output minor-mode-alist help-setup-xref describe-mode called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup :minor-mode-function boundp fboundp string-match "\\(\\(-minor\\)?-mode\\)?\\'" symbol-name capitalize substring 0 format-mode-line buffer-size (narrow-to-region "Narrow" " Narrow") sort #[514 "A@A@\231\207" [] 4 "\n\n(fn A B)"] princ "Enabled minor modes:\n" make-local-variable help-button-cache 2 "\n\f\n" point-marker insert-text-button type help-function help-args button (t) format " minor mode (%s):\n" "no indicator" "indicator%s" help-split-fundoc documentation doc insert-button action follow-link t help-echo "mouse-2, RET: show full information" newline -1 fill-paragraph 1 "\n(Information about these minor modes follows the major mode info.)\n\n" add-text-properties (face bold) " mode" minor-mode-list mode-name major-mode find-lisp-object-file-name format-message " defined in `%s'" file-name-nondirectory re-search-backward substitute-command-keys "`\\([^`']+\\)'" help-xref-button help-function-def ":\n" temp-buffer-window-show functionp help-window-setup] 19 (#$ . 29743) "@"])
#@31 Search forward "help window".
(defalias 'search-forward-help-for-help #[0 "\300\301!\210\302\303\304\"\207" [pop-to-buffer " *Metahelp*" isearch-forward nil t] 3 (#$ . 32728) 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!!\202, \235\203( \305!\202, \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 (#$ . 32916) (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 (#$ . 33791) (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 \302\202 \211\301H\303=\203 \304\305\"\202 \211\207" [format-mode-line 0 nil 32 substring 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!\202 \302\303\"\207" [lookup-minor-mode-from-indicator describe-minor-mode-from-symbol error "Cannot find minor mode for `%s'"] 5 (#$ . 34436) (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 "\301GW\203 \211\301H\302=\203 \303\304\"\262\305\203V @@\306@A@!\211;\203> \211G\301V\203> \211\301H\302=\203> \303\304\"\262\232\203M \262\305\262\202Q A\262\266\202 \207" [minor-mode-alist 0 32 substring 1 nil format-mode-line] 8 (#$ . 34983)])
(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\310\311\306\330& \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] "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] "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] "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)
#@865 Toggle auto-resizing temporary buffer windows (Temp Buffer Resize Mode).
If called interactively, enable Temp-Buffer-Resize mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203% \307\310\311\312#\210\202* \313\310\311\"\210\314\315\304\300!\2036 \316\2027 \317\"\210\320\321!\203a \322\300!\210\301 \203O \211\301 \232\203a \323\324\325\304\300!\203\\ \326\202] \327#\266\210\330 \210\304\300!\207" [temp-buffer-resize-mode current-message set-default toggle default-value prefix-numeric-value 0 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] 7 (#$ . 37624) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar temp-buffer-resize-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode temp-buffer-resize-mode nil 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\312\313\314!\315\"\316$\216\317@\320\"\210\321 !*\262\202- \306 !\203S \307!r\310\311\312\313\314!\322\"\316$\216\317@\320\"\210 \321 !*\262\202T \323\324\"A@\211\325=\203~ \326!\203s \n\327=\204s \330e\"\204\220 \326\305\"\203~ \n\204\220 \211\331=\205\231 \205\231 \332!=\205\231 \333\334\334\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-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord window-buffer [internal--after-with-selected-window] window-parameter quit-restore window window-combined-p only pos-visible-in-window-p frame frame-root-window fit-window-to-buffer nil] 11 (#$ . 39775)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317#\210\320\211\2039 \211@\315N\2032 \316N\2042 \321\316\315N#\210A\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] "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] "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 (#$ . 43171)])
#@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 (#$ . 43839)])
#@442 Evaluate BODY, send output to BUFFER-OR-NAME and show in a help window.
This construct is like `with-temp-buffer-window' but unlike that
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 (#$ . 45578)]))
(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 (#$ . 46597)])
#@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 (#$ . 47124)])
#@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$ \304\303\211\224#\202$ \205O \305>\205O \306\307\"\310\3119\203J \203J \312\310\313 \"!\202K \314#\262\204] \211\205r \211B\202r \315\267\202q \211B\202r \211\202r \202r \316\207" [string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" (t nil doc) 0 substring (t nil usage) match-string 1 format "(%s%s" help--docstring-quote "%S" anonymous #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 99 usage 105 doc 109)) nil] 12 (#$ . 47396)])
#@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 (#$ . 48474)])
#@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\305!\203b \306H\250\204n \311!\204n \312!\203=\211\203\317 \3131} \314!0\202 \210\315\211\205\210 \316\315\"@\211\205\222 \317\227!@A\320\211\203\304 \211@\2119\203\272 \321!\211\306H\322=\203\260 \323>\202\265 \324\325\"?\262\204\275 \315\262A\266\202\202\224 \210\211\205\312 \266\204\206R\326!\211A@\315\306\211W\203\364 \211\327\330\331T!P!B\262\210\211T\262\202\331 \266\250\203+V\203+\332B\262Z\306\211W\203)\211\327\330\331\333\334\n#!P!B\262\210\211T\262\202\n\266\250\204:\335B\262\336B\262\211\237\207\211\242\337=\262\203Q\3408\341=\204Q\342\207\320\207" [fboundp indirect-function advice--p 2 macro byte-code-function-p 0 lambda closure subrp module-function-p (error) documentation nil help-split-fundoc read-from-string t symbol-name 38 (&rest &optional) string-match "\\." func-arity intern "arg" number-to-string &optional + 1 &rest rest autoload 4 keymap "[Arg list not available until function definition is loaded.]"] 16 (#$ . 49192)])
#@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 \202( \301\303\"\203$ \304\305\306\"\226!\202( \304\226!\207\211:\203? \211@9\203? \304\300@!\226!AB\207\207" [symbol-name string-match "\\`&" "\\`_." intern substring 1] 6 "\n\n(fn ARG)"]] 6 (#$ . 50649)])
(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 (#$ . 51152)])
#@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 . "'")) (#$ . 51351))
#@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) (#$ . 51788))
#@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$\262G\\\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 (#$ . 51993)])
#@28
(fn DATA CONTEXT SIGNAL)
(defalias 'help-command-error-confusable-suggestions #[771 ":\2057 @\211\300=\2055 A\211:\2053 \211@A\211?\2051 \301\302!!\211\205- \303\304P\305\"\262\262\266\202\262\262\207" [void-variable help-uni-confusable-suggestions symbol-name princ "\n " t] 12 (#$ . 52591)])
(byte-code "\300\301\302\303B\304\305$\210\306\307!\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 provide help] 5)
Mini Shell