;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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) (#$ . 225))#@59 Frame selected at the time `with-help-window' is invoked. (defvar help-window-old-frame nil (#$ . 348))#@115 Whether a *Help* buffer is being prepared. This variable is bound to t during the preparation of a *Help* buffer. (defvar help-buffer-under-preparation nil (#$ . 458))#@76 Return `help-char' in a format suitable for the `keymap-set' KEY argument. (defalias 'help-key #[0 "\301\302!!\207" [help-char key-description char-to-string] 3 (#$ . 631)])#@47 Keymap for characters following the Help key. (defvar help-map (byte-code "\300\301 \302\303\302\304\302\305\306\307\302\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\343\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@\201A\201B\201C\201D\201E\201F\201G\201H\201I\201J\201K\325\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V\201W\201X\201Y\201Z\201[\201\\\201]\201^\201_&d\207" [define-keymap help-key help-for-help "" "" "." display-local-help "?" "C-a" about-emacs "C-c" describe-copying "C-d" view-emacs-debugging "C-e" view-external-packages "C-f" view-emacs-FAQ "RET" view-order-manuals "C-n" view-emacs-news "C-o" describe-distribution "C-p" view-emacs-problems "C-q" help-quick-toggle "C-s" search-forward-help-for-help "C-t" view-emacs-todo "C-w" describe-no-warranty "C-\\" 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 "4 i" info-other-window "k" describe-key "l" view-lossage "m" describe-mode "o" describe-symbol "n" "p" finder-by-keyword "P" describe-package "r" info-emacs-manual "R" info-display-manual "s" describe-syntax "t" help-with-tutorial "v" describe-variable "w" where-is "x" describe-command "q" help-quit] 101) (#$ . 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)#@336 Data structure for `help-quick'. Value should be a list of elements, each element should of the form (GROUP-NAME (COMMAND . DESCRIPTION) (COMMAND . DESCRIPTION)...) where GROUP-NAME is the name of the group of the commands, COMMAND is the symbol of a command and DESCRIPTION is its short description, 10 to 15 char5acters at most. (defvar help-quick-sections '(("File" (save-buffers-kill-terminal . "exit") (find-file . "find") (write-file . "write") (save-buffer . "save") (save-some-buffers . "all")) ("Buffer" (kill-buffer . "kill") (list-buffers . "list") (switch-to-buffer . "switch") (goto-line . "goto line") (read-only-mode . "read only")) ("Window" (delete-window . "only other") (delete-other-windows . "only this") (split-window-below . "split vert.") (split-window-right . "split horiz.") (other-window . "other window")) ("Mark & Kill" (set-mark-command . "mark") (kill-line . "kill line") (kill-region . "kill region") (yank . "yank") (exchange-point-and-mark . "swap")) ("Projects" (project-switch-project . "switch") (project-find-file . "find file") (project-find-regexp . "search") (project-query-replace-regexp . "search & replace") (project-compile . "compile")) ("Misc." (undo . "undo") (isearch-forward . "search") (isearch-backward . "reverse search") (query-replace . "search & replace") (fill-paragraph . "reformat"))) (#$ . 2680))#@281 Display a quick-help buffer showing popular commands and their bindings. The window showing quick-help can be toggled using \[help-quick-toggle]. You can click on a key binding shown in the quick-help buffer to display the documentation of the command bound to that key sequence. (defalias 'help-quick #[0 "r\304\305!q\210\306\307 \211\203\240\211@\310\211\307\311A!\211\203_\211@\3122W\313@\307\306#\211\2036\314\315!\316\317#\202:\320\312\307\"AG]\262\211G]\262\211A@EB\211\262\266\2020\210A\266\202\202\210\211\203\227\321\322\323\324\325\"$\326\327\324$\211\314@\323\n@GZ\325\"P\316\330#\331\332\333\"\"BBB\262\266\266A\266\202\202\210\334 \210\211\237\211\203\316\211@\211@i\\\335 V\203\275db\210\336\324!\210\212\337A!)\210\307\210A\266\202\202\246\210\340 \210\212eb\210\34124\342\343!\211\203+\344\345!\n>\204\361\346\347\350D\"\210\327H\345!\n>\204\346\347\350D\"\210\324H\351\352\353\306\354\355\356\357\345 !\n>\204 \346\347\350D\"\210\f\360H&\f\266\202\332\320\341\307\"\266\202\332*\266\361 \210\362\363p\307\"!r\332\364\"\216\365@\366\"\210\367\370 \306\"\210\371 *\266\372\373\374!!)\207" [inhibit-read-only help-quick-sections cl-struct-prop-match-tags button-map get-buffer-create "*Quick Help*" t nil 0 reverse skip where-is-internal propertize key-description face help-key-binding throw format "%%-%ds %%-%ds%s" make-string 2 32 + 1 bold mapcar make-closure #[257 "\301\300\302@\303AA@#A@#\207" [V0 format propertize quick-help-cmd] 7 "\n\n(fn ENT)"] erase-buffer frame-width newline insert-rectangle delete-trailing-whitespace #1=#:done1103 text-property-search-forward quick-help-cmd make-text-button type-of signal wrong-type-argument prop-match mouse-face highlight button keymap action describe-symbol button-data 3 help-mode internal--before-with-selected-window display-buffer-at-bottom #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord set-window-dedicated-p selected-window fit-window-to-buffer message substitute-command-keys "Toggle display of quick-help buffer using \\[help-quick-toggle]."] 19 (#$ . 4047) nil])#@346 Toggle display of a window showing popular commands and their bindings. This toggles on and off the display of the quick-help buffer, which shows popular commands and their bindings as produced by `help-quick'. You can click on a key binding shown in the quick-help buffer to display the documentation of the command bound to that key sequence. (defalias 'help-quick-toggle #[0 "\300\301!\211\205\302\303\"\262\203\304\305!\207\306 \207" [get-buffer-window "*Quick Help*" quit-window t message "" help-quick] 4 (#$ . 6215) nil]) (defalias 'cheat-sheet 'help-quick)#@49 Just exit from the Help command's command loop. (defalias 'help-quit #[0 "\300\207" [nil] 1 (#$ . 6791) 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 (#$ . 6907))#@496 Display or return message saying how to restore windows after help command. This function assumes that `standard-output' is the help buffer. It computes a message, and applies the optional argument FUNCTION to it. If FUNCTION is nil, it applies `message', thus displaying the message. In addition, this function sets up `help-return-method', which see, that specifies what to do when the user exits the help buffer. Do not call this in the scope of `with-help-window'. (fn &optional FUNCTION) (defalias 'help-print-return-message #[256 "\304!?\205v \204\305\306!!\203\307 \310B\311\202C\312\310!\204+\307 \313B\314\202C\2038\307 \310B\315\202C\307 \316 \317 \320 F\321\206H\322\205O\323!\205T\324\206]\305\306!!?\205r\325\306!!\203o\323\326!\202r\323\327!Q!\262\207" [standard-output pop-up-frames help-return-method pop-up-windows get-buffer-window special-display-p buffer-name selected-window t nil one-window-p quit-window "Type \\[display-buffer] RET to restore the other window." "Type \\[delete-other-windows] to remove help window." window-buffer window-start window-point "Type \\[switch-to-buffer] RET to remove help window." message substitute-command-keys " " same-window-p "\\[scroll-up-command] to scroll the help." "\\[scroll-other-window] to scroll the help."] 8 (#$ . 7289)]) (byte-code "\300\301KM\207" [defining-kbd-macro start-kbd-macro] 2)#@37 Name of the `help-for-help' buffer. (defvar help-for-help-buffer-name " *Metahelp*" (#$ . 8690)) (custom-declare-face 'help-for-help-header '((t :height 1.26)) "Face used for headers in the `help-for-help' buffer." :group 'help)#@74 Create commands for `help-for-help' screen from COMMANDS. (fn COMMANDS) (defalias 'help--for-help-make-commands #[257 "\300\301\302#\207" [mapconcat #[257 "\211<\203(\211@A@\300\301\302\"\203\303\304\305#\202\306\307Q\310\303\311\312\313#\260\207\314\207" [" " string-match "\\`C-[[:word:]]\\'" propertize face help-key-binding "\\[" "]" " " " " display (space :align-to 8) ""] 10 "\n\n(fn CMD)"] "\n"] 5 (#$ . 8924)])#@74 Create sections for `help-for-help' screen from SECTIONS. (fn SECTIONS) (defalias 'help--for-help-make-sections #[257 "\300\301\302#\207" [mapconcat #[257 "\211@A\300\301\302\303#\300\304!R\207" ["\n\n" propertize face help-for-help-header help--for-help-make-commands] 8 "\n\n(fn SECTION)"] ""] 5 (#$ . 9363)]) (defalias 'help 'help-for-help)#@15 Help command. (defalias 'help-for-help #[0 "\306\307\310!!\311 \203\312\313\"\210\314\315\316!\317\315\320!\321\315\322!\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342 \"D\343BBBBBBBBB\344BBB!\345\260 \346 \nC\347 \350C\350C\350\211\351\352 \"\203d\353\315\354 \355\356O!\311\211$\262\357\360 $\216\350\241\210\361\362\363#\210\361\364\365\f\366\"#\210 \203\251\367\350!)\262\365@\"\203\241\365@\"\262\355H\262\202\254\370\262\211\370=\204\300\211A=\204\300\211B>\203\356\371 \240\210\372C\206\314\373\350\311#\210\374\375!\203\346\376 =\204\346\376 \240\210\350\240\210\350D\311E\377 \210\306!c)\210\242\201H \210\201I \210\n\240)\210eb\210\211\201JBA\201KB\">\204-\211\242\201L=\204-\201M\232\203\356\201N1\220\211\242\201L=\203D\201O!\202\213\211\201P>\203S\201Q \202\213\211\201R>\204c\201M\232\203j\201S \202\213\211\201T=\203|\201Q\201U!\202\213\211\201V=\205\213\201S\201U!0\210\202\221\210\311F\367\340\201W\201Xd!\203\250\333\202\315\201Y\315\201Z!\201[\315\201\\!\201[\315\201]!\201[\315\201^!\201_\260 \"!\262\355H*\262\211\201`=\203\201a\365\"\350#\210\202\312\333!\210\211<\203\211GBG\350\240\202d\365\"\211\203A\242\203\201b\242!\210\350\240\210\242\201c!)\210\242\205b\242\347 =\204;\201d\242!\210\350\240\202b\201e!\201f\232?\205b\312\306\340\201g\201e!\"!!\210\201h \262*\266\210)\207" [help-buffer-under-preparation three-step-help minor-mode-map-alist help-map global-map overriding-local-map substitute-command-keys purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?" t message "%s" "(Type " help--key-description-fontified [PageDown] " or " [PageUp] " to scroll, " "" " to search, or \\\\[help-quit] to exit.)" help--for-help-make-sections ("Commands, Keys and Functions" ("describe-mode" "Show help for current major and minor modes and their commands") ("describe-bindings" "Show all key bindings") ("describe-key" "Show help for key") ("describe-key-briefly" "Show help for key briefly") ("where-is" "Show which key runs a specific command") #1="" ("apropos-command" "Search for commands (see also \\[apropos])") ("apropos-documentation" "Search documentation of functions, variables, and other items") ("describe-command" "Show help for command") ("describe-function" "Show help for function") ("describe-variable" "Show help for variable") ("describe-symbol" "Show help for function or variable")) ("Manuals" ("info-emacs-manual" "Show Emacs manual") ("Info-goto-emacs-command-node" "Show Emacs manual section for command") ("Info-goto-emacs-key-command-node" "Show Emacs manual section for a key sequence") ("info" "Show all installed manuals") ("info-display-manual" "Show a specific manual") ("info-lookup-symbol" "Show description of symbol in pertinent manual")) "Other Help Commands" ("view-external-packages" "Extending Emacs with external packages") ("finder-by-keyword" "Search for Emacs packages (see also \\[list-packages])") ("describe-package" "Describe a specific Emacs package") #1# ("help-with-tutorial" "Start the Emacs tutorial") ("help-quick-toggle" "Display the quick help buffer.") ("view-echo-area-messages" "Show recent messages (from echo area)") "view-lossage" format "Show last %d input keystrokes (lossage)" lossage-size (("display-local-help" "Show local help at point")) (("Miscellaneous" ("about-emacs" "About Emacs") ("view-emacs-FAQ" "Emacs FAQ") ("C-n" "News of recent changes") ("view-emacs-problems" "Known problems") ("view-emacs-debugging" "Debugging Emacs") #1# ("describe-gnu-project" "About the GNU project") ("describe-copying" "Emacs copying permission (GNU General Public License)") ("describe-distribution" "Emacs ordering and distribution information") ("C-m" "Order printed manuals") ("view-emacs-todo" "Emacs TODO") ("describe-no-warranty" "Information on absence of warranty")) ("Internationalization and Coding Systems" ("describe-input-method" "Describe input method") ("describe-coding-system" "Describe coding system") ("describe-language-environment" "Describe language environment") ("describe-syntax" "Show current syntax table") ("view-hello-file" "Display the HELLO file illustrating various scripts"))) "\n" make-sparse-keymap selected-frame nil string-match "%THIS-KEY%" replace-match this-command-keys 0 -1 make-closure #[0 "\301\242\203\n\304\301\242!\210\300\242\203\305\300\242!\210\302\242\211\207" [V0 V1 V2 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 function-key-map help-char help-event-list help-for-help-buffer-name buffer-read-only inhibit-read-only cursor-in-echo-area unread-command-events help-mode variable-pitch-mode append (63 22 32 127 134217846 33554464 deletechar backspace vertical-scroll-bar home end next prior up down) switch-frame "\366" (error) handle-switch-frame (22 32 next end) scroll-up (127 134217846 33554464 deletechar backspace prior home) scroll-down down 1 up "Type one of listed options%s: " pos-visible-in-window-p ", or " [PageDown] "/" [PageUp] " " "" " to scroll" vertical-scroll-bar command-execute set-window-configuration call-interactively iconify-frame key-description "C-g" "No help command is bound to `\\`%s''" ding] 23 (#$ . 9717) nil])#@122 Return a function around point or else called by the list containing point. If that doesn't give a function, return nil. (defalias 'function-called-at-point #[0 "\302 p\303\304#\216\305!\210\3061F\212\307\310!\311U\203,gz\312=\204,gz\313=\204,\314\315!\210\316\317w\210\320p!\2119\205?\321!\205?\211)\2620\202J\210\202M\206\312\3221\204\212\214\317e`\323Z]d}\210\324\325!\210\325u\210\326\327!\203n\330\331!\210\320p!\2119\205}\321!\205}\211+\2620\202\210\210\202\213\206\312\332 \211\205\224\333!\211\203\244\321!\203\244\211\266\202\202\312\334 \303\335\"\216\205\305\336\337\"\205\305\333\340\325\"!\262\321!\205\305)\262\266\202)\207" [emacs-lisp-mode-syntax-table forward-sexp-function syntax-table make-closure #[0 "r\300q\210\302\301!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table (error) skip-syntax-backward "_w" 0 119 95 forward-sexp -1 "'" nil read fboundp (error) 1000 backward-up-list 1 looking-at "[ ]" error "Probably not a Lisp function call" find-tag-default intern-soft match-data #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match "\\`\\W*\$.*?\$\\W*\\'" match-string] 9 (#$ . 15244)])#@27 (fn FILE &optional DIR) (defalias 'view-help-file #[513 "\301\302\206\"!\210\303\304!\210eb\207" [data-directory view-file expand-file-name goto-address-mode 1] 6 (#$ . 16415)])#@64 Display info on how to obtain the latest version of GNU Emacs. (defalias 'describe-distribution #[0 "\300\301!\207" [view-help-file "DISTRIB"] 2 (#$ . 16605) nil])#@63 Display info on how you may redistribute copies of GNU Emacs. (defalias 'describe-copying #[0 "\300\301!\207" [view-help-file "COPYING"] 2 (#$ . 16774) nil])#@47 Browse online information on the GNU project. (defalias 'describe-gnu-project #[0 "\300\301!\207" [browse-url "https://www.gnu.org/gnu/thegnuproject.html"] 2 (#$ . 16937) nil])#@64 Display info on all the kinds of warranty Emacs does NOT have. (defalias 'describe-no-warranty #[0 "\301 \210\302\303\304!\210\305y\210\306\305!)\207" [case-fold-search describe-copying nil search-forward "Disclaimer of Warranty" 0 recenter] 2 (#$ . 17119) nil])#@164 Describe the bindings of the prefix used to reach this command. The prefix described consists of all but the last event of the key sequence that ran this command. (defalias 'describe-prefix-bindings #[0 "\301 \211;\203\211\302GSO\202/\303GS\304\"\302\211GW\203,HI\210\211T\262\202\266\202\305!\210r\306 q\210\307 \310W\205I\311\312\313\314!\"c))\207" [inhibit-read-only this-command-keys 0 make-vector nil describe-bindings help-buffer buffer-size 10 t format "No commands with a binding that start with %s." help--key-description-fontified] 7 (#$ . 17389) nil]) (byte-code "\301\211\207" [prefix-help-command describe-prefix-bindings] 2)#@125 Display info on recent changes to Emacs. With argument, display info only for the selected version. (fn &optional VERSION) (defalias 'view-emacs-news #[256 "\211\204\262\211:\203^\302C\303\304\305\"\306\307 \302\310\302$B\"\210\311\312\242!\313\"\262\211@\314\315\316\"\302\211\211\211&\262\317!\250\203G\317!\266\203\202^\235\204\\\317!\317!X\204\\\320\321\"\210\266\211\250\203\214\211\322X\203r\323\324\"\262\202\214\211\325X\203\201\323\326\"\262\202\214\211V\203\214\320\327\"\210\211;\203\227\317!\202\230\211\211Y\203\242\306\202\260\211\325W\203\254\330\202\260\323\331\"\302\332\333 \"!\210\334 \210eb\210;\205\335\336W\203\316\337\202\317\340\341Q\302\342#\205\343 \210`\212\335\336W\203\350\344\202\351\345\302\342#\211\262\203\372\346\347!\232\204\335\204db\210\343 \210`)}\207" [emacs-major-version data-directory nil mapc make-closure #[257 "\302\303\304\"r\211q\210\305\306\"\216\307\310 \"!\210\311\312\235\203\313\202 \314\315\304#\2052\300\316\317!\300\242B\240\210\202*\207" [V0 data-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 match-string-no-properties 1] 6 "\n\n(fn FILE)"] "NEWS" directory-files "\\`NEWS\\.[0-9][-0-9]*\\'" sort delete-dups string> completing-read format-prompt "Read NEWS for the version" string-to-number error "No news about version %s" 12 format "1.%d" 18 "%d" "No news about Emacs %d (yet)" "NEWS.1-17" "NEWS.%d" find-file expand-file-name emacs-news-view-mode re-search-forward 19 "Changes in Emacs[ ]*" "^\\* [^0-9\n]*" "$" t beginning-of-line "Changes in \$?:Emacs\\|version\$?[ ]*\$[0-9]+\\(?:\\.[0-9]+\$?\\)" "^\\* [^0-9\n]*\$[0-9]+\\.[0-9]+\$" match-string-no-properties 1] 11 (#$ . 18054) "P"])#@50 Display the Emacs TODO list. (fn &optional ARG) (defalias 'view-emacs-todo #[256 "\300\301!\207" [view-help-file "TODO"] 3 (#$ . 20064) "P"])#@164 View the log of recent echo-area messages: the `*Messages*' buffer. The number of messages retained in that buffer is specified by the variable `message-log-max'. (defalias 'view-echo-area-messages #[0 "r\300 q\210db\210\301p!\302`\")\210\207" [messages-buffer display-buffer set-window-point] 4 (#$ . 20213) nil])#@68 Display information on how to buy printed copies of Emacs manuals. (defalias 'view-order-manuals #[0 "\300\301!\207" [info "(emacs)Printed Books"] 2 (#$ . 20534) nil])#@58 Display the Emacs Frequently Asked Questions (FAQ) file. (defalias 'view-emacs-FAQ #[0 "\300\301!\207" [info "(efaq)"] 2 (#$ . 20707) nil])#@69 Display info on known problems with Emacs and possible workarounds. (defalias 'view-emacs-problems #[0 "\300\301!\207" [view-help-file "PROBLEMS"] 2 (#$ . 20852) nil])#@46 Display info on how to debug Emacs problems. (defalias 'view-emacs-debugging #[0 "\300\301!\207" [view-help-file "DEBUG"] 2 (#$ . 21025) nil])#@51 Display info on where to get more Emacs packages. (defalias 'view-external-packages #[0 "\300\301!\207" [info "(efaq)Packages that do not come with Emacs"] 2 (#$ . 21173) nil])#@241 Display last few input keystrokes and the commands run. For convenience this uses the same format as `edit-last-kbd-macro'. See `lossage-size' to update the number of recorded keystrokes. To record all your input, use `open-dribble-file'. (defalias 'view-lossage #[0 "\301\302\303C\304\305!\"\210\306\307 \310\")\207" [help-buffer-under-preparation t help-setup-xref view-lossage called-interactively-p interactive help--window-setup help-buffer #[0 "\306\307!\210\306\310\311\312\313!\307#!\210rq\210eb\210\314\211\315\316m\204*\317 \210\320y\210\202, `\315\223)\207" [standard-output comment-column comment-use-syntax comment-start-skip comment-start help-window-point-marker princ " " mapconcat #[257 "\211:\203\211@\204\300\301A9\203A\202\302\"\207\211\250\204)\2119\204)\211<\203-\303!\207\304\305\"\207" [format ";; %s\n" "anonymous-command" single-key-description prin1-to-string nil] 4 "\n\n(fn KEY)"] recent-keys include-cmds ";; " nil 24 comment-indent 1] 5]] 4 (#$ . 21356) nil])#@182 Like `key-description' but add face for "*Help*" buffers. KEYS is the return value of `(where-is-internal \='foo-cmd nil t)'. Return nil if KEYS is nil. (fn KEYS &optional PREFIX) (defalias 'help--key-description-fontified #[513 "\205\300\301\"\302\303\304\303%\207" [propertize key-description font-lock-face help-key-binding face] 8 (#$ . 22378)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \207" [custom-declare-variable describe-bindings-outline funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil enables outlines in the output buffer of `describe-bindings'." :type boolean :group help :version "29.1" describe-bindings-show-prefix-commands #[0 "\300\207" [nil] 1 #1#] "Non-nil means show prefix commands in the output of `describe-bindings'."] 10)#@429 Display a buffer showing a list of all defined keys, and their definitions. The keys are displayed in order of precedence. The optional argument PREFIX, if non-nil, should be a key sequence; then we display only bindings that start with that prefix. The optional argument BUFFER specifies which buffer's bindings to display (default, the current buffer). BUFFER can be a buffer or a buffer name. (fn &optional PREFIX BUFFER) (defalias 'describe-bindings #[512 "\211C\301\211\242\204 \211p\240\210\302\303\242E\304\305!\"\210\306\307 \310\311#\")\207" [help-buffer-under-preparation t help-setup-xref describe-bindings called-interactively-p interactive help--window-setup help-buffer make-closure #[0 "r\306 q\210\307\300\242\301\"\210\n\205f\310\303!\210\311\310\304!\210\312\310\305!\210\313\310\314!\210\315\f\310\316!\210\315\310\317!\210\320\310\321!\210\322\310\323!\210\324\325\322!\210\212eb\210\315\326\327\330\315#\205e\331\332\224T\332\225S\333\315$\210\202O*)\207" [V0 V1 describe-bindings-outline outline-regexp outline-heading-end-regexp outline-level help-buffer describe-buffer-bindings make-local-variable ".*:$" ":\n" #[0 "\300\207" [1] 1] outline-minor-mode-cycle t outline-minor-mode-highlight outline-minor-mode-use-buttons insert outline-default-state 1 outline-default-rules ((match-regexp . "Key translations")) outline-minor-mode search-forward "\n\f\n" nil put-text-property 0 invisible inhibit-read-only] 5]] 9 (#$ . 23223) nil])#@259 Print message listing key sequences that invoke the command DEFINITION. Argument is a command definition, usually a symbol with a function definition. If INSERT (the prefix arg) is non-nil, insert the message in the buffer. (fn DEFINITION &optional INSERT) (defalias 'where-is #[513 "\204\302\303!\210\304!\305C\203p\202\306\307\310$!\210\242B\211\203\343\211@\311!\312 \305\211%\313\314\315#\305\203gG\316V\203_\203V\317\320$\202\266\317\321#\202\266\317\322\"\202\266G\316V\203\252\203\220\nK=\203\205\317\323$\202\266\317\324$\202\266\nK=\203\241\317\325#\202\266\317\326#\202\266\n=\205\266\317\327\"\262\211\203\332\n=\204\326 K=\203\322\330\331!\210\202\326\330\332!\210\330!\210\266A\266\202\202%)\266\305\207" [standard-output overriding-local-map error "No command" indirect-function nil mapatoms make-closure #[257 "\303!\205%\211\302=?\205%\301\3041\305!0\202\210=\205%\300\300\242B\240\207" [V0 V1 V2 fboundp (error) indirect-function] 4 "\n\n(fn SYMBOL)"] command-remapping where-is-internal mapconcat help--key-description-fontified ", " 0 format "%s, remapped to %s (%s)" "%s (%s)" "M-x %s RET" "%s, which is remapped to %s, which is on %s" "%s is remapped to %s, which is on %s" "%s, which is on %s" "%s is on %s" "%s is not on any key" princ ";\n its alias " ";\n it's an alias for "] 15 (#$ . 24713) (byte-code "\303 \304\305\306\307\310\" \311\304\305\211 \205\312\n!&\262\211\313\232?\205'\314!\n)D\207" [enable-recursive-minibuffers obarray current-prefix-arg function-called-at-point t nil completing-read format-prompt "Where is command" commandp symbol-name "" intern] 12)])#@25 (fn KEY UNTRANSLATED) (defalias 'help-key-description #[514 "\300!\203\301H\302=\203\301H\302=\204\207\300!\232\203#\207\303\304#\207" [help--key-description-fontified 0 27 format "%s (translated from %s)"] 8 (#$ . 26431)])#@13 (fn DEFN) (defalias 'help--binding-undefined-p #[257 "\211?\206 \211\250\206 \211\300=\207" [undefined] 3 (#$ . 26679)])#@248 Get information about KEY its corresponding UNTRANSLATED events. Returns a list of the form (BRIEF-DESC DEFN EVENT MOUSE-MSG). When BUFFER is nil, it defaults to the buffer displayed in the selected window. (fn KEY UNTRANSLATED &optional BUFFER) (defalias 'help--analyze-key #[770 "\247\203 \300\301!\210G\302V\205,\211\302H9\203*G\303V\203*\303H:\203*\303\202+\302H\304!\305>\204A\306>\204A\307>\203E\310\202F\311\312!\204R\211:\204Z\313\314\"\202g\212\315\312!!\210\313\314\")\211\204\204\211GSH;\203\204\313\302\316O!\317=\203\204\320\262\211GSH;\203\226\211GS\321I\210\203\255\211GSH;\203\255\211GS\321I\210\322\"\323!\203\302\324\325#\202\311\324\326$\262F\207" [error "Missing `untranslated'!" 0 1 event-modifiers click down drag " at that spot" "" event-end key-binding t posn-set-point -1 yank-menu menu-bar-select-yank "(any string)" help-key-description help--binding-undefined-p format "%s%s is undefined" "%s%s runs the command %S"] 14 (#$ . 26810)])#@44 Drop the undefined keys. (fn INFO-LIST I) (defalias 'help--filter-info-list #[514 "\300\301\302\303\304\"\"\"\206\305!\207" [delq nil mapcar make-closure #[257 "\301\3008!?\205\n\211\207" [V0 help--binding-undefined-p] 4 "\n\n(fn X)"] last] 8 (#$ . 27848)])#@529 Print the name of the functions KEY-LIST invokes. KEY-LIST is a list of pairs (SEQ . RAW-SEQ) of key sequences, where RAW-SEQ is the untranslated form of the key sequence SEQ. If INSERT (the prefix arg) is non-nil, insert the message in the buffer. While reading KEY-LIST interactively, this command temporarily enables menu items or tool-bar buttons that are disabled to allow getting help on them. BUFFER is the buffer in which to lookup those keys; it defaults to the current buffer. (fn &optional KEY-LIST INSERT BUFFER) (defalias 'describe-key-briefly #[768 "\300!\203CC\262r\301!\203\211\202pq\210\302\303\304\"\"\305\306\307\310\"\311#\2033\211c\266\202\2029\312\313\"\266\202)\207" [arrayp buffer-live-p mapcar make-closure #[257 "\301@A\300#\207" [V0 help--analyze-key] 5 "\n\n(fn KR)"] mapconcat car help--filter-info-list 1 "\n" message "%s"] 9 (#$ . 28120) (byte-code "\301\302!\211D\207" [current-prefix-arg help--read-key-sequence no-mouse-movement] 3)])#@239 Return a keymap holding a binding for KEY within current keymaps. The effect of the arguments KEY, ACCEPT-DEFAULT, NO-REMAP and POSITION is as documented in the function `key-binding'. (fn KEY &optional ACCEPT-DEFAULT NO-REMAP POSITION) (defalias 'help--key-binding-keymap #[1025 "\300\301\"\302\211\211\204*\211A\262\242\211\262\203*\303#\262\211\250\203\302\262\202\211\205E\2119\203D\204D\304!\203D\305\306\307\"!\207\207" [current-active-maps t nil lookup-key command-remapping help--key-binding-keymap vector remap] 11 (#$ . 29118)])#@210 Describe in which keymap KEY is defined. Return a symbol pointing to that keymap if one exists ; otherwise return nil. The argument POSITION is as documented in the function `key-binding'. (fn KEY POSITION) (defalias 'help--binding-locus #[514 "\302\303\304$\211\205N\3052N\306\307D\310\304\311\312\"\"\244\313\314\315\316 \"!D\244\211\211\203B\211@\317!\203;J=\203;\320\305\"\210A\266\202\202#\210\321\322\323\"!\210\304\2620\207" [minor-mode-map-alist major-mode help--key-binding-keymap t nil found overriding-terminal-local-map overriding-local-map delq mapcar #[257 "\211@\211J\205 \300\301\302\"!\207" [intern-soft format "%s-map"] 6 "\n\n(fn MODE-AND-MAP)"] global-map intern-soft format "%s-map" boundp throw mapatoms make-closure #[257 "\301!\205\302!\205\211J\300=\205\303\304\"\207" [V0 boundp special-variable-p throw found] 4 "\n\n(fn X)"]] 9 (#$ . 29689)])#@532 Read a key sequence from the user. Usually reads a single key sequence, except when that sequence might hide another one (e.g. a down event, where the user is interested in getting info about the up event, or a click event, where the user wants to get info about the double click). Return a list of elements of the form (SEQ . RAW-SEQ), where SEQ is a key sequence, and RAW-SEQ is its untranslated form. If NO-MOUSE-MOVEMENT is non-nil, ignore key sequences starting with `mouse-movement' events. (fn &optional NO-MOUSE-MOVEMENT) (defalias 'help--read-key-sequence #[256 "\303\211\304\211C\305\306\"\216\304\211\nA\204 \307\n!\240\210\310\311\304\"\210\211\203:\312>\204:\313>\203\213\314\315 \316\245\303\"\204\213\317\320\304\211\321$\322 G\323V\205N\211GSH\324!\325!G\323U\204\206\203f\326=\204\206\327\267\202{B\262 \266\202 \266\202 \211\262BB\262\266\202 \203\230\237B\266\202\202\234\211\237\266\202+\207" [cursor-in-echo-area enable-disabled-menus-and-buttons yank-menu t nil make-closure #[0 "\300\242\205\302\300\242!\301\303 BM\207" [V0 yank-menu copy-sequence keymap] 3] copy-sequence menu-bar-update-yank-menu "(any string)" down click sit-for mouse-double-click-time 1000.0 read-key-sequence "Describe the following key, mouse click, or menu item: " can-return-switch-frame this-single-command-raw-keys 0 event-basic-type event-modifiers mouse-movement #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (mouse-movement 108 switch-frame 108 select-window 108 help-echo 118))] 14 (#$ . 30595)])#@21 (fn KEY-LIST BUF) (defalias 'describe-key--helper #[514 "\300\301!\205 \"\207" [describe-key buffer-live-p] 6 (#$ . 32192)])#@17 (fn FUNC BUF) (defalias 'describe-function--helper #[514 "\301!\205\211\302!)\207" [describe-function-orig-buffer buffer-live-p describe-function] 4 (#$ . 32328)])#@899 Display documentation of the function invoked by KEY-LIST. KEY-LIST can be any kind of a key sequence; it can include keyboard events, mouse events, and/or menu events. When calling from a program, pass KEY-LIST as a list of elements (SEQ . RAW-SEQ) where SEQ is a key-sequence and RAW-SEQ is its untranslated form. While reading KEY-LIST interactively, this command temporarily enables menu items or tool-bar buttons that are disabled to allow getting help on them. Interactively, this command can't describe prefix commands, but will always wait for the user to type the complete key sequence. For instance, entering "C-x" will wait until the command has been completed, but `M-: (describe-key (kbd "C-x")) RET' will tell you what this prefix command is bound to. BUFFER is the buffer in which to lookup those keys; it defaults to the current buffer. (fn &optional KEY-LIST BUFFER UP-EVENT) (defalias 'describe-key #[768 "C\302!\2032C\205CB\262\211\242\203.\211\242\247\203#\303 \202%\211\242\304!\211@\241\266\211\305\240\210\306\211\242\206:p\211\307\310\311\"\"\312rq\210\307\310\313\"\")\314\"\315\316E\317\320!\"\210\211G\321X\203z\322\314@8!\203z\323\324@A@\"\202\204\325\326 \310\327#\"*\207" [help-buffer-under-preparation describe-function-orig-buffer arrayp this-single-command-raw-keys last nil t mapcar make-closure #[257 "\211A \302>?\205%\211G\303V\205%\211\303H\242\304=\205%r\300q\210\305\306\303H!!)\207" [V0 mouse-1-click-follows-link (nil double) 0 mouse-1 mouse-on-link-p event-start] 6 "\n\n(fn KR)"] help--filter-info-list #[257 "\211\242\243\301\300\242#\211\242\243\211\242\243\211\242\243\211\242\243\302\303\f\304!\"\f\n F\207" [V0 help--analyze-key nil help--binding-locus event-start] 18 "\n\n(fn X)"] 2 help-setup-xref describe-key--helper called-interactively-p interactive 1 help--binding-undefined-p message "%s" help--window-setup help-buffer #[0 "\300G\303V\203\304c\210\305\306\300\307#c\210\310\311\301\"\203\312c\210\313c\210\300\211\205k\211@\211\242\243\211\242\243\211\242\243\211\242\243\311\203b\300G\303V\203Mr\nq\210\314\315 \307\261)\210c\210\203[\316\317\"c\210\320c\210\321!\210\266 A\266\202\202\207" [V0 V1 standard-output 1 "There were several key-sequences:\n\n" mapconcat #[257 "\211\242\243\211\242\243\211\242\243\211\242\243\300\211\211\301 P\207" [nil " "] 14 "\n\n(fn INFO)"] "\n" delq nil "\n\nThose are influenced by `mouse-1-click-follows-link'" "\n\nThey're all described below." "\n\n" make-separator-line format " (found in %s)" ", which is " describe-function-1] 14]] 13 (#$ . 32505) (byte-code "\300 C\207" [help--read-key-sequence] 1)]) (set-advertised-calling-convention 'describe-key '(key-list &optional buffer) "27.1")#@122 Search forward in the help-for-help window. This command is meant to be used after issuing the \[help-for-help] command. (defalias 'search-forward-help-for-help #[0 "\301!\204 \302\303\304!\"\210\305!\210\306\307\310\"\207" [help-for-help-buffer-name get-buffer error substitute-command-keys "No %s buffer; use \\[help-for-help] first" pop-to-buffer isearch-forward nil t] 3 (#$ . 35290) nil])#@175 Display documentation of a minor mode given as MINOR-MODE. MINOR-MODE can be a minor mode symbol or a minor mode indicator string appeared on the mode-line. (fn MINOR-MODE) (defalias 'describe-minor-mode #[257 "\2119\203\n\300!\262\301 \302 \235\203\303\304!!\207\235\203$\305!\207\306\307\"\207" [symbol-name describe-minor-mode-completion-table-for-symbol describe-minor-mode-completion-table-for-indicator describe-minor-mode-from-symbol intern describe-minor-mode-from-indicator error "No such minor mode: %s"] 6 (#$ . 35694) (byte-code "\300\301\302 \303 \244\"C\207" [completing-read "Minor mode: " describe-minor-mode-completion-table-for-symbol describe-minor-mode-completion-table-for-indicator] 4)]) (defalias 'describe-minor-mode-completion-table-for-symbol #[0 "\301\302\303\304\"\"\207" [minor-mode-list delq nil mapcar symbol-name] 5])#@79 Display documentation of a minor mode given as a symbol, SYMBOL. (fn SYMBOL) (defalias 'describe-minor-mode-from-symbol #[257 "\300!\203\n\301!\207\302!\207" [fboundp describe-function describe-variable] 3 (#$ . 36564) (byte-code "\300\301\302\303 \"!C\207" [intern completing-read "Minor mode symbol: " describe-minor-mode-completion-table-for-symbol] 4)]) (defalias 'describe-minor-mode-completion-table-for-indicator #[0 "\301\302\303\304\"\"\207" [minor-mode-alist delq nil mapcar #[257 "\300!\211G\301U\203\f\302\207\211\301H\303=\203\211\304\302O\207\207" [format-mode-line 0 nil 32 1] 5 "\n\n(fn X)"]] 5])#@189 Display documentation of a minor mode specified by INDICATOR. If you call this function interactively, you can give indicator which is currently activated with completion. (fn INDICATOR) (defalias 'describe-minor-mode-from-indicator #[257 "\300!\211\203\301!\207\302\303\"\207" [lookup-minor-mode-from-indicator describe-minor-mode-from-symbol error "Cannot find minor mode for `%s'"] 5 (#$ . 37193) (byte-code "\300\301\302 \"C\207" [completing-read "Minor mode indicator: " describe-minor-mode-completion-table-for-indicator] 3)])#@81 Return a minor mode symbol from its indicator on the mode line. (fn INDICATOR) (defalias 'lookup-minor-mode-from-indicator #[257 "\301GW\203\211\301H\302=\203\211\303\304O\262\304\203X@@\305@A@!\211;\203>\211G\301V\203>\211\301H\302=\203>\211\303\304O\262\232\203O\262\304\262\266\202A\262\266\202\207" [minor-mode-alist 0 32 1 nil format-mode-line] 8 (#$ . 37737)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable help-link-key-to-documentation funcall function #[0 "\300\207" [t] 1 ""] "Non-nil means link keys to their command in *Help* buffers.\nThis affects \\\\=\\[command] substitutions in documentation\nstrings done by `substitute-command-keys'." :type boolean :version "29.1" :group help] 10)#@1427 Substitute key descriptions for command names in STRING. Each substring of the form \\=[COMMAND] is replaced by either a keystroke sequence that invokes COMMAND, or "M-x COMMAND" if COMMAND is not on any keys. Keybindings will use the face `help-key-binding', unless the optional argument NO-FACE is non-nil. Each substring of the form \\=`KEYBINDING' will be replaced by KEYBINDING and use the `help-key-binding' face. Each substring of the form \\={MAPVAR} is replaced by a summary of the value of MAPVAR as a keymap. This summary is similar to the one produced by `describe-bindings'. This will normally exclude menu bindings, but if the optional INCLUDE-MENUS argument is non-nil, also include menu bindings. The summary ends in two newlines (used by the helper function `help-make-xrefs' to find the end of the summary). Each substring of the form \\= specifies the use of MAPVAR as the keymap for future \\=[COMMAND] substrings. Each grave accent \=` is replaced by left quote, and each apostrophe \=' is replaced by right quote. Left and right quote characters are specified by `text-quoting-style'. \\== quotes the following character and is discarded; thus, \\==\\== puts \\== into the output, \\==\[ puts \[ into the output, and \\==\=` puts \=` into the output. Return the original STRING if no substitutions are made. Otherwise, return a new string. (fn STRING &optional NO-FACE INCLUDE-MENUS) (defalias 'substitute-command-keys #[769 "??\205c\304p\305\306\304\"r\211q\210\307\310\"\216c\210eb\210`dW\203\\`\311\211\211\211g\312U\203\3131;\314u0\210\202<\210`TdU\203Pg\315U\203P\314u\266\202g\315U\203nb\210\316\317!\210\3201i\314u0\266\202\266\202g\321U\203\313\212\322\323\311\304#`S)\262\203\313\324\317\\\"\325!\204\252\326\311\327\304$\266\203\204\252\330\311\327\304$\266\203\203\306b\210\316\317!\210\317Zb\210\316\314!\210\204\306\331`\332#\210\266\202g\333U\203t\212\322\334\311\304#`\317Z)\262\203tb\210\316\317!\210\335`S{!rq\210\336\205\374C\304#)\211\204\n\203rq\210\336\f\304#)\262\211\2047`\337c\210\340\\b\210 \204/\331`\341#\210\316\314!\266 \202\316`Z!\210\f\203I\342!\202n\343!\n\203k\203k\344!\203k\345\346!\203g\346\"\202l\211\202l\211\262c\266\202g\347U\203\204\350\262\304\211\262\204\221g\351U\203\352\211\262\203\212\322\311\304#`\317Z)\262\203Wb\210\316\317!\210\335`S{!\311\316`Z!\210rq\210\353 \262\354!\203\317\355J!\205\315J\262)\211\204\356\356\357\360!\361!\357\323!\362\261\210\204\311\262\266\202\204\371\262\n\266\202\211\363!>A\364\304\237\311\211?\311\211\304& \266\266\266\202\365 \366=\203" current-active-maps boundp keymapp "\nUses keymap " substitute-quotes "`" symbol-name ", which is not currently defined.\n" reverse describe-map-tree text-quoting-style curve "‘" 39 "’" straight buffer-string] 25 (#$ . 38524)])#@264 Substitute quote characters in STRING for display. Each grave accent \=` is replaced by left quote, and each apostrophe \=' is replaced by right quote. Which left and right quote characters to use is determined by the variable `text-quoting-style'. (fn STRING) (defalias 'substitute-quotes #[257 "\300 \301=\203\302\303\304\302\305\306##\207\300 \307=\203\302\303\305#\207\207" [text-quoting-style curve string-replace "`" "‘" "'" "’" straight] 8 (#$ . 42303)]) (defvar help--keymaps-seen nil)#@1103 Insert a description of the key bindings in STARTMAP. This is followed by the key bindings of all maps reachable through STARTMAP. If PARTIAL is non-nil, omit certain uninteresting commands (such as `undefined'). If SHADOW is non-nil, it is a list of maps; don't mention keys which would be shadowed by any of them. If PREFIX is non-nil, mention only keys that start with PREFIX. If TITLE is non-nil, is a string to insert at the beginning. TITLE should not end with a colon or a newline; we supply that. If NO-MENU is non-nil, then omit menu-bar commands. If TRANSL is non-nil, the definitions are actually key translations so print strings and vectors differently. If ALWAYS-TITLE is non-nil, print the title even if there are no maps to look through. If MENTION-SHADOW is non-nil, then when something is shadowed by SHADOW, don't omit it; instead, mention it but say it is shadowed. If BUFFER, lookup keys while in that buffer. This only affects things like :filters for menu bindings. (fn STARTMAP &optional PARTIAL SHADOW PREFIX TITLE NO-MENU TRANSL ALWAYS-TITLE MENTION-SHADOW BUFFER) (defalias 'describe-map-tree #[2561 "\301\n\"\2037\211\302\2032@\211@G\303Y\203#\211@\304\234\305=\204*\306C\"\262\210A\262\202\f\262\2028\211\211\206>`\302:\203\255@\211@\307\310#\311!\203\\\302\262\202r\312!\204r\211\203r\211:\203\244\312@!\203\244\211\232\204\221\211@@\232\203\212\211@AB\262\211A\262\202t\210\313A&\210\266A\262\202A\205\337`U?\205\337\212\211b\210l\203\305``T|\210\n\205\331\n\f\205\327\314\315!P\316Q\317\320 Qc)\207" [help--keymaps-seen accessible-keymaps nil 1 0 menu-bar append lookup-key t natnump keymapp describe-map " Starting With " help--key-description-fontified ":\n" "\nKey Binding\n" make-separator-line] 27 (#$ . 42817)])#@130 Like `lookup-key', but with command remapping. Return nil if the key sequence is too long. (fn KEYMAP KEY ACCEPT-DEFAULT REMAP) (defalias 'help--shadow-lookup #[1028 "\300#\301!\203\302X\206)\211\203(\203(\2119\203(\303\304#\206)\207\211\207" [lookup-key fixnump 0 command-remapping nil] 9 (#$ . 44675)])#@41 (fn DEFINITION &optional TRANSLATION) (defalias 'help--describe-command #[513 "9\203&\301!\203\203\302\303!\304\305\306C%\210\202#\303!c\210\307c\207;\2041\310!\203@\211\203=\311\312\"\307\261\207\313c\207\314!\203I\315c\207\316!\203Z\317\320\321\322\323#\"c\207:\203x@\324>\203x\317\320\321\303@!\325\326\"\312\327$\"c\207\330c\207" [help-buffer-under-preparation fboundp insert-text-button symbol-name type help-function help-args "\n" vectorp key-description nil "Keyboard Macro\n" keymapp "Prefix Command\n" byte-code-function-p format "[%s]\n" buttonize "byte-code" disassemble (closure lambda) make-closure #[257 "\301\300\302\303#\207" [V0 pp-display-expression "*Help Source*" t] 5 "\n\n(fn _)"] "View definition" "??\n"] 9 (#$ . 45002)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias help--describe-translation help--describe-command nil make-obsolete "29.1"] 4)#@12 (fn A B) (defalias 'help--describe-map-compare #[514 "@@\300!\203\300!\203W\207\300!\203\"\300!\204\"\301\2079\2035\2119\2035\302\303!\303!\"\207\304\207" [fixnump t string-version-lessp symbol-name nil] 8 (#$ . 45934)])#@309 Describe the contents of keymap MAP. Assume that this keymap itself is reached by the sequence of prefix keys PREFIX (a string or vector). TRANSL, PARTIAL, SHADOW, NOMENU, MENTION-SHADOW and BUFFER are as in `describe-map-tree'. (fn MAP &optional PREFIX TRANSL PARTIAL SHADOW NOMENU MENTION-SHADOW BUFFER) (defalias 'describe-map #[2049 "\302!\211\303\304\211:\203 \204 \305@!\204\306@!\203E\304C\307@\310\311#&\210\211\242\203A\312\242!\210\210\202@:\203\363@@\304\2119\204[\313!\203\356\n\203f\314=\204\356\315@A\304\"\211\262\203\3569\203\203 \205\316N\204\356\203\301\317\f\320!\303\304$\211\204\231\303\202\274\321!\203\251\321!\203\251\303\202\274\n\203\273\211=\204\273\303\211\262\202\274\304\262\203\356 \203\331r q\210\322\320!\303#)\202\342\322\320!\303#=\203\356EB\262\266\202@\323=\203\236\211:\203\211@ \232\203\303\262\210\202 BB\210A\262\202\324\325\"\304\211\211\211\203@@\211@A@\3268\304\313!\203\211\nA\203\211\n@@@A@\f@AA@ A@@A@A@A@AA@T=\205v\232\205v=\266\206\203\211\nA\262\n@@\262\202>=\203\231 \204\231\321!\2047 \203\244\327c\210\304\262`\262 \330\232\205\271\331=?\205\271\332!@\211\262\203\326\333\320\211GS\234!\334\335\334\336\"!\320\"\"c\210\202\340\333\320!\"c\210=\204\361\337\333\320!\"\261\210`\262i\262\340\"\210 `SF\nB\262\n\204\211\2037`Se]b\210\203 \341c\210\211\2031\342\343\333\320!\"\"c\210`Td^b\210\266A\262\202(\205G\312!\207" [help--keymaps-seen describe-bindings-show-prefix-commands keymap-canonicalize t nil vectorp char-table-p help--describe-vector make-closure #[257 "\302 `i\303\301\"\210\300`SF\300\242B\240\207" [V0 V1 line-beginning-position help--describe-command] 9 "\n\n(fn DEF)"] describe-map--align-section fixnump menu-bar keymap--get-keyelt suppress-keymap help--shadow-lookup vector keymapp lookup-key keymap sort help--describe-map-compare 2 "\n" [remap] self-insert-command where-is-internal help--key-description-fontified seq-into butlast list " .. " help--describe-command "\n (this binding is currently shadowed)" format "\n (Remapped via %s)"] 32 (#$ . 46182)])#@16 (fn COLUMNS) (defalias 'describe-map--align-section #[257 "\212\300\301\302\303\"\"\211\304W\203\305\304\"\202\213\211\306W\203\"\305\306\"\202\213\211\307W\203/\305\307\"\202\213\310 \300\301\302\311\"\"\211\304]\\W\203O\305\304]T\"\266\202\202\213\211\205\207\211@\211AA@b\210\211@\3128\3138Z\\W\203x\314\307T@Z\"\210\202\200\315c\210\314\316\313\"\210A\266\202\202P\262\266\202)\207" [apply max mapcar car 16 describe-map--fill-columns 24 32 window-width #[257 "\3008\3018Z\207" [3 2] 4 "\n\n(fn ELEM)"] 3 2 insert-char "\n" 9] 10 (#$ . 48436)])#@22 (fn COLUMNS WIDTH) (defalias 'describe-map--fill-columns #[514 "\211\2058\211@\211AA@b\210\245@\245Z\301\302\"\210\301\303\304U\203)@Z\202.\305\"\"\266A\266\202\202\207" [tab-width insert-char 9 32 0 mod] 10 (#$ . 49026)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \210\300\321\302\303\322DD\323\324\325\326\327\306\330\310\311&\207" [custom-declare-variable temp-buffer-max-height funcall function #[0 "\300\207" [#[257 "\300 \203\301 \302 =\203\303\304 \305 \306#\207\307 \306Z\306\245\207" [display-graphic-p selected-window frame-root-window / x-display-pixel-height frame-char-height 2 frame-height] 5 "\n\n(fn BUFFER)"]] 1 #1=""] "Maximum height of a window displaying a temporary buffer.\nThis is effective only when Temp Buffer Resize mode is enabled.\nThe value is the maximum height (in lines) which\n`resize-temp-buffer-window' will give to a window displaying a\ntemporary buffer. It can also be a function to be called to\nchoose the height for such a buffer. It gets one argument, the\nbuffer, and should return a positive integer. At the time the\nfunction is called, the window to be resized is selected." :type (choice integer function) :group help :version "24.3" temp-buffer-max-width #[0 "\300\207" [#[257 "\300 \203\301 \302 =\203\303\304 \305 \306#\207\307 \306Z\306\245\207" [display-graphic-p selected-window frame-root-window / x-display-pixel-width frame-char-width 2 frame-width] 5 "\n\n(fn BUFFER)"]] 1 #1#] "Maximum width of a window displaying a temporary buffer.\nThis is effective only when Temp Buffer Resize mode is enabled.\nThe value is the maximum width (in columns) which\n`resize-temp-buffer-window' will give to a window displaying a\ntemporary buffer. It can also be a function to be called to\nchoose the width for such a buffer. It gets one argument, the\nbuffer, and should return a positive integer. At the time the\nfunction is called, the window to be resized is selected." (choice integer function) "24.4" temp-buffer-resize-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Temp-Buffer-Resize mode is enabled.\nSee the `temp-buffer-resize-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `temp-buffer-resize-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean] 12)#@1190 Toggle auto-resizing temporary buffer windows (Temp Buffer Resize Mode). 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. This is a global minor mode. If called interactively, toggle the `Temp-Buffer-Resize mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='temp-buffer-resize-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'temp-buffer-resize-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203E\313\314\315\316#\210\202J\317\314\315\"\210\320\321\305\301!\203V\322\202W\323\"\210\324\325!\203\200\326\301!\210\302 \203o\211\302 \232\203\200\327\330\331\305\301!\203|\332\202}\333\334$\210\210\335 \210\305\301!\207" [global-minor-modes temp-buffer-resize-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Temp-Buffer-Resize mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 51527) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar temp-buffer-resize-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [temp-buffer-resize-mode-map temp-buffer-resize-mode-hook variable-documentation put "Hook run after entering or leaving `temp-buffer-resize-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode temp-buffer-resize-mode boundp] 6)#@62 Non-nil means `resize-temp-buffer-window' should not resize. (defvar resize-temp-buffer-window-inhibit nil (#$ . 54213))#@823 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'. Do not resize either if a `window-height', `window-width' or `window-size' entry in `display-buffer-alist' prescribes some alternative resizing for WINDOW's 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. (fn &optional WINDOW) (defalias 'resize-temp-buffer-window #[256 "\305\306\"\262\307!\310!\203'\311!r\312\313\"\216\314@\315\"\210!*\262\202(\310 !\203F\311!r\312\316\"\216\314@\315\"\210 !*\262\202G \317\320\"A@\211\321=\203\322!\203p\n\323=\204p\324rq\210e)\"\203p\203\227\322\306\"\203\n\203\203\227\211\325=\205\240\f\205\240\326!=\205\240?\205\240\327\330\330\306&\207" [temp-buffer-max-height temp-buffer-max-width fit-window-to-buffer-horizontally resize-temp-buffer-window-inhibit fit-frame-to-buffer window-normalize-window t window-buffer functionp internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] window-parameter quit-restore window window-combined-p only pos-visible-in-window-p frame frame-root-window fit-window-to-buffer nil] 12 (#$ . 54340)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \210\321\322\323\324#\210\325\211\203J\211@\322N\203C\323N\204C\326\323\322N#\210A\266\202\202)\210\327\322\323\330#\210\300\323\302\303\331DD\332\306\317\310\311\312\333& \207" [custom-declare-variable help-window-select funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means select help window for viewing.\nChoices are:\n\n never (nil) Select help window only if there is no other window\n on its frame.\n\n other Select help window if and only if it appears on the\n previously selected frame, that frame contains at\n least two other windows and the help window is\n either new or showed a different buffer before.\n\n always (t) Always select the help window.\n\nIf this option is non-nil and the help window appears on another\nframe, then give that frame input focus too. Note also that if\nthe help window appears on another frame, it may get selected and\nits frame get input focus even if this option is nil.\n\nThis option has effect if and only if the help window was created\nby `with-help-window'.\n\nAlso see `help-window-keep-selected'." :type (choice (const :tag "never (nil)" nil) (const :tag "other" other) (const :tag "always (t)" t)) :group help :version "23.1" help-window-keep-selected #[0 "\300\207" [nil] 1 #1#] "If non-nil, navigation commands in the *Help* buffer will reuse the window.\nIf nil, many commands in the *Help* buffer, like \\\\[help-view-source] and \\[help-goto-info], will\npop to a different window to display the results.\n\nAlso see `help-window-select'." boolean "29.1" defvaralias help-enable-auto-load help-enable-autoload nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1" #[0 "\300\207" [t] 1 #1#] "Whether Help commands can perform autoloading.\nIf non-nil, whenever \\[describe-function] is called for an\nautoloaded function whose docstring contains any key substitution\nconstruct (see `substitute-command-keys'), the library is loaded,\nso that the documentation can show the right key bindings." "24.3"] 10)#@299 Display message telling how to quit and scroll help window. QUIT-PART is a string telling how to quit the help window WINDOW. Optional argument SCROLL non-nil means tell how to scroll WINDOW. SCROLL equal `other' means tell how to scroll the "other" window. (fn QUIT-PART WINDOW &optional SCROLL) (defalias 'help-window-display-message #[770 "\204\300\202*\301r\302!q\210d)\303#\203\304\202*\211\305=\203%\306\202*\211\205*\307\310\311\312P!\"\207" [nil pos-visible-in-window-p window-buffer t "." other ", \\[scroll-other-window] to scroll help." ", \\[scroll-up-command] to scroll help." message "%s" substitute-command-keys] 9 (#$ . 58309)])#@152 Set up help window WINDOW for `with-help-window'. WINDOW is the window used for displaying the help buffer. Return VALUE. (fn WINDOW &optional VALUE) (defalias 'help-window-setup #[513 "\303!\205 \304!\303!\205\305\306\"@\307!\203\317\310!=\203-\311\"\210\312\211\223\210 \203E\313\n!\203E\211\n=\204E\314!\210\315!\210\316 =\204u\211\317 =\203\221 \320=\204o \321=\203\221\322\312\323\"G\324V\203\221\325=\204\221\314!\203\221\326\327\267\202\210\330\202\211\331\202\211\332\202\211\312\320#\210\202\317\307!\n=\203\273\322\312\323\"G\324U\203\273\326\333\267\202\262\334\202\263\335\202\263\312\321#\210\202\317\326\336\267\202\312\337\202\313\340\202\313\312\"\210\207" [help-window-point-marker help-window-select help-window-old-frame window-live-p window-buffer window-parameter quit-restore window-frame marker-buffer set-window-point nil frame-live-p select-window select-frame-set-input-focus selected-window selected-frame t other window-list no-mini 2 same help-window-display-message #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 124 frame 128 other 132)) "Type \\\\[help-quit] to delete help window" "Type \\\\[help-quit] to quit the help frame" "Type \\\\[help-quit] to restore previous buffer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 170 other 174)) "Type \\[delete-other-windows] to delete the help window" "Type \\\\[help-quit] in help window to restore its previous buffer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 194 other 198)) "Type \\\\[help-quit] in help window to delete it" "Type \\\\[help-quit] in help window to restore previous buffer"] 9 (#$ . 58976)])#@273 Evaluate BODY, send output to BUFFER-OR-NAME and show in a help window. The return value from BODY will be returned. The help window will be selected if `help-window-select' is non-nil. The `temp-buffer-window-setup-hook' hook is called. (fn BUFFER-OR-NAME &rest BODY) (defalias 'with-help-window '(macro . #[385 "\300\301\302BBE\207" [help--window-setup lambda nil] 7 (#$ . 60834)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-help-window lisp-indent-function 1 put edebug-form-spec t] 5)#@24 (fn BUFFER CALLBACK) (defalias 'help--window-setup #[514 "\306\211\223\210r\307!q\210\310\311!\204\311 \210\312\306\313\303!\210\306\314 \210\312\211\315 \210\316 \210p\211 \317\320!)\210\321p!\210\322\323p!!+\210\207" [help-window-point-marker buffer-read-only buffer-file-name help-mode--current-data inhibit-modification-hooks inhibit-read-only nil get-buffer-create derived-mode-p help-mode t make-local-variable buffer-disable-undo erase-buffer delete-all-overlays run-hooks temp-buffer-window-setup-hook help-make-xrefs help-window-setup temp-buffer-window-show standard-output] 6 (#$ . 61362)])#@46 Display the output of a non-nil `help-form'. (defalias 'help-form-show #[0 "\306!\211;\2055 r\307\310!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!+\210\211\317!\320!)\210\266\202\207" [help-form default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks eval get-buffer-create " *Char Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show inhibit-read-only standard-output] 7 (#$ . 61982)])#@136 Return a doc string that represents STRING. The result, when formatted by `substitute-command-keys', should equal STRING. (fn STRING) (defalias 'help--docstring-quote #[257 "\300\301\302#\207" [replace-regexp-in-string "['\\`‘’]" "\\\\=\\&"] 5 (#$ . 62508)])#@495 Split a function DOCSTRING into the actual doc and the usage info. Return (USAGE . DOC), where USAGE is a string describing the argument list of DEF, such as "(apply FUNCTION &rest ARGUMENTS)". DEF is the function whose usage we're looking for in DOCSTRING. With SECTION nil, return nil if there is no usage info; conversely, SECTION t means to return (USAGE . DOC) even if there's no usage info. When SECTION is \='usage or \='doc, return only that part. (fn DOCSTRING DEF &optional SECTION) (defalias 'help-split-fundoc #[770 "\205\300\301\"\211\203\"\302>\205#\303\224\303U?\205#\303\211\224O\202#\205N\304>\205N\305\306\"\307\3109\203I\203I\311\307\312 \"!\202J\313#\262\314\267\202c\211\205d\211B\207\211B\207\207\207\315\207" [string-match "\n\n(fn\$\\( .*\$?)\\)\\'" (t nil doc) 0 (t nil usage) match-string 1 format "(%s%s" help--docstring-quote "%S" anonymous #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 84 t 92 usage 96 doc 97)) nil] 12 (#$ . 62779)])#@258 Add the usage info to DOCSTRING. If DOCSTRING already has a usage info, then just return it unchanged. The usage info is built from ARGLIST. DOCSTRING can be nil. ARGLIST can also be t or a string of the form "(FUN ARG1 ARG2 ...)". (fn DOCSTRING ARGLIST) (defalias 'help-add-fundoc-usage #[514 ";\204\300\262\301\302\"\204\211\303=\203\207\301\304\"\2031\305\225\305\224Z\306W\203-\307\2022\300\2022\310;\203N\301\311\"\203H\312\313\314\"\315Q\202R\316\317!\202R\320\321\"Q\207" ["" string-match "\n\n(fn\$\\( .*\$?)\\)\\'" t "\n?\n\\'" 0 2 "\n" "\n\n" "\\`[^ ]+\$.*\$)\\'" "(fn" match-string 1 ")" error "Unrecognized usage format" help--make-usage-docstring fn] 8 (#$ . 63829)])#@219 Return a formal argument list for the function DEF. If PRESERVE-NAMES is non-nil, return a formal arglist that uses the same names as used in the original source code, when possible. (fn DEF &optional PRESERVE-NAMES) (defalias 'help-function-arglist #[513 "9\203\300!\203\301!\262\302!\262\242\303=\203 A\262\304!\2031\305H<\2031\305H\207\242\306=\203<A@\207\242\307=\203G\3108\207\311\312!\203^\313!\203^\314!<\203^\314!\207\304!\203k\305H\250\204w\313!\204w\315!\203?\211\203\330\3161\206\317!0\202\210\210\320\211\205\221\321\320\"@\211\205\233\322\227!@A\323\211\203\315\211@\2119\203\303\324!\211\305H\325=\203\271\326>\202\276\327\330\"?\262\204\306\320\262A\266\202\202\235\210\211\205\323\266\204\206T\331!\211A@\320\305\211W\203\372\332\333\334T!P!B\262\211T\262\202\341\210\250\203-V\203-\335B\262Z\305\211W\203+\332\333\334T\\!P!B\262\211T\262\202\266\250\204<\336B\262\337B\262\211\237\207\211\242\340=\262\203S\3418\342=\204S\343\207\323\207" [fboundp indirect-function advice--cd*r macro byte-code-function-p 0 lambda closure 2 featurep native-compile subrp subr-native-lambda-list module-function-p (error) documentation nil help-split-fundoc read-from-string t symbol-name 38 (&rest &optional) string-search "." func-arity intern "arg" number-to-string &optional &rest rest autoload 4 keymap "[Arg list not available until function definition is loaded.]"] 13 (#$ . 64546)])#@25 (fn FUNCTION ARGLIST) (defalias 'help--make-usage #[514 "9\203 \202\n\300\301\302\"B\207" [anonymous mapcar #[257 "\2119\203'\300!\301\302\"\203\303!\207\301\304\"\203\"\305\306\307O\226!\207\305\226!\207\211:\203=\211@9\203=\305\300@!\226!AB\207\207" [symbol-name string-match "\\`&" bare-symbol "\\`_." intern 1 nil] 6 "\n\n(fn ARG)"]] 6 (#$ . 66046)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias help-make-usage help--make-usage nil make-obsolete "25.1"] 4)#@19 (fn FN ARGLIST) (defalias 'help--make-usage-docstring #[514 "\301\302\303\304\305\"\"!)\207" [print-escape-newlines t help--docstring-quote format "%S" help--make-usage] 8 (#$ . 66555)])#@260 An alist of confusable characters to give hints about. Each alist element is of the form (CHAR . REPLACEMENT), where CHAR is the potentially confusable character, and REPLACEMENT is the suggested string to use instead. See `help-uni-confusable-suggestions'. (defconst help-uni-confusables '((8216 . "'") (8217 . "'") (8219 . "'") (8220 . "\"") (8221 . "\"") (8223 . "\"") (12318 . "\"") (65282 . "'") (65287 . "'")) (#$ . 66753))#@65 Regexp matching any character listed in `help-uni-confusables'. (defconst help-uni-confusables-regexp (byte-code "\301\302\303\"\304Q\207" [help-uni-confusables "[" mapcar car "]"] 4) (#$ . 67189))#@65 Return a message describing confusables in STRING. (fn STRING) (defalias 'help-uni-confusable-suggestions #[257 "\302\303\304#\211\262\203-\305H \"HB\262\306\307\211$\262G\\\262\210\202\211\205?\310\311\312\313G#\314\315\316##\207" [help-uni-confusables-regexp help-uni-confusables 0 nil string-match alist-get replace-match t format-message ngettext "Found confusable character: %s, perhaps you meant: `%s'?" "Found confusable characters: %s; perhaps you meant: `%s'?" mapconcat #[257 "\300\301\"\207" [format-message "`%c'"] 4 "\n\n(fn C)"] ", "] 9 (#$ . 67393)])#@28 (fn DATA CONTEXT SIGNAL) (defalias 'help-command-error-confusable-suggestions #[771 "\300#\210:\205:\242\211\301=\2058\243\211:\2056\211\242\243\211?\2054\302\303!!\211\2052\304\305P\306\"\262\266\202\262\262\207" [command-error-default-function void-variable help-uni-confusable-suggestions symbol-name princ "\n " t] 11 (#$ . 67990)]) (byte-code "\301=\203\302\303\304\305\306#\210\307\304\305\310#\210\311\312!\207" [command-error-function command-error-default-function help-command-error-confusable-suggestions defalias help-for-help-internal help-for-help nil make-obsolete "28.1" provide help] 4)