| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/help.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/help.el
;;; in Emacs version 24.3
;;; 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) (#$ . 687))
#@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) (#$ . 811))
(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 (#$ . 2958) 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 (#$ . 3077))
(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)
#@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 '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 (#$ . 3607)])
(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)
#@2652 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 on-line 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 on-line 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 on-line 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.
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 on-line 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 (#$ . 5051)])
#@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\335A\336\"#\210 \203| B\337\317!)>\335C>\"\203s \335C>\">>\325H?\202 \340??\340=\204\226 ?D=\204\226 ?E>\203$\341 <\342\343!\210\344\345!\203\267 \346\347 !;=\204\267 \346\347 !=\317<\317F\327 G\350 \210\nc\210)
\351 \210\f)eb\210?\352ED\353B\">\204\354 ?\242\354=\204\354 >\355\232\203$\317\356\357\217\210\327 B H\337\360\361\362d!\203\363\202\364\"!\211>\325H?*?\365=\203\317 \366\335 >\"\317>#\210\202\317 \311\363!\210?<\203<?IBI\317\211<\202x\335 >\"\211 J\203u<\203T\367<!\210\317<
\370J!\210)=\205w=\316 =\204n\371=!\210\317\211=\202w\372 ). \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 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\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 (#$ . 7785) 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!!\203 gz\304=\204 gz\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 (#$ . 10196)])
(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 (#$ . 11600) 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 (#$ . 11772) nil])
#@34 Display info on the GNU project.
(defalias 'describe-gnu-project #[nil "\300\301!\207" [view-help-file "THE-GNU-PROJECT"] 2 (#$ . 11938) 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 (#$ . 12220) 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 (#$ . 12493) 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 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 (#$ . 12971) "P"])
#@30 Display the Emacs TODO list.
(defalias 'view-emacs-todo #[(&optional _arg) "\300\301!\207" [view-help-file "TODO"] 2 (#$ . 14909) "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 "\300\301\302!!\207" [switch-to-buffer get-buffer-create "*Messages*"] 3 (#$ . 15173) nil])
#@32 Display the Emacs ORDERS file.
(defalias 'view-order-manuals #[nil "\300\301!\207" [view-help-file "ORDERS"] 2 (#$ . 15475) nil])
#@58 Display the Emacs Frequently Asked Questions (FAQ) file.
(defalias 'view-emacs-FAQ #[nil "\300\301!\207" [info "(efaq)"] 2 (#$ . 15611) 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 (#$ . 15759) nil])
#@46 Display info on how to debug Emacs problems.
(defalias 'view-emacs-debugging #[nil "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 15935) nil])
#@56 Display external packages and information about Emacs.
(defalias 'view-external-packages #[nil "\300\301!\207" [view-help-file "MORE.STUFF"] 2 (#$ . 16086) nil])
#@98 Display last 300 input keystrokes.
To record all your input on a file, use `open-dribble-file'.
(defalias 'view-lossage #[nil "\306\307C\310\311!\"\210\312\211\223\210\312\313\nB r\314\315 !q\210p\316 \210\f\312\211 \317\211!\317 \" #\320 \210\321\322!\210+\211 $ %\323\324\325\326 \327#!\210r%q\210eb\210\330\331!\210m\204h \332\327\312\317#\203b \333\334!\210\335c\210\202N `\312\223)\336$!\210+\337 !\210*\207" [help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir buffer-read-only help-setup-xref view-lossage called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook 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 delete-char -1 "\n" internal-temp-output-buffer-show help-window-setup buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 16254) 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 E\304\305!\"\210rq\210\306\307 \")\207" [buffer prefix help-setup-xref describe-bindings called-interactively-p interactive describe-bindings-internal nil] 4 (#$ . 17399) 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\306\307 B\f r\310\311!q\210p\312 \210
\306\211\313\211\313 \314 \210\315\316!\210+\211 rq\210\317#)\320!\210+\321\n!\210+\207" [buf help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create "*Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook describe-buffer-bindings internal-temp-output-buffer-show help-window-setup buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output prefix menus] 5 (#$ . 18046)])
#@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 \n \312\313!\210 B\311 \211 \203\274 @\314
! \315
\311\211 % \316\317 \320# \311 \203r G\321V\203k \203b \322\323
$\202\235 \322\324
#\202\235 \322\325
\"\202\235 G\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=\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 " --dolist-tail-- remapped overriding-local-map keys string] 7 (#$ . 19131) (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 >\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 (#$ . 20903) (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\211 8 9\321\211 : ;\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\331\332
D\333\334!\"\210 \211GSH;\203\244 \211GS\335I\210\203\270 \211GSH;\203\270 \211GS\335I\210=\203A\336=!:\337=! >:\340=\203?\203?\341=\204\342\343=!!\211;\203?\250\205\362 ?\307V<;;\203;>\202\344;!\203=;\307\234\240\210\202=\345\240\210\317>\321\211\343=!$8<\203@\337=!\211>\307\340I\210\317>\321\211\343=!$9)@\321\211\223\210\321 A\346BB BC Dr\347\350 !q\210p\351 \210DC\321\211EF\320\211G\320 H I\352 \210\353\354!\210+\211 J K\355\330 \"!\210\355\356\357\f
#!\210\360
!\210=\205\3678\203\3228\250\204\3228\325\232\204\322\355\356\361<\203\265\362\202\266\316\363\337=!!\f;\203\306\364\202\307\3168&!\210\3608!\2109?\206\3429\250\206\3429\325=?\205\367\355\356\365:\f?9%!\210\3609!\366J!\210+\367A!\210*. \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 #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook 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 " internal-temp-output-buffer-show 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 help-window temp-buffer-show-hook default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 9 (#$ . 22797) (byte-code "\306\211\307\310\216\307\fA\204 \311\f!\312\313\307\"\210\314\315!\211\316
!\317 !\205t GS \320 H!\205< \321\322 H!>)\205t \320 \323H!\203Y \321\322 \323H!>\203Y G\324U\204r G\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) "\204 p\306\307D\310\311!\"\210 \312\211\223\210\312\313 B\f r\314\315 !q\210p\316 \210
\312\211@A\317\211B\317 C D\320 \210\321\322!\210+\211 E Frq\210\312 GH\312 I\211 J\203w J@\211I@\211IK>\204n IKBKJA\211J\204W *K\312 L\211 J\203\335 J@\211L\323N\206\220 L M\324L!\203\323 LJ\203\323 \325M!\203\323 \326\327\330M!\"\203\275 \331\330M!\332\211\224O!\202\277 M NMN\333LH\236!EGBG))JA\211J\204\203 *\334G\335\"\211G\203}\336\337!\210\340\341!\210rFq\210G\312 L\211 J\203mJ@\211L@LA@\342L8 O N P\343\332NG\344N$\210\212db\210\336\345!\210\346 !B!Nc\210\336\347\350\351OG!\203B\352\202G\347\353O\"\"!\210\336\354P!!\210)\355N\356!@\357\317\360\361&\210\362 \210+JA\211J\204*\363y\210\364\312!\210\365y\210)\336\366!\210Q LrFq\210` R\333L\312\211$c\210\343R`\367#\210+\336\370!\210S L\371L\312\"\211 T\203\317\336\372\373T!\374Q!\210rFq\210\212\375\376\312\317#\210\377\365\201U LT$\210**\336\201V !\210\336\354S!!\210*\201W E!\210+\201X \n!\210*\312\207" [buffer help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir help-setup-xref describe-mode called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook :minor-mode-function boundp fboundp string-match "\\(\\(-minor\\)?-mode\\)?\\'" symbol-name capitalize 0 format-mode-line sort #[(a b) "\211A@)\n\211A@)\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 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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output 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 help-function-def ":\n" internal-temp-output-buffer-show help-window-setup] 9 (#$ . 26625) "@"])
#@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 (#$ . 29650) (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 (#$ . 30518) (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 (#$ . 31108) (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\202P A*\202 \n*\207" [indicator minor-mode-alist result minor-modes minor-mode anindicator 0 32 1 nil format-mode-line] 4 (#$ . 31642)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\315\316\317\320\306\307\304\321& \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-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 (#$ . 33310) (list (or current-prefix-arg 'toggle))])
(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)
#@339 Resize WINDOW to fit its contents.
WINDOW can be any live window and defaults to the selected one.
Do not make WINDOW higher than `temp-buffer-max-height' nor
smaller than `window-min-height'. Do nothing if WINDOW is not
vertically combined, some of its contents are scrolled out of
view, or WINDOW was not created by `display-buffer'.
(defalias 'resize-temp-buffer-window #[(&optional window) "\306\307\"\301\310!!\311\n!\203& \312!r\313\216\314 @\315\"\210\n\310 !+\202' \n\316\317\"\211 A@)
\300=\203N \320e\"\203N \321!\203N \322\"\202w \205w
\323=\205w \324!=\205w \325! \326\327\330!\331![#\")+\207" [window buffer-name temp-buffer-max-height save-selected-window--state x quit-cadr window-normalize-window t window-buffer functionp internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord window-parameter quit-restore pos-visible-in-window-p window-combined-p fit-window-to-buffer frame frame-root-window window-frame fit-frame-to-buffer + frame-height window-total-size height] 7 (#$ . 34966)])
(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\316 P!\")\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 (#$ . 37135)])
#@107 Set up help window for `with-help-window'.
HELP-WINDOW is the window used for displaying the help buffer.
(defalias 'help-window-setup #[(help-window) "\305!\205 \306!\305!\205 \307\310\"@ \205\277 \311 ! =\203, \312 \"\210 \313\211\223\210\314 =\204^ \f\315=\204X \n\316=\204X \f\317=\203\200 \320!\321 =\203\200 \322\313\323\"G\324V\203\200 \325!\203\200 \326\n\327=\203i \330\202z \n\316=\203s \331\202z \n\317=\205z \332\315#\202\277 \320!\321 =\203\253 \322\313\323\"G\324U\203\253 \326\n\327=\203\236 \333\202\245 \n\317=\205\245 \334\317#\202\277 \326\n\327=\203\266 \335\202\275 \n\317=\205\275 \336\"*\207" [help-window help-buffer help-setup help-window-point-marker help-window-select 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 window "Type \"q\" to delete help window" "Type \"q\" to delete 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 (#$ . 37820)])
#@188 Display buffer with name BUFFER-NAME in a help window evaluating BODY.
Select help window if the actual 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\302 BE\310BBEE\207" [buffer-name body progn (set-marker help-window-point-marker nil) let* (help-window (temp-buffer-show-hook (cons (lambda nil (setq help-window (selected-window))) temp-buffer-show-hook))) prog1 with-output-to-temp-buffer ((help-window-setup help-window))] 9 (#$ . 39101)]))
(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 (#$ . 39804)])
(provide 'help)