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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(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))
#@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\330#\210\303\201I\201J#\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)\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 "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) (#$ . 674))
(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 (#$ . 2821) 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 (#$ . 2940))
(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 (#$ . 3470)])
(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)
#@2697 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.
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 (#$ . 4968)])
#@15 Help command.
(defalias 'help-for-help-internal #[nil "\306\307\310!!	\203\311\312\"\210\313\314!\315 \f\316 :\317\211;<\317\211=>\320\321\n\"\203<\322\323\324 \325\326O!\327\211\n$\330\216\317?\241\210\331\332\333#\210\331\334\335@\336\"#\210	\203|A\337\317!)=\335B=\"\203s\335B=\"==\325H>\202\340>>\340=\204\226>C=\204\226>D>\203\"
\341 ;\342\343\317\327#\210\344\345!\203\265\346 :=\204\265\346 <\317;\317E\327F\347 \210\nc\210)
\350 \210\f)eb\210>\351DC\352B\">\204\352>\242\353=\204\352=\354\232\203\"
\317\355\356\217\210\327AG\337\357\360\361d!\203
\362\202
\363\"!\211=\325H>*>\364=\203\315\365\335=\"\317=#\210\202\315\311\362!\210><\203:
>HBH\317\211;\202v
\335=\"\211I\203s
;\203R
\366;!\210\317;
\367I!\210)<\205u
<\316 =\204l
\370<!\210\317\211<\202u
\371 ).\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 ((byte-code "\203\304!\210	\203\305	!\210\n\304\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" (byte-code "\242\302=\203\303!\210\202)\304>\203\305 \210\202)\306>\204&	\307\232\203)\310 \210\302\207" [char key switch-frame handle-switch-frame (22 32) scroll-up (127 134217846 delete backspace) "\366" scroll-down] 2) ((error)) 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 (#$ . 7747) 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\311\312\313\217\206R\311\314\315\217\206R\316 \211\205#\317!\211\2032\320\f!\2032\f\202Q\321 \322\216\205P\323\324\"\205P\317\325\326\"!\320\f!\205P\f**+\207" [#1=#:buffer #2=#:table emacs-lisp-mode-syntax-table str sym save-match-data-internal syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table nil (byte-code "\212\301\302\303!!\203gz\304=\204gz\305=\204\306\307!\210\310\311w\210\312p!\2119\205/\313!\205/*\207" [obj zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 "'" nil read fboundp] 4) ((error)) (byte-code "\212\214e`\301Z]d}\210\302\303!\210\303u\210\304\305!\203\306\307!\210\310p!\2119\205+\311!\205++\207" [obj 1000 backward-up-list 1 looking-at "[ 	]" error "Probably not a Lisp function call" read fboundp] 4) ((error)) find-tag-default intern-soft fboundp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string 1] 5 (#$ . 10131)])
(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 (#$ . 11535) 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 (#$ . 11707) nil])
#@34 Display info on the GNU project.
(defalias 'describe-gnu-project #[nil "\300\301!\207" [view-help-file "THE-GNU-PROJECT"] 2 (#$ . 11873) 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 (#$ . 12155) 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 (#$ . 12428) 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*" ((byte-code "\301!\203\n\302!\210\301\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 #[(a b) "	\231\207" [b a] 2] 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 (#$ . 12906) "P"])
#@30 Display the Emacs TODO list.
(defalias 'view-emacs-todo #[(&optional _arg) "\300\301!\207" [view-help-file "TODO"] 2 (#$ . 14844) "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 (#$ . 15108) 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 (#$ . 15403) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[nil "\300\301!\207" [info "(efaq)"] 2 (#$ . 15579) 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 (#$ . 15727) nil])
#@46 Display info on how to debug Emacs problems.
(defalias 'view-emacs-debugging #[nil "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 15903) 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 (#$ . 16054) nil])
#@88 Display last 300 input keystrokes.

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 !\211\312\211\317\320\321\322 \323#!\210r\fq\210eb\210\324\325!\210m\204K\326\323\312\327#\203E\330\331!\210\332c\210\2021`\312\223)rq\210\333\312\")\334\335!\203j\335
\"\202l.\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook #1=#:buffer standard-output #2=#:window help-setup-xref view-lossage called-interactively-p interactive nil help-mode-setup help-mode-finish temp-buffer-window-setup help-buffer princ mapconcat #[(key) "\250\2049\204<\203\301!\207\302\303\"\207" [key single-key-description prin1-to-string nil] 3] recent-keys " " move-to-column 50 search-forward t delete-char -1 "\n" temp-buffer-window-show functionp help-window-setup #3=#:value] 6 (#$ . 16239) 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 !\211\312\211r\316 q\210\317	\")r
q\210\320
\312\")\321\322!\203Q\322\"\202S.\207" [buffer prefix help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook #1=#:buffer help-setup-xref describe-bindings called-interactively-p interactive nil help-mode-setup help-mode-finish temp-buffer-window-setup help-buffer describe-buffer-bindings temp-buffer-window-show functionp help-window-setup standard-output #2=#:window #3=#:value] 5 (#$ . 17182) 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 !\211\306\211r\312 q\210\313#)r\fq\210\314\f\306\")\315\316!\203E\316\"\202G.\207" [buf help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook #1=#:buffer standard-output nil help-mode-setup help-mode-finish temp-buffer-window-setup help-buffer describe-buffer-bindings temp-buffer-window-show functionp help-window-setup #2=#:window #3=#:value prefix menus] 5 (#$ . 18218)])
(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\305\306\307\217=\205B\211\207" [symbol definition func defs fboundp nil (indirect-function symbol) ((error symbol))] 4] 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 (#$ . 19198) (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)) (list (if (equal val "") fn (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])
#@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) "\247\203\306 	\307H9\203#	G\310V\203#	\310H:\203#	\310H\202&	\307H\311\n!\f\2033p\2024
\312>\204G\313>\204G\314>\203K\315\202L\316\317	\320\"\321\321=\203u	\211GSH;\203u\317	\307\322O!\323=\203u\324	\211GSH;\203\205	\211GS\325I\210G\307V\203\234\211GSH;\203\234\211GS\325I\210\326	\"\203\264\250\204\264\327\232\203\300\330\331\332#!\202\313\330\331\333$!.\207" [untranslated key event modifiers insert standard-output 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 princ format "%s%s is undefined" "%s%s runs the command %S" mouse-msg defn key-desc] 6 (#$ . 20970) (byte-code "\306\211\307\310\216\307\fA\204\311\f!\312\313\307\"\210\314\315!\316\307!\210\317!\203@GS\320
H!\2059\321\322
H!>)\203@\323 \210\205J\324!\325E-\207" [saved-yank-menu cursor-in-echo-area enable-disabled-menus-and-buttons key yank-menu last-idx t nil ((byte-code "\203\302!\301\303	BM\210\302\207" [saved-yank-menu yank-menu copy-sequence keymap] 3)) copy-sequence menu-bar-update-yank-menu "(any string)" read-key-sequence "Describe key (or click or menu item): " message vectorp eventp down event-modifiers read-event prefix-numeric-value 1 current-prefix-arg] 4)])
#@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) "\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\"\321\21167\321\21189\321:
\321=\203q	\211GSH;\203q\317	\307\322O!\323=\203q\324
\203\200
\250\204\200
\325\232\203\213\326\327\330	\"\f#\202\374
\331\332
D\333\334!\"\210	\211GSH;\203\244	\211GS\335I\210\203\270\211GSH;\203\270\211GS\335I\210;\203A
\336;!8\337;!<8\340=\203
=\203
=\341=\204
\342\343;!!\2119\203
=\250\205\362=\307V:9;\203

9<\202
\3449!\203
;9\307\234\240\210\202
;\345\240\210\317<\321\211\343;!$6:\203@
\337;!\211<\307\340I\210\317<\321\211\343;!$7)>\321\211\223\210\346?B\347@B@?\350\351 !\211AB\321\211CD\352\330	\"!\210\352\353\354\f
#!\210\355
!\210;\205\332
6\203\265
6\250\204\265
6\325\232\204\265
\352\353\356:\203\230
\357\202\231
\316\360\337;!!\f9\203\251
\361\202\252
\3166&!\210\3556!\2107?\206\305
7\250\206\305
7\325=?\205\332
\352\353\3628\f=7%!\210\3557!DrAq\210\363A\321\"C)\364\365!\203\370
\365CD\"\202\372
D..	\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 undefined message "%s%s is undefined" help-key-description help-setup-xref describe-function called-interactively-p interactive "(any string)" event-basic-type vector mouse-1 double mouse-on-link-p event-start vectorp mouse-2 help-mode-setup help-mode-finish temp-buffer-window-setup help-buffer princ format "%s runs the command %S, which is " describe-function-1 "\n\n----------------- up-event %s----------------\n\n%s%s%s runs the command %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, which is " temp-buffer-window-show functionp help-window-setup defn-up defn-up-tricky ev-type mouse-1-remapped mouse-1-tricky up-event sequence mouse-1-click-follows-link help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook #1=#:buffer standard-output #2=#:window #3=#:value] 9 (#$ . 22864) (byte-code "\306\211\307\310\216\307\fA\204\311\f!\312\313\307\"\210\314\315!\211\316
!\317!\205tGS\320H!\205<\321\322H!>)\205t\320\323H!\203Y\321\322\323H!>\203YG\324U\204rG\324V\205t\320\324H!\205t\321\322\324H!>\205t\325 E-\207" [saved-yank-menu cursor-in-echo-area enable-disabled-menus-and-buttons key yank-menu current-prefix-arg t nil ((byte-code "\203\302!\301\303	BM\210\302\207" [saved-yank-menu yank-menu copy-sequence keymap] 3)) copy-sequence menu-bar-update-yank-menu "(any string)" read-key-sequence "Describe key (or click or menu item): " prefix-numeric-value vectorp eventp down event-modifiers 0 1 read-event last-idx] 7)])
#@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 !\211\312\211@Arq\210\312BC\312D\211E\203[E@\211D@\211DF>\204RDFBFEA\211E\204;*F\312G\211E\203\301E@\211G\317N\206tGH\320G!\203\267GJ\203\267\321H!\203\267\322\323\324H!\"\203\241\325\324H!\326\211\224O!\202\243HIHI\327GC\236!EBBB))EA\211E\204g*\330B\331\"\211B\203`
\332\333!\210\334\335!\210r
q\210B\312G\211E\203P
E@\211G@GA@\336G8JIK\337\326IG\340I$\210\212db\210\332\341!\210\342 BIc\210\332\343\344\345JG!\203%
\346\202*
\343\347J\"\"!\210\332\350K!!\210)\351I\352@\353\354\355\356&\210\357 \210+EA\211E\204\344*\360y\210\361\312!\210\362y\210)\332\363!\210LGr
q\210`M\327G\312\211$c\210\337M`\364#\210+\332\365!\210NG\366G\312\"\211O\203\256
\332\367\370O!\371Q!\210r
q\210\212\372\373\312\354#\210\374\362\375GO$\210**\332\376!\210\332\350N!!*Ar\fq\210\377\f\312\"@)\201P\201Q!\203\335
\201Q@A\"\210\202\340
A\210.\312\207" [buffer help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook #1=#:buffer standard-output help-setup-xref describe-mode called-interactively-p interactive nil help-mode-setup help-mode-finish temp-buffer-window-setup help-buffer :minor-mode-function boundp fboundp string-match "\\(\\(-minor\\)?-mode\\)?\\'" symbol-name capitalize 0 format-mode-line sort #[(a b) "\211A@\262
	\211A@\262
\231\207" [a b] 3] princ "Enabled minor modes:\n" make-local-variable help-button-cache 2 add-text-properties (face bold) "\n\f\n" point-marker format " minor mode (%s):\n" zerop "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" (face bold) " mode" find-lisp-object-file-name " defined in `" file-name-nondirectory "'" re-search-backward "`\\([^`']+\\)'" help-xref-button help-function-def ":\n" temp-buffer-window-show #2=#:window #3=#: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 functionp help-window-setup] 9 (#$ . 26513) "@"])
#@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 (#$ . 29356) (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 (#$ . 30224) (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 (#$ . 30814) (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 (#$ . 31348)])
(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 (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 (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 command `temp-buffer-resize-mode' for 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) "\303 	\304=\203\n?\202\305	!\306V\211\203!\307\310\311\312#\210\202&\313\310\311\"\210\314\315\n\2030\316\2021\317\"\210\320\321!\203V\322\302!\210\303 \203I\303 \232\203V\323\324\n\203S\325\202T\326\"\210)\327 \210\n\207" [#1=#:last-message arg temp-buffer-resize-mode current-message toggle 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" "en" "dis" force-mode-line-update] 5 (#$ . 33746) (list (or current-prefix-arg 'toggle))])
#@188 Hook run after entering or leaving `temp-buffer-resize-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar temp-buffer-resize-mode-hook nil (#$ . 35263))
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [temp-buffer-resize-mode-map add-minor-mode temp-buffer-resize-mode nil boundp] 6)
#@634 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.
(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\"\211A@\262
\f\300=\203p\321!\203d\322=\204d\323e\"\204\203\321\307\"\203p\204\203\f\324=\205\212\205\212\325!=\205\212\326\327
$+\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 ((internal--after-with-selected-window save-selected-window--state)) select-window norecord window-buffer ((internal--after-with-selected-window save-selected-window--state)) 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] 5 (#$ . 35651)])
(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 'other "Non-nil means select help window for viewing.\nChoices are:\n never (nil) Select help window only if there is no other window\n             on its frame.\n other       Select help window unless the selected window is the\n             only other window on the help window's frame.\n always (t)  Always select the help window.\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 (#$ . 38260)])
#@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\"@	\203\302\312!	=\203,\313\"\210\314\211\223\210\315 =\204^\f\316=\204X\n\317=\204X\f\320=\203\201\321!\322 =\203\201\323\314\324\"G\325V\203\201\326!\203\201\327\n\300=\203i\330\202z\n\317=\203s\331\202z\n\320=\205z\332\316#\210\202\302\321!\322 =\203\255\323\314\324\"G\325U\203\255\327\n\300=\203\237\333\202\246\n\320=\205\246\334\320#\210\202\302\327\n\300=\203\270\335\202\277\n\320=\205\277\336\"\210
*\207" [window help-buffer help-setup help-window-point-marker help-window-select value window-live-p window-buffer window-parameter quit-restore marker-buffer set-window-point nil selected-window t frame other window-frame selected-frame window-list no-mini 2 select-window help-window-display-message "Type \"q\" to delete help window" "Type \"q\" to quit the help frame" "Type \"q\" to restore previous buffer" "Type \\[delete-other-windows] to delete the help window" "Type \"q\" in help window to restore its previous buffer" "Type \"q\" in help window to delete it" "Type \"q\" in help window to restore previous buffer"] 4 (#$ . 38945)])
#@484 Display buffer named BUFFER-NAME in a help window.
Evaluate the forms in BODY with standard output bound to a buffer
called BUFFER-NAME (creating it if it does not exist), put that
buffer in `help-mode', display the buffer in a window (see
`with-temp-buffer-window' for details) and issue a message how to
deal with that "help" window when it's no more needed.  Select
the help window if the current value of the user option
`help-window-select' says so.  Return last value in BODY.
(defalias 'with-help-window '(macro . #[(buffer-name &rest body) "\302\303\304\305\306\307\310\302	B\257EE\207" [buffer-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))) with-temp-buffer-window nil 'help-window-setup] 10 (#$ . 40262)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-help-window lisp-indent-function 1 edebug-form-spec t] 4)
#@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 (#$ . 41299)])
#@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) "\205*\302\303\"\205*\304\305	9\203	\202\306\307\310\"#\311\312\224!?\205)\312\211\224OB\207" [docstring def string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" format "(%s%s" "anonymous" match-string 1 zerop 0] 6 (#$ . 41855)])
#@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	;\203G\303\313	\"\203G\314\315\316	\"\317Q\202N\320\321\322\323	\"\"Q\207" [docstring arglist "" string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" t "\n?\n\\'" 0 2 "\n" "\n\n" "\\`([^ ]+\\(.*\\))\\'" "(fn" match-string 1 ")" format "%S" help-make-usage fn] 7 (#$ . 42435)])
#@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!\242\310=\203A\311!\203*\312H<\203*\312H\207\242\313=\2035A@\207\242\314=\203@\3158\207\311!\203M\312H\250\204S\316!\203r
	\203\276\317\320\321\217\211\205e\322\n\317\"@\211\205s\323\227!\211@A\262
\324\f\3170\2111\203\2641@\21109\203\251\3250!\2112\312H\326=\203\2370\327>\202\245\330\3312\"?)\204\253\3171A\2111\204\200*
\205\272\f,\206\207
\316!\204\312\312H\202\351\332!3\3333@3A\247\203\343\3343A\335\"\202\347\334\336\337\"\")4\3344\340\"5\3414\342\"6\3414\343\"+\3176\3127878W\203&
\344\345\3467T!P!\fB7T\2117\202
*56V\203_
\347\fB56Z\3127878W\203^
\344\345\346\350\33676#!P!\fB7T\2117\202?
*\351+!\204n
\352\fB\353\fB\f\237-\207\211\242\354=\262
\203\206
\3558\356=\204\206
\357\207\324\207" [def preserve-names doc docargs arglist valid fboundp indirect-function macro byte-code-function-p 0 lambda closure 2 subrp nil (documentation def) ((error)) help-split-fundoc read-from-string t symbol-name 38 (&rest &optional) string-match "\\." subr-arity logior lsh 8 1 7 -8 logand 127 128 intern "arg" number-to-string &optional + zerop &rest rest autoload 4 keymap "[Arg list not available until function definition is loaded.]" arg --dolist-tail-- name a args-desc max min i --dotimes-limit--] 8 (#$ . 43119)])
(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])
(provide 'help)