;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:20:50 2007
;;; from file /home/cyd/emacs/lisp/help.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`help.el' was compiled for Emacs 19.29 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)
#@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\336#\210\303\344\345#\210\303\346\347#\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 \326#\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K \201L #\210\303\201M \201N #\210\303\201O \201P #\210)\207" [map help-char make-sparse-keymap define-key char-to-string help-for-help [help] [f1] "." display-local-help "?" "" describe-copying "" describe-distribution "" view-emacs-problems "" view-emacs-FAQ "" view-order-manuals "" view-emacs-news "" describe-project "" view-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 "h" view-hello-file "i" info "4i" info-other-window "k" describe-key "l" view-lossage "m" describe-mode "n" "p" finder-by-keyword "r" info-emacs-manual "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit] 4) (#$ . 697))
(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)
#@41 Find packages matching a given keyword.
(autoload 'finder-by-keyword "finder" '(#$ . 2626) t)
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list help-button-cache default-boundp set-default nil] 3)
#@49 Just exit from the Help command's command loop.
(defalias 'help-quit #[nil "\300\207" [nil] 1 (#$ . 2860) nil])
#@349 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' and `View-quit'), 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 (#$ . 2979))
#@417 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.
(defalias 'print-help-return-message #[(&optional function) "\306!?\205\204 	\204 \307\310!!\203 \311 \312B\313\202P \203) \311 \314B\313\202P \315\312!\2048 \311 \314B\316\202P \f\203E \311 \312B\317\202P \311 \320 \321 \322 F\323\206W \324\205^ \325!\205c \326\f\206l \307\310!!?\205\201 \327\310!!\203~ \325\330!\202\201 \325\331!Q!)\207" [standard-output pop-up-frames help-return-method display-buffer-reuse-frames pop-up-windows first-message get-buffer-window special-display-p buffer-name selected-window t nil quit-window one-window-p "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." function] 6 (#$ . 3378)])
(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)
#@3114 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  command-apropos.  Type a list of words or a regexp; it shows a list of
        commands whose names match.  See also the  apropos  command.
b  describe-bindings.  Display a table of all key bindings.
c  describe-key-briefly.  Type a key sequence;
	it displays the command name run by that key sequence.
C  describe-coding-system.  Type the name of the coding system to describe,
        or just RET to describe the ones currently in use.
d  apropos-documentation.  Type a pattern (a list of words or a regexp), and
	it shows a list of functions, variables, and other items whose
	documentation matches that pattern.  See also the apropos command.
e  view-echo-area-messages.  Go to the buffer that logs echo-area messages.
f  describe-function.  Type a function name and you see its documentation.
F  Info-goto-emacs-command-node.  Type a command name;
	it goes to the on-line manual's section that describes the command.
h  Display the HELLO file which illustrates various scripts.
i  info.  The Info documentation reader: read on-line manuals.
I  describe-input-method.  Describe a specific input method (if you type
	its name) or the current input method (if you type just RET).
k  describe-key.  Type a key sequence;
	it displays the full documentation for that key sequence.
K  Info-goto-emacs-key-command-node.  Type a key sequence;
	it goes to the on-line manual's section that describes
	the command bound to that key.
l  view-lossage.  Show last 100 characters you typed.
L  describe-language-environment.  This describes either a
	specific language environment (if you type its name)
	or the current language environment (if you type just RET).
m  describe-mode.  Display documentation of current minor modes,
	and the current major mode, including their special commands.
n  view-emacs-news.  Display news of recent Emacs changes.
p  finder-by-keyword. Find packages matching a given topic keyword.
r  info-emacs-manual.  Display the Emacs manual in Info mode.
s  describe-syntax.  Display contents of syntax table, plus explanations.
S  info-lookup-symbol.  Type a symbol; it goes to that symbol in the
        on-line manual for the programming language used in this buffer.
t  help-with-tutorial.  Select the Emacs learn-by-doing tutorial.
v  describe-variable.  Type name of a variable;
	it displays the variable's documentation and value.
w  where-is.  Type a command name; it displays which keystrokes
	invoke that command.
.  display-local-help.  Display any available local help at point
        in the echo area.

C-c Display Emacs copying permission (GNU General Public License).
C-d Display Emacs ordering information.
C-e Display info about Emacs problems.
C-f Display the Emacs FAQ.
C-m Display how to order printed Emacs manuals.
C-n Display news of recent Emacs changes.
C-p Display information about the GNU project.
C-t Display the Emacs TODO list.
C-w Display information on absence of warranty for GNU Emacs.
(defalias 'help-for-help-internal-doc #[nil "\300\207" ["You have typed %THIS-KEY%, the help character.  Type a Help option:\n(Use SPC or DEL to scroll through this text.  Type \\<help-map>\\[help-quit] to exit the Help command.)\n\na  command-apropos.  Type a list of words or a regexp; it shows a list of\n        commands whose names match.  See also the  apropos  command.\nb  describe-bindings.  Display a table of all key bindings.\nc  describe-key-briefly.  Type a key sequence;\n	it displays the command name run by that key sequence.\nC  describe-coding-system.  Type the name of the coding system to describe,\n        or just RET to describe the ones currently in use.\nd  apropos-documentation.  Type a pattern (a list of words or a regexp), and\n	it shows a list of functions, variables, and other items whose\n	documentation matches that pattern.  See also the apropos command.\ne  view-echo-area-messages.  Go to the buffer that logs echo-area messages.\nf  describe-function.  Type a function name and you see its documentation.\nF  Info-goto-emacs-command-node.  Type a command name;\n	it goes to the on-line manual's section that describes the command.\nh  Display the HELLO file which illustrates various scripts.\ni  info.  The Info documentation reader: read on-line manuals.\nI  describe-input-method.  Describe a specific input method (if you type\n	its name) or the current input method (if you type just RET).\nk  describe-key.  Type a key sequence;\n	it displays the full documentation for that key sequence.\nK  Info-goto-emacs-key-command-node.  Type a key sequence;\n	it goes to the on-line manual's section that describes\n	the command bound to that key.\nl  view-lossage.  Show last 100 characters you typed.\nL  describe-language-environment.  This describes either a\n	specific language environment (if you type its name)\n	or the current language environment (if you type just RET).\nm  describe-mode.  Display documentation of current minor modes,\n	and the current major mode, including their special commands.\nn  view-emacs-news.  Display news of recent Emacs changes.\np  finder-by-keyword. Find packages matching a given topic keyword.\nr  info-emacs-manual.  Display the Emacs manual in Info mode.\ns  describe-syntax.  Display contents of syntax table, plus explanations.\nS  info-lookup-symbol.  Type a symbol; it goes to that symbol in the\n        on-line manual for the programming language used in this buffer.\nt  help-with-tutorial.  Select the Emacs learn-by-doing tutorial.\nv  describe-variable.  Type name of a variable;\n	it displays the variable's documentation and value.\nw  where-is.  Type a command name; it displays which keystrokes\n	invoke that command.\n.  display-local-help.  Display any available local help at point\n        in the echo area.\n\nC-c Display Emacs copying permission (GNU General Public License).\nC-d Display Emacs ordering information.\nC-e Display info about Emacs problems.\nC-f Display the Emacs FAQ.\nC-m Display how to order printed Emacs manuals.\nC-n Display news of recent Emacs changes.\nC-p Display information about the GNU project.\nC-t Display the Emacs TODO list.\nC-w Display information on absence of warranty for GNU Emacs."] 1 (#$ . 4887)])
#@15 Help command.
(defalias 'help-for-help-internal #[nil "\306\307!	\203 \310\311\"\210\312\313!\314 \315\316 \315\211:;\315\211<=\317\320\n\"\2039 \321\322\323 \324\325O!\326\211\n$\327\216>\241\210\330\331\332#\210\330\333\334?\335\"#\210	\203w @\336\315!)<\334A<\"\203n \334A<\"<<\324H=\202z \337==\337=\204\221 =B=\204\221 =C>\203\340 :\341\342!\210\343\344!\203\261 \345\346 !=\204\261 \345\346 !;\315:\315D\326E\347 \210\nc\210)\350 \210eb\210=\351CB\352B\">\204\341 =\242\353=\204\341 <\354\232\203\315\355\356\217\210\326@F\336\357\360\361d!\203\371 \362\202\372 \363\"!\211<\324H=*=\364=\203\304 \365\334<\"\315<#\210\202\304 \310\362!\210=<\2031=GBG\315\211:\202`\334<\"\211H\203]:\203I\366:!\210\315:;\203V\367;!\210\315;\370H!\202_\371 ).\n\207" [line-prompt three-step-help help-screen local-map minor-mode-map-alist prev-frame substitute-command-keys "a b c C e f F i I k C-k l L m p r s t v w C-c C-d C-f C-n C-p C-t C-w . or ? :" message "%s" documentation help-for-help-internal-doc make-sparse-keymap nil selected-frame string-match "%THIS-KEY%" replace-match key-description this-command-keys 0 -1 t ((byte-code "\203 \302!\210	\203 \303	!\210\302\207" [new-frame config iconify-frame set-window-configuration] 2)) define-key [t] undefined [vertical-scroll-bar] lookup-key [vertical-scroll-bar] read-key-sequence 63 current-window-configuration switch-to-buffer-other-window "*Help*" fboundp make-frame window-frame selected-window 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\304>\203 \305 \210\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 iconify-frame call-interactively ding 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 (#$ . 11250) 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\206 \311\314\315\217+\206S \316 \211\205$ \317!\211\2033 \320\f!\2033 \f\202R \321 \322\216\205Q \323\324\"\205Q \317\325\326\"!\320\f!\205Q \f**\207" [#1=#:buffer #2=#:table emacs-lisp-mode-syntax-table str sym save-match-data-internal syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table nil (byte-code "\212\301\302\303!!\203 gz\304=\204 gz\305=\204 \306\307!\210\310\311w\210\312p!\2119\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!\2119\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 (#$ . 13545)])
#@64 Display info on how to obtain the latest version of GNU Emacs.
(defalias 'describe-distribution #[nil "\301\302\303\"!\207" [data-directory view-file expand-file-name "DISTRIB"] 4 (#$ . 14776) nil])
#@63 Display info on how you may redistribute copies of GNU Emacs.
(defalias 'describe-copying #[nil "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "COPYING"] 4 (#$ . 14982) nil])
#@34 Display info on the GNU project.
(defalias 'describe-project #[nil "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "THE-GNU-PROJECT"] 4 (#$ . 15188) nil])
#@64 Display info on all the kinds of warranty Emacs does NOT have.
(defalias 'describe-no-warranty #[nil "\301 \210\302\303\304!\210\305\306!)\207" [case-fold-search describe-copying nil search-forward "NO WARRANTY" recenter 0] 2 (#$ . 15373) 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 \305GSO\2022 \306GS\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 (#$ . 15626) 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\377 db\210\344 \210`)}+\207" [version emacs-major-version res data-directory all-versions current nil mapcar #[(file) "\304\305!\306\216rq\210\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 (#$ . 16104) "P"])
#@30 Display the Emacs TODO list.
(defalias 'view-todo #[(&optional arg) "\301\302\303\"!\207" [data-directory view-file expand-file-name "TODO"] 4 (#$ . 18044) "P"])
#@164 View the log of recent echo-area messages: the `*Messages*' buffer.
The number of messages retained in that buffer
is specified by the variable `message-log-max'.
(defalias 'view-echo-area-messages #[nil "\300\301\302!!\207" [switch-to-buffer get-buffer-create "*Messages*"] 3 (#$ . 18214) nil])
#@32 Display the Emacs ORDERS file.
(defalias 'view-order-manuals #[nil "\301\302\303\"!\210\304 \207" [data-directory view-file expand-file-name "ORDERS" goto-address] 4 (#$ . 18516) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[nil "\300\301!\207" [info "(efaq)"] 2 (#$ . 18708) nil])
#@69 Display info on known problems with Emacs and possible workarounds.
(defalias 'view-emacs-problems #[nil "\301\302\303\"!\207" [data-directory view-file expand-file-name "PROBLEMS"] 4 (#$ . 18856) nil])
#@98 Display last 100 input keystrokes.

To record all your input on a file, use `open-dribble-file'.
(defalias 'view-lossage #[nil "\301\302Ct\"\210\303 \220\304\305\306\307 \310#!\210rq\210eb\210\311\312!\210m\2043 \313\310\314\315#\203- \316\317!\210\320c\210\202 )\321 \221\207" [standard-output help-setup-xref view-lossage help-buffer princ mapconcat #[(key) "\250\204 9\204 <\203 \301!\207\302\303\"\207" [key single-key-description prin1-to-string nil] 3] recent-keys " " move-to-column 50 search-forward nil t delete-char -1 "\n" print-help-return-message] 6 (#$ . 19066) nil])
#@386 Show a list of all defined keys, and their definitions.
We put that list in a buffer, and display the buffer.

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) "\204 p\302\303	Et\"\210rq\210\304\305	\")\207" [buffer prefix help-setup-xref describe-bindings describe-bindings-internal nil] 4 (#$ . 19665) 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\304\220r	q\210\305\n#)\221)\207" [buf standard-output prefix menus "*Help*" describe-buffer-bindings] 5 (#$ . 20269) nil])
#@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	\203 p\202 \312\313\314!\210B\311\211\203\274 @\315!\316\311\211%\317\320\321#\311 	\203r G\322V\203k \203b \323\324$\202\235 \323\325#\202\235 \323\326\"\202\235 G\322V\203\223 \203\212 \323\327$\202\235 \323\330#\202\235 =\205\235 \323\331\"\211 \203\262 =\204\255 \332\333!\210\332 !\210,A\211\204' -\311\207" [definition insert standard-output defs func symbol error "No command" indirect-function nil t mapatoms #[(symbol) "\304!\205 	=?\205 \n\305\306\307\217=\205 B\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 " #1=#:--cl-dolist-temp-- remapped overriding-local-map keys string] 7 (#$ . 20828) (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\2033 p\2024 \312\313>\204G \314>\204G \315>\203K \316\202L \317\320	\312\"\321\321=\203u 	\211GSH;\203u \320	\307\322O!\323=\203u \324	\211GSH;\203\205 	\211GS\325I\210G\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 t click down drag " at that spot" "" key-binding 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 (#$ . 22612) (byte-code "\306\211\307\310\216\307\fA\204 \311\f!\312\313\307\"\210\314\315!\316!\203z GSH\211\250\203I \317\320\321\322\323\324\"S!\"!\203I \325\326!!\206h 9\203V \327N\206h :\205h @9\205h @\327N)\205s \330\331H!>)\203z \332 \210\205\204 \333!\324E-\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): " vectorp zerop logand lognot lsh 134217728 1 char-valid-p event-basic-type event-symbol-elements down event-modifiers read-event prefix-numeric-value obj current-prefix-arg] 8)])
#@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\211/0\321\21112\3213\321=\203q 	\211GSH;\203q \317	\307\322O!\323=\203q \324\203\200 \250\204\200 \325\232\203\213 \326\327\330	\"\f#\202\353\331\332Dt\"\210	\211GSH;\203\242 	\211GS\333I\210\203\266 \211GSH;\203\266 \211GS\333I\2104\203r\3344!1\3354!51\336=\203'6\203'6\337=\204'\3404\211:\203\351 \310\n8\202\357 \341 `\342\307F)!\2112\203'6\250\2056\307V32;\20325\202'\3432!\203\"42\307\234\240\210\202'4\344\240\210\3175\321\2114\211:\203:\310\n8\202@\341 `\342\307F)$/3\203q\3354!\2115\307\336I\210\3175\321\2114\211:\203g\310\n8\202m\341 `\342\307F)$0)\345 \220\346\330	\"!\210\346\347\350\f#!\210\351!\2104\203\350/\203\304/\250\204\304/\325\232\204\304\346\347\3523\203\253\353\202\254\3161\f2\203\270\354\202\271\316/&!\210\351/!\2100\203\3500\250\204\3500\325=\204\350\346\347\3551\f60%!\210\3510!\210\356 \221.	\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 "(any string)" event-basic-type vector mouse-1 double mouse-on-link-p selected-window (0 . 0) vectorp mouse-2 help-buffer princ format "%s runs the command %S\n  which is " describe-function-1 "\n\n----------------- up-event %s----------------\n\n<%S>%s%s runs the command %S\n  which is " "(short click) " " is remapped to <mouse-2>\nwhich" "\n\n----------------- up-event (long click) ----------------\n\nPressing <%S>%s for longer than %d milli-seconds\nruns the command %S\n  which is " print-help-return-message defn-up defn-up-tricky ev-type mouse-1-remapped mouse-1-tricky up-event sequence mouse-1-click-follows-link] 10 (#$ . 24692) (byte-code "\306\211\307\310\216\307\fA\204 \311\f!\312\313\307\"\210\314\315!\211\316!\317!\205.GSH\211\250\203O \320\321\322\323\324\325\"S!\"!\203O \326\327!!\206n 9\203\\ \330N\206n :\205n @9\205n @\330N)\205z \331\332H!>)\205.\333H\211\250\203\241 \320\321\322\323\324\325\"S!\"!\203\241 \326\327!!\206\300 9\203\256 \330N\206\300 :\205\300 @9\205\300 @\330N)\203\325 \331\332\333H!>\203\325 G\325U\204,G\325V\205.\325H\211\250\203\377 \320\321\322\323\324\325\"S!\"!\203\377 \326\327!!\2069\203\f\330N\206:\205@9\205@\330N)\205.\331\332\325H!>\205.\334 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 zerop logand lognot lsh 134217728 1 char-valid-p event-basic-type event-symbol-elements down event-modifiers 0 read-event last-idx obj] 10)])
#@415 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.
(defalias 'describe-mode #[(&optional buffer) "\204 p\306\307Dt\"\210\310 \220rq\210\311\n\311\211\2035 \f@\211@\211>\204. B\fA\211\204 *\3112\2113\203\227 3@\2112\312N\206M 24\3132!\203\215 2J\203\215 \3144!\203\215 \315\316\3174!\"\203z \320\3174!\321\211\224O!\202| 4545\3222\n\236!E	B))3A\2113\204@ *\323	\324\"\211\2034\325\326!\210\327\330!\210r6q\210	\3112\2117\203$7@\2112@2A@\33128859\332\3215G\3335$\210\212db\210\325\334!\210\335 B5c\210\325\336\337\3408G!\203\371 \341\202\376 \336\3428\"\"!\210\325\3439!!\210)\3445\345@\346\347\350\351&\210\352 \210+7A\2117\204\270 *\353y\210\354\311!\210\355y\210)\325\356!\210:2r6q\210`;\3222!c\210\332;`\357#\210+\325\360!\210\325\343<!!\210)\361 )\221\207" [buffer minor-modes minor-mode-alist x #1=#:--cl-dolist-temp-- minor-mode-list help-setup-xref describe-mode help-buffer nil :minor-mode-function boundp fboundp string-match "\\(\\(-minor\\)?-mode\\)?\\'" symbol-name capitalize 0 format-mode-line sort #[(a b) "\211A@)\n\211A@)\231\207" [a x 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:\n" print-help-return-message mode #2=#:--cl-dolist-temp-- fmode pretty-minor-mode standard-output #3=#:--cl-dolist-temp-- indicator mode-function mode-name start major-mode] 11 (#$ . 28547) "@"])
#@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 (#$ . 30655) (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 (#$ . 31523) (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!\211G\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 (#$ . 32113) (list (completing-read "Minor mode indicator: " (describe-minor-mode-completion-table-for-indicator)))])
#@64 Return a minor mode symbol from its indicator on the modeline.
(defalias 'lookup-minor-mode-from-indicator #[(indicator) "\306GW\203 \306H\307=\203 \310\311O	\311\203T @@\312@A@!\211;\203@ G\306V\203@ \306H\307=\203@ \310\311O\232\203M \f\311\202P A*\202 \n*\207" [indicator minor-mode-alist result minor-modes minor-mode anindicator 0 32 1 nil format-mode-line] 4 (#$ . 32647)])
#@404 Maximum height of a window displaying a temporary buffer.
This is effective only when Temp Buffer Resize mode is enabled.
The value is the maximum height (in lines) which `resize-temp-buffer-window'
will give to a window displaying a temporary buffer.
It can also be a function to be called to choose the height for such a buffer.
It gets one argumemt, the buffer, and should return a positive integer.
(custom-declare-variable 'temp-buffer-max-height '(lambda (buffer) (/ (- (frame-height) 2) 2)) '(#$ . 33058) :type '(choice integer function) :group 'help :version "20.4")
#@290 Non-nil if Temp-Buffer-Resize mode is enabled.
See the command `temp-buffer-resize-mode' for a description of this minor-mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `temp-buffer-resize-mode'.
(custom-declare-variable 'temp-buffer-resize-mode 'nil '(#$ . 33640) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'help :type 'boolean)
#@406 Toggle the mode which makes windows smaller for temporary buffers.
With prefix argument ARG, turn the resizing of windows displaying temporary
buffers on if ARG is positive or off otherwise.
This makes the window the right height for its contents, but never
more than `temp-buffer-max-height' nor less than `window-min-height'.
This applies to `help', `apropos' and `completion' buffers, and some others.
(defalias 'temp-buffer-resize-mode #[(&optional arg) "\302=\203 	?\202% \203 \303!\304V\202% 	\204 \305\202% \306\307\301\"\210\310\211\2033 \311\312\313\314#\210\2028 \315\312\313\"\210\316\317	\203B \320\202C \321\"\210\322 \203[ \323\301!\210\306\324	\203X \325\202Y \326\"\210\327 \210	\207" [arg temp-buffer-resize-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Temp-Buffer-Resize mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 34101) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode temp-buffer-resize-mode nil boundp temp-buffer-resize-mode-map] 5)
#@287 Resize the current window to fit its contents.
Will not make it higher than `temp-buffer-max-height' nor smaller than
`window-min-height'.  Do nothing if it is the only window on its frame, if it
is not as wide as the frame or if some of the window's contents are scrolled
out of view.
(defalias 'resize-temp-buffer-window #[nil "\301\302!\206 \303e!?\206 \304 \305 U??\205( \306\307 \310!\203& p!\202' \"\207" [temp-buffer-max-height one-window-p nomini pos-visible-in-window-p frame-width window-width fit-window-to-buffer selected-window functionp] 4 (#$ . 35426)])
(provide 'help)