HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/help.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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 "\302 \303\304	!\305#\210\303\306\305#\210\303\307\305#\210\303\310\311#\210\303\312\305#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\342#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@\201A#\210\303\201B\201C#\210\303\201D\201E#\210\303\201F\201G#\210\303\201H\201I#\210\303\201J\330#\210\303\201K\201L#\210\303\201M\201N#\210\303\201O\201P#\210\303\201Q\201R#\210\303\201S\201T#\210\303\201U\201V#\210\303\201W\201X#\210\303\201Y\201Z#\210)\207" [map 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 "" 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] 4) (#$ . 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 #[nil "\300\207" [nil] 1 (#$ . 2973) 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 (#$ . 3092))
(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)
#@471 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'.
(defalias 'help-print-return-message #[(&optional function) "\306!?\205v	\204\307\310!!\203\311 \312B\313\202C\314\312!\204+\311 \315B\316\202C\2038\311 \312B\317\202C\311 \320 \321 \322 F\323
\206I\324\f\205P\325\f!\f\205U\326\206^\307\310!!?\205s\327\310!!\203p\325\330!\202s\325\331!Q!)\207" [standard-output pop-up-frames help-return-method pop-up-windows first-message function 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] to scroll the help." "\\[scroll-other-window] to scroll the help."] 6 (#$ . 3622)])
(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)
#@2775 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  Describes 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-t         Emacs TODO list.
C-w         Information on absence of warranty for GNU Emacs.
(defalias 'help-for-help-internal-doc #[nil "\300\207" [nil] 1 (#$ . 5120)])
#@15 Help command.
(defalias 'help-for-help-internal #[nil "\306\307\310!!	\203\311\312\"\210\313\314!\315 \f\316 >\317\211?@\317\211AB\320\321\n\"\203<\322\323\324 \325\326O!\327\211\n$\330\216\317C\241\210\331\332\333#\210\331\334\335D\336\"#\210	\203|E\337\317!)A\335FA\"\203s\335FA\"AA\325HB\202\340BB\340=\204\226BG=\204\226BH>\203U\341 ?\342\343\317\327#\210\344\345!\203\265\346 >=\204\265\346 @\317?\317I\327J\347 \210\nc\210)
\350 \210\f)eb\210B\351HG\352B\">\204\352B\242\353=\204\352A\354\232\203U\3551B\242\353=\203\375\356B!\202B\357>\203	\360 \202B\361>\204A\354\232\205\362 0\202!\210\202\"\210\327EK\337\363\364\365d!\2035\366\2026\367\"!\211A\325HB*B\370=\203\315\371\335A\"\317A#\210\202\315\311\366!\210B<\203mBLBL\317\211?\202\251\335A\"\211M\203\246?\203\205\372?!\210\317?
\373M!\210)@\205\250@\316 =\204\237\374@!\210\317\211@\202\250\375 ).\207" [line-prompt three-step-help help-screen local-map minor-mode-map-alist new-minor-mode-map-alist 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 this-command-keys 0 -1 t #[nil "\203\304!\210	\203\305	!\210\n\211\207" [config new-frame new-minor-mode-map-alist 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 set-window-configuration call-interactively iconify-frame ding prev-frame config new-frame key char help-map global-map overriding-local-map function-key-map help-char help-event-list buffer-read-only inhibit-read-only cursor-in-echo-area unread-command-events defn] 7 (#$ . 7977) 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 #[nil "\306 p\307\216\310\n!\210\3111C\212\312\313!\314U\203*gz\315=\204*gz\316=\204*\317\320!\210\321\322w\210\323p!\2119\205>\324!\205>*0\202G\210\202J\206\277\3251~\212\214e`\326Z]d}\210\327\330!\210\330u\210\331\332!\203i\333\334!\210\323p!\2119\205y\324!\205y+0\202\202\210\202\205\206\277\335 \211\205\217\336\f!\211\203\236\324
!\203\236
\202\276\337 $\340\216\f\205\275\341\342\f\"\205\275\336\343\330\f\"!\324
!\205\275
**+\207" [#1=#:buffer #2=#:table emacs-lisp-mode-syntax-table obj str sym syntax-table #[nil "rq\210\302	!)\207" [#1# #2# 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 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string save-match-data-internal] 5 (#$ . 10317)])
(defalias 'view-help-file #[(file &optional dir) "\303\304	\206\n\"!\210\305\306!\210eb\207" [file dir data-directory view-file expand-file-name goto-address-mode 1] 4])
#@64 Display info on how to obtain the latest version of GNU Emacs.
(defalias 'describe-distribution #[nil "\300\301!\207" [view-help-file "DISTRIB"] 2 (#$ . 11664) nil])
#@63 Display info on how you may redistribute copies of GNU Emacs.
(defalias 'describe-copying #[nil "\300\301!\207" [view-help-file "COPYING"] 2 (#$ . 11836) nil])
#@47 Browse online information on the GNU project.
(defalias 'describe-gnu-project #[nil "\300\301!\207" [browse-url "https://www.gnu.org/gnu/thegnuproject.html"] 2 (#$ . 12002) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias describe-project describe-gnu-project nil make-obsolete "22.2"] 4)
#@64 Display info on all the kinds of warranty Emacs does NOT have.
(defalias 'describe-no-warranty #[nil "\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 (#$ . 12320) 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 #[nil "\303 \304;\203\305GSO\2022\306GS\307\"\305	\nGW\2030\n		HI\210	T\211\202\n*!)\207" [key i prefix this-command-keys describe-bindings 0 make-vector nil] 6 (#$ . 12593) nil])
(byte-code "\301\211\207" [prefix-help-command describe-prefix-bindings] 2)
#@101 Display info on recent changes to Emacs.
With argument, display info only for the selected version.
(defalias 'view-emacs-news #[(&optional version) "\204	:\203V\306\307\310\311\312\306\313\306$B\"\210\314\315\n!\316\")\211@\317\320\321
\"\f\306\211\211\211
&\322!\250\203@\322!\202U\f\235\204U\322!\322
!X\204U\323\324\"\210*\250\203\202\325X\203i\320\326\"\202\202\327X\203w\320\330\"\202\202	V\203\202\323\331\"\210;\203\215\322!\202\216\211)	Y\203\232\311\202\252)\327W\203\245\332\202\252\320\333)\"*\306\334\335*\"!\210~\210eb\210;\205\336)\337W\203\314\340\202\315\341\342Q\306\343#\205\344 \210`\212\336)\337W\203\347\345\202\350\346\306\343#\211\203\370\347\350!\232\204\333\n\204\377db\210\344 \210`)}+\207" [version emacs-major-version res data-directory all-versions current nil mapc #[(file) "\304\305!rq\210\306\216\307\310	\n\"!\210\311	\312\235\203\313\202\314\315\316#\205,\317\320!B\202+\207" [#1=#:temp-buffer file data-directory res generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# 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] 4] "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 vn file] 9 (#$ . 13071) "P"])
#@30 Display the Emacs TODO list.
(defalias 'view-emacs-todo #[(&optional _arg) "\300\301!\207" [view-help-file "TODO"] 2 (#$ . 14977) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias view-todo view-emacs-todo nil make-obsolete "22.2"] 4)
#@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 #[nil "r\300 q\210db\210\301p!)\207" [messages-buffer display-buffer] 2 (#$ . 15241) nil])
#@68 Display information on how to buy printed copies of Emacs manuals.
(defalias 'view-order-manuals #[nil "\300\301!\207" [info "(emacs)Printed Books"] 2 (#$ . 15536) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[nil "\300\301!\207" [info "(efaq)"] 2 (#$ . 15712) nil])
#@69 Display info on known problems with Emacs and possible workarounds.
(defalias 'view-emacs-problems #[nil "\300\301!\207" [view-help-file "PROBLEMS"] 2 (#$ . 15860) nil])
#@46 Display info on how to debug Emacs problems.
(defalias 'view-emacs-debugging #[nil "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 16036) nil])
#@51 Display info on where to get more Emacs packages.
(defalias 'view-external-packages #[nil "\300\301!\207" [info "(efaq)Packages that do not come with Emacs"] 2 (#$ . 16187) nil])
#@109 Display last few input keystrokes and the commands run.

To record all your input, use `open-dribble-file'.
(defalias 'view-lossage #[nil "\306\307C\310\311!\"\210\312\211\223\210\313	B\314\nB\315 \316 \317\f!\211\312\211 !\320\321!\210\320\322\323\324\325!\321#!\210rq\210eb\210m\204W\326\327!\210l\204Q\330\331 \332 \"\210\333y\210\202>`\312\223)!r
q\210\334
\312\" )\335\336!\203x\336 !\"\202z!.\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name #2=#:buffer 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 #[(key) ":\203@\204\301\302A9\203A\202\303\"\207\250\204)9\204)<\203-\304!\207\305\306\"\207" [key format "[%s]\n" "anonymous-command" single-key-description prin1-to-string nil] 3] recent-keys include-cmds move-to-column 50 fill-region line-beginning-position line-end-position 1 temp-buffer-window-show functionp help-window-setup standard-output #3=#:window #4=#:value] 6 (#$ . 16373) nil])
#@399 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.
(defalias 'describe-bindings #[(&optional prefix buffer) "\204p\306\307	E\310\311!\"\210\n\312\211\223\210\313B\314\fB\315 \316 \317!\211\312\211r\316 q\210\320	\")rq\210\321\312\")\322\323!\203[\323\"\202].\207" [buffer prefix help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame 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 #1=#:vbuffer-or-name #2=#:buffer standard-output #3=#:window #4=#:value] 5 (#$ . 17535) nil])
#@359 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.
(defalias 'describe-bindings-internal #[(&optional menus prefix) "p	\306\211\223\210\307\nB\310B\311 \312 \313
!\211\306\211r\312 q\210\314#)rq\210\315\306\")\316\317!\203N\317\"\202P.\207" [buf help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name 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 #2=#:buffer standard-output #3=#:window #4=#:value prefix menus] 5 (#$ . 18642)])
(make-obsolete 'describe-bindings-internal 'describe-buffer-bindings "24.4")
#@225 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.
(defalias 'where-is #[(definition &optional insert) "\204\306\307!\210\310!\311	\203p\202\n\312\313!\210B\311\211\203\274@\314
!\315
\311\211%\316\317\320#\311	\203rG\321V\203k\203b\322\323
$\202\235\322\324
#\202\235\322\325
\"\202\235G\321V\203\223\203\212\322\326
$\202\235\322\327
#\202\235
=\205\235\322\330
\"\211\203\262
=\204\255\331\332!\210\331!\210,A\211\204'-\311\207" [definition insert standard-output defs func symbol error "No command" indirect-function nil mapatoms #[(symbol) "\304!\205$	=?\205$\n\3051\306!0\202\210=\205$B\211\207" [symbol definition func defs fboundp (error) indirect-function] 3] 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 " --dolist-tail-- remapped overriding-local-map keys string] 7 (#$ . 19690) (let ((fn (function-called-at-point)) (enable-recursive-minibuffers t) val) (setq val (completing-read (if fn (format "Where is command (default %s): " fn) "Where is command: ") obarray 'commandp t nil nil (and fn (symbol-name fn)))) (list (if (equal val "") nil (intern val)) current-prefix-arg))])
(defalias 'help-key-description #[(key untranslated) "\304!\n\203\n\305H\306=\203\305H\306=\204	\2020\304\n!	\232\203*	\202/\307\310	#))\207" [key string untranslated otherstring key-description 0 27 format "%s (translated from %s)"] 4])
#@128 Get information about KEY its corresponding UNTRANSLATED events.
Returns a list of the form (BRIEF-DESC DEFN EVENT MOUSE-MSG).
(defalias 'help--analyze-key #[(key untranslated) "\247\203\306 	\211\307H9\203\"	G\310V\203\"	\310H:\203\"\310\202#\307H\311\n!\312>\204;\313>\204;\314>\203?\315\202@\316\317	\320\"\211\321=\203b	\211GSH;\203b\317	\307\322O!\323=\203b\324	\211GSH;\203r	\211GS\325I\210\203\206\211GSH;\203\206\211GS\325I\210\326	\"
\203\233
\250\204\233
\327\232\203\244\330\331\f#\202\253\330\332\f
$)
\n\fF,\207" [untranslated key event modifiers mouse-msg defn this-single-command-raw-keys 0 1 event-modifiers click down drag " at that spot" "" key-binding t nil -1 yank-menu menu-bar-select-yank "(any string)" help-key-description undefined format "%s%s is undefined" "%s%s runs the command %S" key-desc] 6 (#$ . 21484)])
#@446 Print the name of the function KEY invokes.  KEY is a string.
If INSERT (the prefix arg) is non-nil, insert the message in the buffer.
If non-nil, UNTRANSLATED is a vector of the untranslated events.
It can also be a number in which case the untranslated events from
the last key hit are used.

If KEY is a menu item or a tool-bar button that is disabled, this command
temporarily enables it to allow getting help on disabled items and buttons.
(defalias 'describe-key-briefly #[(&optional key insert untranslated) "\304\305	\"@\n\203p\202\"\207" [key untranslated insert standard-output princ help--analyze-key] 4 (#$ . 22369) (byte-code "\306\307!\211@A\211@\nA		
\n.\310BB\207" [#1=#:val #2=#:x1374 #3=#:x1375 #4=#:x1376 #5=#:x1377 key help-read-key-sequence no-mouse-movement (1) _up-event current-prefix-arg] 4)])
#@186 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'.
(defalias 'help--key-binding-keymap #[(key &optional accept-default no-remap position) "\306\307\"\310\211\204(	\211A\242\211\203(\311\n\f
#\211\250\203	\310\211\203
\205F9\203E\204E\312!\203E\313\314\315\"!\202F\n+\207" [position active-maps map found key accept-default current-active-maps t nil lookup-key command-remapping help--key-binding-keymap vector remap no-remap] 5 (#$ . 23212)])
#@191 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'.
(defalias 'help--binding-locus #[(key position) "\306\307\310	$\211\205\\\3052\\\311\312D\313\310\314\315\"\"\244\316\317\320\321\f\"!D\244\310\211\310\211\203T@\322!\203K\nJ=\203K\323\305\"\210A\211\2041*\324\325!\210*\3100)\207" [key position map minor-mode-map-alist major-mode found help--key-binding-keymap t nil overriding-terminal-local-map overriding-local-map delq mapcar #[(mode-and-map) "@\211J\205\302\303\304	\"!)\207" [mode-and-map mode intern-soft format "%s-map"] 5] global-map intern-soft format "%s-map" boundp throw mapatoms #[(x) "\302!\205\303!\205J	=\205\304\305\"\207" [x map boundp special-variable-p throw found] 3] advertised-syms sym --dolist-tail--] 7 (#$ . 23820)])
#@276 Reads a key sequence from the user.
Returns a list of the form (KEY UP-EVENT), where KEY is the key
sequence, and UP-EVENT is the up-event that was discarded by
reading KEY, or nil.
If NO-MOUSE-MOVEMENT is non-nil, ignore key sequences starting
with `mouse-movement' events.
(defalias 'help-read-key-sequence #[(&optional no-mouse-movement) "\306\211\307\310\216\307\211\211\211%&A\204!\311&!\312\313\307\"\210\314\315!\211%'\316'!\205\222%\317H\211(:\205\221(@\211)9\205\220)*\320*!)\211+)*,-\203d\321\322,\"\206\217%
B\321\323,\"\205\217\324\325!\210\326\307\211\327#\204u\330.\247\203\213.\331\245\202\214\332\306\"?+)))\204!
\211/\203\337\333/@!\204\337/
=\203\326\316/@!\203\326/@GS0/@0H1\3341!\205\320\335\3361!>*\203\326\306/A\211/\204\235/\203\351/@%)%?\205e\316%!\205e%GS0\334%0H!\205\337\336%0H!>)\205e\334%\317H\211!\2030\337\336\f!>\2030%G\340U\204K%G\340V\205e\334%\340H\211!\205e\337\336\f!>\205e\341\307\342\"\203c\341\307\343\"\f\232\203c\344\307!\317H\202e\326 .D\207" [saved-yank-menu cursor-in-echo-area enable-disabled-menus-and-buttons discarded-up down-ev keys t nil #[nil "\205
\302!\301\303	BM\207" [saved-yank-menu yank-menu copy-sequence keymap] 3] copy-sequence menu-bar-update-yank-menu "(any string)" read-key-sequence "Describe the following key, mouse click, or menu item: " vectorp 0 symbol-name string-match "mouse-movement" "\\(mouse\\|down\\|click\\|drag\\)" sleep-for 0.01 read-event 0.01 sit-for 1000.0 3.0 key-binding eventp click event-modifiers down 1 terminal-parameter xterm-mouse-mode xterm-mouse-last-down read-key-sequence-vector key yank-menu #1=#:val #2=#:sym #3=#:x1378 key0 #4=#:sym keyname no-mouse-movement double-click-time keys-1 last-idx last] 6 (#$ . 24756)])
#@163 Add "down-" to BASE if it is not already there.
BASE is a symbol, a mouse event type.  If the modification is done,
return the new symbol.  Otherwise return nil.
(defalias 'help-downify-mouse-event-type #[(base) "\302!\303\304	\"\210\305\224?\205\306\224?\205\307\310\311\312\211	\313%!)\207" [base base-s symbol-name string-match "\\(A-\\)?\\(C-\\)?\\(H-\\)?\\(M-\\)?\\(S-\\)?\\(s-\\)?\\(double-\\)?\\(triple-\\)?\\(up-\\)?\\(\\(down-\\)?\\)\\(drag-\\)?" 11 12 intern replace-match "down-" t 10] 7 (#$ . 26579)])
#@631 Display documentation of the function invoked by KEY.
KEY 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 as a string or a vector.

If non-nil, UNTRANSLATED is a vector of the corresponding untranslated events.
It can also be a number, in which case the untranslated events from
the last key sequence entered are used.
UP-EVENT is the up-event that was discarded by reading KEY, or nil.

If KEY is a menu item or a tool-bar button that is disabled, this command
temporarily enables it to allow getting help on disabled items and buttons.
(defalias 'describe-key #[(&optional key untranslated up-event) "\306	\"\307\211\211\211\211\211\211234\2115@65A\2117@87A\2119@:9A\211;@<;A=<:86>?@A?\203]?\250\204]?\310\232\203e\311\312>\"\202Y\313\314?D\315\316!\"\210B\203\317B!\320B!C\n\321=\203\307D\203\307D\322=\204\307\323\324B!!\211\203\307D\250\205\246D\325V\f;\203\262\fC\202\307\326\f!\203\302B\f\325\234\240\210\202\307B\327\240\210\330C\307\211\324B!$4\331C\324B!\"2\203\320B!\211C\325\321I\210\330C\307\211\324B!$3\331C\324B!\")E\307\211\223\210\332FB\333GBGF\334 H\335 I\336I!\211JK\307\211LM\337>!\210\331\324@!\"\211N\203E\337\340\341N\"!\210)\337\342!\210\343?!\210\326!\203\270GSOOH\211P<\203l\344P!\202nPQ\307\211RSQ<\203\267Q@9\203\267\345Q@!\211S\203\267QS\240\210\320Q!R\330R!\203\267\337\340\346ST\247\203\263T\347\245\202\264\350#!\210-B\20574\2034\250\2044\310\232\204\337\340\351\203\332\352\202\333\353\354\320B!!A\f\203\353\355\202\354\35342\203\373\340\3412\"\202\374\353&!\210\3434!\2103?\2063\250\2063\310=?\2057\337\340\356\nAD3
\203.\340\341
\"\202/\353&!\210\3433!MrJq\210\357J\307\"L)\360\361!\203U\361LM\"\202WM..\207" [key untranslated ev-type mouse-1-tricky mouse-1-remapped key-locus-up-tricky help--analyze-key nil undefined message "%s" help-setup-xref describe-function called-interactively-p interactive event-basic-type vector mouse-1 double mouse-on-link-p event-start 0 vectorp mouse-2 key-binding help--binding-locus help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ format " (found in %s)" ", which is " describe-function-1 copy-sequence help-downify-mouse-event-type "\n\nFor documentation of the corresponding mouse down event <%s>,\nclick and hold the mouse button longer than %s second(s)." 1000.0 3 "\n\n----------------- up-event %s----------------\n\n%s%s%s runs the command %S%s, which is " "(short click) " "" key-description " is remapped to <mouse-2>, which" "\n\n----------------- up-event (long click) ----------------\n\nPressing <%S>%s for longer than %d milli-seconds\nruns the command %S%s, which is " temp-buffer-window-show functionp help-window-setup key-locus-up defn-up-tricky defn-up #1=#:x0 #2=#:x1384 #3=#:x1385 #4=#:x1386 #5=#:x1387 #6=#:x1388 #7=#:x1389 #8=#:x1390 #9=#:x1391 brief-desc defn event mouse-msg up-event sequence mouse-1-click-follows-link help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #10=#:vbuffer-or-name #11=#:buffer standard-output #12=#:window #13=#:value key-locus last elt elt-1 key-1 down-event-type double-click-time] 12 (#$ . 27106) (let* ((#14=#:val (help-read-key-sequence)) (#15=#:x1380 (car #14#)) (#16=#:x1381 (cdr #14#)) (#17=#:x1382 (car #16#)) (#18=#:x1383 (cdr #16#))) (let ((up-event #17#) (key #15#)) (list key (prefix-numeric-value current-prefix-arg) up-event)))])
#@536 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.
(defalias 'describe-mode #[(&optional buffer) "\204p\306\307D\310\311!\"\210	\312\211\223\210\313\nB\314B\315 \316 \317
!\211@A\312\211BCrq\210\312DE\312F\211G\203bG@\211F@\211FH>\204YFHBHGA\211G\204B*H\312I\211G\203\310G@\211I\320N\206{IJ\321I!\203\276IJ\203\276\322J!\203\276\323\324\325J!\"\203\250\326\325J!\327\211\224O!\202\252JKJK\330IE\236!EDBD))GA\211G\204n*\331D\332\"\211D\203h\333\334!\210\335\336!\210rAq\210D\312I\211G\203XG@\211I@IA@\337I8LKM\212db\210\333\340!\210\341 B\342K\343\344\345MC\346\347&\210\333\350\351LG\327U\203-\352\2022\350\353L\"\"!\210\333\354M!!\210)\355K\356@\357\360\361\362&\210\363 \210+GA\211G\204\354*\364y\210\365\312!\210\366y\210)\333\367!\210NIrAq\210`O\330I\312\211$c\210\370O`\371#\210+\333\372!\210PI\373I\312\"\211Q\203\302\333\374\375\376Q!\"!\210rAq\210\212\377\201R\201S!\312\360#\210\201T\366\201UIQ$\210**\333\201V!\210\333\354P!!*Cr@q\210\201W@\312\"B)\201X\201Y!\203\367\201YBC\"\210\202\372C\210.\312\207" [buffer help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name 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 0 format-mode-line sort #[(a b) "A@	A@\231\207" [a b] 2] 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" documentation 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" find-lisp-object-file-name format-message " defined in `%s'" file-name-nondirectory re-search-backward #2=#:buffer standard-output #3=#:window #4=#:value minor-modes minor-mode-alist x --dolist-tail-- minor-mode-list mode fmode pretty-minor-mode indicator mode-function mode-name start major-mode file-name substitute-command-keys "`\\([^`']+\\)'" help-xref-button help-function-def ":\n" temp-buffer-window-show functionp help-window-setup] 9 (#$ . 30755) "@"])
#@158 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.
(defalias 'describe-minor-mode #[(minor-mode) "9\203	\303!\304 \305 \n\235\203\306\307!!\202-	\235\203)\310!\202-\311\312\"*\207" [minor-mode indicators symbols 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"] 3 (#$ . 33754) (list (completing-read "Minor mode: " (nconc (describe-minor-mode-completion-table-for-symbol) (describe-minor-mode-completion-table-for-indicator))))])
(defalias 'describe-minor-mode-completion-table-for-symbol #[nil "\301\302\303\304\"\"\207" [minor-mode-list delq nil mapcar symbol-name] 5])
#@65 Display documentation of a minor mode given as a symbol, SYMBOL
(defalias 'describe-minor-mode-from-symbol #[(symbol) "\301!\203\n\302!\207\303!\207" [symbol fboundp describe-function describe-variable] 2 (#$ . 34622) (list (intern (completing-read "Minor mode symbol: " (describe-minor-mode-completion-table-for-symbol))))])
(defalias 'describe-minor-mode-completion-table-for-indicator #[nil "\301\302\303\304\"\"\207" [minor-mode-alist delq nil mapcar #[(x) "\302!\211G\303U\203\304\202	\303H\305=\203	\306\304O\202	)\207" [x i format-mode-line 0 nil 32 1] 4]] 5])
#@173 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.
(defalias 'describe-minor-mode-from-indicator #[(indicator) "\302!\211\203\303	!\202\304\305\")\207" [indicator minor-mode lookup-minor-mode-from-indicator describe-minor-mode-from-symbol error "Cannot find minor mode for `%s'"] 4 (#$ . 35212) (list (completing-read "Minor mode indicator: " (describe-minor-mode-completion-table-for-indicator)))])
#@65 Return a minor mode symbol from its indicator on the mode line.
(defalias 'lookup-minor-mode-from-indicator #[(indicator) "\306GW\203\306H\307=\203\310\311O	\311\203T@@\312@A@!\211;\203@
G\306V\203@
\306H\307=\203@
\310\311O
\232\203M\f\311\202PA*\202\n*\207" [indicator minor-mode-alist result minor-modes minor-mode anindicator 0 32 1 nil format-mode-line] 4 (#$ . 35746)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\307\310\316&	\210\300\317\320\321\322\323\324\325\306\307\304\326&\207" [custom-declare-variable temp-buffer-max-height (lambda (buffer) (if (and (display-graphic-p) (eq (selected-window) (frame-root-window))) (/ (x-display-pixel-height) (frame-char-height) 2) (/ (- (frame-height) 2) 2))) "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 (lambda (buffer) (if (and (display-graphic-p) (eq (selected-window) (frame-root-window))) (/ (x-display-pixel-width) (frame-char-width) 2) (/ (- (frame-width) 2) 2))) "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 nil "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)
#@763 Toggle auto-resizing temporary buffer windows (Temp Buffer Resize Mode).
With a prefix argument ARG, enable Temp Buffer Resize mode if ARG
is positive, and disable it otherwise.  If called from Lisp,
enable the mode if ARG is omitted or nil.

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.
(defalias 'temp-buffer-resize-mode #[(&optional arg) "\304 \305\302	\306=\203\307\302!?\202\310	!\311V\"\210\n\203&\312\313\314\315#\210\202+\316\313\314\"\210\317\320\307\302!\2037\321\2028\322\"\210\323\324!\203c\325\302!\210\304 \203P\304 \232\203c\326\327\330\307\302!\203^\331\202_\332#\210))\333 \210\307\302!\207" [#1=#:last-message arg temp-buffer-resize-mode local 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] 4 (#$ . 38197) (list (or current-prefix-arg 'toggle))])
(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)
#@713 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.
(defalias 'resize-temp-buffer-window #[(&optional window) "\306\307\"\310	!\203 \311!r\312\216\313\n@\314\"\210	\315 !+\202!	\310!\203<\311!r\316\216\313\n@\314\"\210\315 !+\202=\317\320\"A@\f\300=\203m\321!\203a\322=\204a\323e\"\204\200\321\307\"\203m\204\200\f\324=\205\212\205\212\325!=\205\212\326\327
\327\307&+\207" [window temp-buffer-max-height save-selected-window--state temp-buffer-max-width quit-cadr width window-normalize-window t functionp internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord window-buffer #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] window-parameter quit-restore window-combined-p only pos-visible-in-window-p frame frame-root-window fit-window-to-buffer nil height fit-window-to-buffer-horizontally fit-frame-to-buffer] 7 (#$ . 40260)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\307\310\316&	\207" [custom-declare-variable help-window-select nil "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" help-enable-auto-load t "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)
#@259 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.
(defalias 'help-window-display-message #[(quit-part window &optional scroll) "\204\304\202*\305r\306	!q\210d)	\307#\203\310\202*\n\311=\203%\312\202*\n\205*\313\314\315\316P!\")\207" [quit-part window scroll scroll-part nil pos-visible-in-window-p window-buffer t "." other ", \\[scroll-other-window] to scroll help." ", \\[scroll-up] to scroll help." message "%s" substitute-command-keys] 5 (#$ . 43373)])
#@123 Set up help window WINDOW for `with-help-window'.
WINDOW is the window used for displaying the help buffer.
Return VALUE.
(defalias 'help-window-setup #[(window &optional value) "\306!\205	\307!\306!\205\310\311\"@\312!	\203\322\313\f!	=\2030\314\f\"\210\f\315\211\223\210
\203J\316$!\203J$=\204J\317!\210\320!\210\321 =\204z\322 =\203\225
\323=\204t
\324=\203\225\325\315\326\"G\327V\203\225\n\330=\204\225\317!\203\225\331\n\332\267\202\215\333\202\216\334\202\216\335\202\216\315\323#\210\202\322\312!$=\203\277\325\315\326\"G\327U\203\277\331\n\336\267\202\267\337\202\270\340\202\270\315\324#\210\202\322\331\n\341\267\202\316\342\202\317\343\202\317\315\"\210%+\207" [window help-buffer help-setup frame help-window-point-marker help-window-select 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 129 frame 133 other 137)) "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 175 other 179)) "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 198 other 202)) "Type \"q\" in help window to delete it" "Type \"q\" in help window to restore previous buffer" help-window-old-frame value] 4 (#$ . 44058)])
#@411 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.
(defalias 'with-help-window '(macro . #[(buffer-or-name &rest body) "\302\303\304\305\306\307\310\311\302	B\257FE\207" [buffer-or-name body 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] 11 (#$ . 45834)]))
(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 #[nil "\306!\211;\205:\nr\307\310!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211\317	!\320!\210+)\207" [help-form msg default-directory #1=#:old-dir buffer-read-only buffer-file-name 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 buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 4 (#$ . 46863)])
#@123 Return a doc string that represents STRING.
The result, when formatted by `substitute-command-keys', should equal STRING.
(defalias 'help--docstring-quote #[(string) "\301\302\303#\207" [string replace-regexp-in-string "['\\`‘’]" "\\\\=\\&"] 4 (#$ . 47419)])
#@296 Split a function DOCSTRING into the actual doc and the usage info.
Return (USAGE . DOC) or nil if there's no usage info, where USAGE info
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.
(defalias 'help-split-fundoc #[(docstring def) "\2054\304\305\"\2054\306\224\306U?\205\306\211\224O\307\310\"\311\3129\203.\313\311\314\"!\202/\315	#\n*B\207" [docstring usage-tail doc def string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" 0 match-string 1 format "(%s%s" help--docstring-quote "%S" anonymous] 6 (#$ . 47690)])
#@234 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 ...)".
(defalias 'help-add-fundoc-usage #[(docstring arglist) ";\204\302\303\304\"\204	\305=\203\207\303\306\"\2030\307\225\307\224Z\310W\203,\311\2021\302\2021\312	;\203M\303\313	\"\203G\314\315\316	\"\317Q\202Q\320\321!\202Q\322\323	\"Q\207" [docstring arglist "" 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] 6 (#$ . 48325)])
#@184 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.
(defalias 'help-function-arglist #[(def &optional preserve-names) "9\203\306!\203\307!\310!\203!\211\311H\311H\262\202\242\312=\203+A\313!\203<\314H<\203<\314H\207\242\315=\203GA@\207\242\316=\203R\3118\207\313!\203_\314H\250\204k\317!\204k\320!\203a	\203\334\3211z\322!0\202|\210\323\211\205\206\324\n\323\"@\211\205\221\325\227!@A\326\f\323)\211*\203\322*@\211)9\203\307\327)!\211+\314H\330=\203\275)\331>\202\303\332\333+\"?)\204\311\323*A\211*\204\236*
\205\330\f,\206v\334!\211,A-,@.\323.\314/0/0W\203\335\336\337/T!P!\fB/T\211/\202\365*-\250\203O-.V\203O\340\fB-.Z\314/0/0W\203N\335\336\337\341\342/.#!P!\fB/T\211/\202/*-\250\204]\343\fB\344\fB\f\237,\207\211\242\345=\262\203u\3468\347=\204u\350\207\326\207" [def preserve-names doc docargs arglist valid 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.]" arg --dolist-tail-- name arity max min i --dotimes-limit--] 8 (#$ . 49046)])
(defalias 'help--make-usage #[#'arglist "9\203	\202\n\302\303\304	\"B\207" [function arglist anonymous mapcar #[(arg) "9\204\207\302!\303\304	\"\203\202+\303\305	\"\203'\306	\307\310O\226!\202+\306	\226!)\207" [arg name symbol-name string-match "\\`&" "\\`_." intern 1 nil] 4]] 4])
(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)
(defalias 'help--make-usage-docstring #[(fn arglist) "\303\304\305\306\307	\n\"\"!)\207" [print-escape-newlines fn arglist t help--docstring-quote format "%S" help--make-usage] 6])
(provide 'help)