;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:23 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/help.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`help.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@47 Keymap for characters following the Help key. (defvar help-map (make-sparse-keymap) (#$ . 610)) #@23 Keymap for help mode. (defvar help-mode-map (make-sparse-keymap) (#$ . 712)) (byte-code "\303\304 !\305#\210\303\306\305#\210\303\307\305#\210\305\nM\210\303\n\304 !\310#\210\303\n\311\310#\210\303\n\312\310#\210\303\n\313\310#\210\303\n\314\315#\210\303\n\316\317#\210\303\n\320\321#\210\303\n\322\323#\210\303\n\324\325#\210\303\n\326\327#\210\303\n\330\331#\210\303\n\332\333#\210\303\n\334\335#\210\303\n\336\335#\210\303\n\337\340#\210\303\n\341\342#\210\303\n\343\344#\210\303\n\345\346#\210\303\n\347\350#\210\303\n\351\352#\210\303\n\353\354#\210\303\n\355\356#\210\303\n\357\360#\210\303\n\361\362#\210\303\n\363\362#\210\303\n\364\365#\207" [global-map help-char help-map define-key char-to-string help-command [help] [f1] help-for-help [help] [f1] "?" "" describe-copying "" describe-distribution "" describe-no-warranty "" describe-project "a" apropos-command "b" describe-bindings "c" describe-key-briefly "k" describe-key "d" describe-function "f" "F" view-emacs-FAQ "i" info "4i" info-other-window "" Info-goto-emacs-command-node " " Info-goto-emacs-key-command-node " " info-lookup-symbol "l" view-lossage "m" describe-mode " " view-order-manuals "" view-emacs-news "n" "p" finder-by-keyword] 4) #@41 Find packages matching a given keyword. (autoload 'finder-by-keyword "finder" '(#$ . 1939) t) (byte-code "\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302 \317\320#\210\302 \321\322#\210\302 \323\324#\210\302 \325\326#\210\302 \327\330#\210\302 \331\330#\210\302 \332\324#\207" [help-map help-mode-map define-key "P" view-emacs-problems "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit [mouse-2] help-follow-mouse "" help-go-back "" help-follow " " help-next-ref [backtab] help-previous-ref [(shift tab)] " "] 4) #@302 A stack of ways by which to return to help buffers after following xrefs. Used by `help-follow' and `help-xref-go-back'. An element looks like (POSITION FUNCTION ARGS...), where POSITION is `(POINT . BUFFER-NAME)'. To use the element, do (apply FUNCTION ARGS) then goto the point in the named buffer. (defvar help-xref-stack nil (#$ . 2570)) (put 'help-xref-stack 'permanent-local t) #@108 An item for `help-follow' in this buffer to push onto `help-xref-stack'. The format is (FUNCTION ARGS...). (defvar help-xref-stack-item nil (#$ . 2961)) (byte-code "\300\301\302\303#\210\304\305\306\"\210\304\301\306\"\207" [put help-xref-stack-item permanent-local t set-default help-xref-stack nil] 4) #@26 Hook run by `help-mode'. (custom-declare-variable 'help-mode-hook 'nil '(#$ . 3271) :type 'hook :group 'help) #@152 Major mode for viewing help text and navigating references in it. Entry to this mode runs the normal hook `help-mode-hook'. Commands: \{help-mode-map} (defalias 'help-mode #[nil "\305 \210\306!\210\307\310\311\303!\210\312\313 \210\311\304!\210\314\315\316!\207" [help-mode-map mode-name major-mode font-lock-defaults view-no-disable-on-exit kill-all-local-variables use-local-map "Help" help-mode make-local-variable nil view-mode t run-hooks help-mode-hook] 2 (#$ . 3388) nil]) (defalias 'help-mode-setup #[nil "\301 \210\302\211\207" [buffer-read-only help-mode nil] 2]) (add-hook 'temp-buffer-setup-hook 'help-mode-setup) (defalias 'help-mode-finish #[nil "\303=\203\304\305!\210\306p!\210\307 BC\211\207" [major-mode help-return-method view-return-to-alist help-mode toggle-read-only 1 help-make-xrefs selected-window] 2]) (add-hook 'temp-buffer-show-hook 'help-mode-finish) #@49 Just exit from the Help command's command loop. (defalias 'help-quit #[nil "\300\207" [nil] 1 (#$ . 4285) nil]) #@273 Select the Emacs learn-by-doing tutorial. If there is a tutorial version written in the language of the selected language environment, that version is used. If there's no tutorial in that language, `TUTORIAL' is selected. With arg, you are asked to choose which language. (defalias 'help-with-tutorial #[(&optional arg) "\203\f\306\307\310\311#\202\312 \307\"\203 \202\311\313\211\312\f\307\"\314\315\nP!\316 \210\317 !\2039\320\317 !!\202\314\320\321 !!\210 \314\315!(\313)\322\314\n*\"!\210eb\210\323\324!\210\325 \210\212\326y\210\327\330!)\203p`\326y\210`|\210\202\215\327\331!\203}\332\333!\210\202\215\327\334!\210\332\335!\210\323\336!\210\332\337!\210\325 \210\340\341 !\342e`\"Z\343Z\211+\344W\203\262`\313\210`|\210\345+!\210\202\305\345+\346\245!\210\326y\210\345+\211\346\245Z!\210)eb\210\347\313!+\207" [arg current-language-environment filename file lang buffer-file-name read-language-name tutorial "Language: " "English" get-language-info nil expand-file-name "~/" delete-other-windows get-file-buffer switch-to-buffer create-file-buffer insert-file-contents search-forward "\n<<" beginning-of-line 1 looking-at "\\[" "<>" replace-match "[Middle of page left blank for didactic purposes. Text continues below]" "<<" "[" ">>" "]" window-height selected-window count-lines 6 8 newline 2 set-buffer-modified-p default-directory buffer-auto-save-file-name data-directory n] 5 (#$ . 4404) "P"]) #@180 Value is the binding of KEY in a string. If KEY is an event on a string, and that string has a `local-map' or `keymap' property, return the binding of KEY in the string's keymap. (defalias 'string-key-binding #[(key) "\306\307 !\205* \310H\311>\203 \312H\312\n8)\202* \310H:\205* \310H\312\n8)\211:\2053\313 8\211\203i\f@\fA\211\310V\205\\ GW\205\\\314\315 #\206\\\314\316 #\211 \205g\317 \"++\207" [defn key event start string-info string nil vectorp 0 (mode-line header-line) 1 4 get-text-property local-map keymap lookup-key pos] 5 (#$ . 5873)]) #@136 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. (defalias 'describe-key-briefly #[(key &optional insert) "\212\306\307H! \203p\202\310\311\211\312 >\204'\313 >\204'\314 >\203U\307H\3158)\307\n8)\307H\3158)\315\n8:\203P\315\n8@\202S\315\n8)\316 !\203c\317 !q\210\nb\210\320!\206l\321!\322!\211\203}\250\203\207\323\324\325\"!\202\257\323\324 \203\221\326\202\234\316 !\203\233\327\202\234\3309\203\251\202\255\331!#!.\207" [key insert position window standard-output modifiers event-modifiers 0 t nil click down drag 1 windowp window-buffer string-key-binding key-binding key-description princ format "%s is undefined" "`%s' (`%s')" "%s at that spot runs the command %s" "%s runs the command %s" prin1-to-string event key-desc defn] 7 (#$ . 6459) "kDescribe key briefly: \nP"]) #@262 What to do to "exit" the help buffer. This is a list (WINDOW . t) delete the selected 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 (#$ . 7389)) #@209 Display or return message saying how to restore windows after help command. Computes a message and applies the optional argument FUNCTION to it. If FUNCTION is nil, applies `message' to it, thus printing it. (defalias 'print-help-return-message #[(&optional function) "\306!?\205{\307\310!!\203\311 \312B\313\202L\n\203%\311 \314B\313\202L\315\312!\2044\311 \314B\316\202L \203A\311 \312B\317\202L\311 \320 \321 \322 F\323 \206R\324\f\205Y\325\f!\f\205^\326\307\310!!?\205x\327\310!!\203u\325\330!\202x\325\331!Q!)\207" [standard-output help-return-method display-buffer-reuse-frames pop-up-windows first-message function get-buffer-window special-display-p buffer-name selected-window t nil quit-window one-window-p "Type \\[switch-to-buffer-other-window] 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 (#$ . 7701)]) #@73 Display documentation of the function invoked by KEY. KEY is a string. (defalias 'describe-key #[(key) "\212\306\307H!\310\211\311 >\204\312 >\204\313 >\203G\307H\314\f8)\307 8)\307H\314\f8)\314 8:\203B\314 8@\202E\314 8)\315\n!\203U\316\n!q\210 b\210\317!\206^\320!\211\203h \250\203q\321\322\323!\"\202\230\324\220\325\323!!\210\315\n!\203\203\325\326!\210\325\327!\210\330 !\210\325\331!\210\332 \310t#\210\333 \221-\207" [key position window modifiers event defn event-modifiers 0 nil click down drag 1 windowp window-buffer string-key-binding key-binding message "%s is undefined" key-description "*Help*" princ " at that spot" " runs the command " prin1 "\n which is " describe-function-1 print-help-return-message] 6 (#$ . 8824) "kDescribe key: "]) #@333 Display documentation of current major mode and minor modes. The major mode description comes first, followed by the minor modes, each on a separate page. For this to work correctly for a minor mode, the mode's indicator variable (listed in `minor-mode-alist') must also be a function whose documentation describes the minor mode. (defalias 'describe-mode #[nil "\306\220\203\n\307\310!\210\307 !\210\307\311!\210\307\312\n!!\210\313\314pDt\"\210\211\203\232 @@ @A@\315\f!\203\222\fJ\203\222\316\f!\203\222\f\317\320\321\f!\"\203V\322\321\f!\323\211\224O! \203s 9\203s\315 !\203s \211J=\204s J\211\204Z\307\324!\210\307\325\326 \203\207\325\327 \"\202\210\330#!\210\307\312\f!!\210)* A\211\204%)\331 \221\207" [minor-mode-alist mode-name major-mode minor-modes minor-mode indicator "*Help*" princ "The major mode is described first.\nFor minor modes, see following pages.\n\n" " mode:\n" documentation help-setup-xref help-xref-mode boundp fboundp string-match "-mode$" symbol-name capitalize 0 "\n\f\n" format "%s minor mode (%s):\n" "indicator%s" "no indicator" print-help-return-message pretty-minor-mode] 9 (#$ . 9620) nil]) (byte-code "\300\301KM\207" [defining-kbd-macro start-kbd-macro] 2) #@64 Display info on how to obtain the latest version of GNU Emacs. (defalias 'describe-distribution #[nil "\301\302\303\"!\207" [data-directory find-file-read-only expand-file-name "DISTRIB"] 4 (#$ . 10851) nil]) #@63 Display info on how you may redistribute copies of GNU Emacs. (defalias 'describe-copying #[nil "\301\302\303\"!\210eb\207" [data-directory find-file-read-only expand-file-name "COPYING"] 4 (#$ . 11067) nil]) #@34 Display info on the GNU project. (defalias 'describe-project #[nil "\301\302\303\"!\210eb\207" [data-directory find-file-read-only expand-file-name "THE-GNU-PROJECT"] 4 (#$ . 11283) nil]) #@64 Display info on all the kinds of warranty Emacs does NOT have. (defalias 'describe-no-warranty #[nil "\301 \210\302\303\304!\210\305\306!)\207" [case-fold-search describe-copying nil search-forward "NO WARRANTY" recenter 0] 2 (#$ . 11478) 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 (#$ . 11731) nil]) (byte-code "\301\301\207" [prefix-help-command describe-prefix-bindings] 1) #@119 Display info on recent changes to Emacs. With numeric argument, display information on correspondingly older changes. (defalias 'view-emacs-news #[(&optional arg) "\203\n\303!\202 \304\211\304=\203\305\202+\306=\203 \307\202+\310Z\311 \312\313\312$\2378\211\2039\314\315\n \"!\202<\316\317!*\207" [arg data-directory file prefix-numeric-value 0 "NEWS" 1 "ONEWS" 2 directory-files nil "^ONEWS\\.[0-9]+$" find-file-read-only expand-file-name error "No such old news"] 7 (#$ . 12209) "P"]) #@32 Display the Emacs ORDERS file. (defalias 'view-order-manuals #[nil "\301\302\303\"!\210\304 \207" [data-directory find-file-read-only expand-file-name "ORDERS" goto-address] 4 (#$ . 12717) nil]) #@58 Display the Emacs Frequently Asked Questions (FAQ) file. (defalias 'view-emacs-FAQ #[nil "\300\301!\207" [info "(efaq)"] 2 (#$ . 12919) nil]) #@69 Display info on known problems with Emacs and possible workarounds. (defalias 'view-emacs-problems #[nil "\301\302\303\"!\207" [data-directory view-file expand-file-name "PROBLEMS"] 4 (#$ . 13067) nil]) #@98 Display last 100 input keystrokes. To record all your input on a file, use `open-dribble-file'. (defalias 'view-lossage #[nil "\303\220\304\305\306\307 \310#!\210\212q\210eb\210\311\312!\210m\204&\313\310\314\315#\210\316c\210\202\314\314)\317 \221\207" [standard-output help-xref-stack help-xref-stack-item "*Help*" princ mapconcat #[(key) "\250\2049\204<\203\301!\207\302\303\"\207" [key single-key-description prin1-to-string nil] 3] recent-keys " " move-to-column 50 search-forward nil t "\n" print-help-return-message] 6 (#$ . 13277) nil]) (defalias 'help 'help-for-help) #@2557 You have typed %THIS-KEY%, the help character. Type a Help option: (Use SPC or DEL to scroll through this text. Type \\[help-quit] to exit the Help command.) a command-apropos. Give a substring, and see a list of commands (functions interactively callable) that contain that substring. See also the apropos command. b describe-bindings. Display table of all key bindings. c describe-key-briefly. Type a command key sequence; it prints the function name that sequence runs. C describe-coding-system. This describes either a specific coding system (if you type its name) or the coding systems currently in use (if you type just RET). f describe-function. Type a function name and get documentation of it. C-f Info-goto-emacs-command-node. Type a function name; it takes you to the Info node for that command. i info. The info documentation reader. I describe-input-method. Describe a specific input method (if you type its name) or the current input method (if you type just RET). C-i info-lookup-symbol. Display the definition of a specific symbol as found in the manual for the language this buffer is written in. k describe-key. Type a command key sequence; it displays the full documentation. C-k Info-goto-emacs-key-command-node. Type a command key sequence; it takes you to the Info node for the command bound to that key. l view-lossage. Show last 100 characters you typed. L describe-language-environment. This describes either a specific language environment (if you type its name) or the current language environment (if you type just RET). m describe-mode. Print documentation of current minor modes, and the current major mode, including their special commands. n view-emacs-news. Display news of recent Emacs changes. p finder-by-keyword. Find packages matching a given topic keyword. s describe-syntax. Display contents of syntax table, plus explanations. t help-with-tutorial. Select the Emacs learn-by-doing tutorial. v describe-variable. Type name of a variable; it displays the variable's documentation and value. w where-is. Type command name; it prints which keystrokes invoke that command. F Display the frequently asked questions file. h Display the HELLO file which illustrates various scripts. C-c Display Emacs copying permission (General Public License). C-d Display Emacs ordering information. C-n Display news of recent Emacs changes. C-p Display information about the GNU project. C-w Display information on absence of warranty for GNU Emacs. (defalias 'help-for-help-doc #[nil "\300\207" ["You have typed %THIS-KEY%, the help character. Type a Help option:\n(Use SPC or DEL to scroll through this text. Type \\\\[help-quit] to exit the Help command.)\n\na command-apropos. Give a substring, and see a list of commands\n (functions interactively callable) that contain\n that substring. See also the apropos command.\nb describe-bindings. Display table of all key bindings.\nc describe-key-briefly. Type a command key sequence;\n it prints the function name that sequence runs.\nC describe-coding-system. This describes either a specific coding system\n (if you type its name) or the coding systems currently in use\n (if you type just RET).\nf describe-function. Type a function name and get documentation of it.\nC-f Info-goto-emacs-command-node. Type a function name;\n it takes you to the Info node for that command.\ni info. The info documentation reader.\nI describe-input-method. Describe a specific input method (if you type\n its name) or the current input method (if you type just RET).\nC-i info-lookup-symbol. Display the definition of a specific symbol\n as found in the manual for the language this buffer is written in.\nk describe-key. Type a command key sequence;\n it displays the full documentation.\nC-k Info-goto-emacs-key-command-node. Type a command key sequence;\n it takes you to the Info node for the command bound to that key.\nl view-lossage. Show last 100 characters you typed.\nL describe-language-environment. This describes either a\n specific language environment (if you type its name)\n or the current language environment (if you type just RET).\nm describe-mode. Print documentation of current minor modes,\n and the current major mode, including their special commands.\nn view-emacs-news. Display news of recent Emacs changes.\np finder-by-keyword. Find packages matching a given topic keyword.\ns describe-syntax. Display contents of syntax table, plus explanations.\nt help-with-tutorial. Select the Emacs learn-by-doing tutorial.\nv describe-variable. Type name of a variable;\n it displays the variable's documentation and value.\nw where-is. Type command name; it prints which keystrokes\n invoke that command.\n\nF Display the frequently asked questions file.\nh Display the HELLO file which illustrates various scripts.\nC-c Display Emacs copying permission (General Public License).\nC-d Display Emacs ordering information.\nC-n Display news of recent Emacs changes.\nC-p Display information about the GNU project.\nC-w Display information on absence of warranty for GNU Emacs."] 1 (#$ . 13880)]) #@15 Help command. (defalias 'help-for-help #[nil "\306\307! \203 \310\311\"\210\312\313!\314 \315\316 \315:\315;\315<\315=\317\320\n\"\2039\321\322\323 \324\325O!\326\211\n$\327\216 >\241\210\330 \331\332#\210\330 \333\334?\335\"#\210 \203w @\336\315!)<\334A<\"\203n\334A<\"<<\324H=\202z\337==\337=\204\221=B=\204\221=C>\203\340 :\341\342!\210\343\344!\203\261\345\346 ! =\204\261\345\346 !;\315:\315D\347 \210\nc\210\350 \210eb\210=\351CB\352B\">\204\335=\242\353=\204\335<\354\232\203\315\355\356\217\210\326 @E\336\357\360\361d!\203\365\362\202\366\363\"!\211<\324H=*=\364=\203\300\365\334 <\"\315<#\210\202\300\310\362!\210=<\203-=FBF\315\211:\202\\\334 <\"\211G\203Y:\203E\366:!\210\315:;\203R\367;!\210\315;\370G!\202[\371 ).\n\207" [line-prompt three-step-help help-screen local-map minor-mode-map-alist prev-frame substitute-command-keys "a b c C f F C-f i I k C-k l L m n p s t v w C-c C-d C-n C-p C-w; ? for help:" message "%s" documentation help-for-help-doc make-sparse-keymap nil selected-frame string-match "%THIS-KEY%" replace-match key-description this-command-keys 0 -1 t ((byte-code "\203\302!\210 \203\303 !\210\302\207" [new-frame config iconify-frame set-window-configuration] 2)) define-key [t] undefined [vertical-scroll-bar] lookup-key [vertical-scroll-bar] read-key-sequence 63 current-window-configuration switch-to-buffer-other-window "*Help*" fboundp make-frame window-frame selected-window erase-buffer help-mode append (63 22 32 127 delete backspace vertical-scroll-bar -134217610) switch-frame "\366" (byte-code "\242\302=\203 \303!\210\304>\203\305 \210\306>\204 \307\232\203#\310 \210\302\207" [char key switch-frame handle-switch-frame (22 32) scroll-up (127 -134217610 delete backspace) "\366" scroll-down] 2) ((error)) format "Type one of the options listed%s: " pos-visible-in-window-p "" ", or SPACE or DEL to scroll" vertical-scroll-bar command-execute set-window-configuration iconify-frame call-interactively ding config new-frame key char help-map global-map overriding-local-map function-key-map help-char help-event-list buffer-read-only cursor-in-echo-area unread-command-events defn] 7 (#$ . 19112) 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 "\303 p\304\216\305\306\n!!\210\307\310\311\217\206\307\312\313\217+\207" [#1=#:buffer #2=#:table emacs-lisp-mode-syntax-table syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table copy-syntax-table nil (byte-code "\212\301\302\303!!\203gz\304=\204gz\305=\204\306\307!\210\310\311w\210\312p!\2119\205/\313!\205/*\207" [obj zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 "'" nil read fboundp] 4) ((error)) (byte-code "\212\214e`\301Z]d}\210\302\303!\210\303u\210\304\305!\203\306\307!\210\310p!\2119\205+\311!\205++\207" [obj 1000 backward-up-list 1 looking-at "[ ]" error "Probably not a Lisp function call" read fboundp] 4) ((error))] 3 (#$ . 21365)]) #@202 Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'. That file records the part of `load-history' for preloaded files, which is cleared out before dumping to make Emacs smaller. (defvar symbol-file-load-history-loaded nil (#$ . 22267)) #@198 Load the file `fns-VERSION.el' in `exec-directory' if not already done. That file records the part of `load-history' for preloaded files, which is cleared out before dumping to make Emacs smaller. (defalias 'load-symbol-file-load-history #[nil "?\205\304\305 \306=\203\307\202\310\311\n\" \"\312\211\313$\210\313\211\207" [symbol-file-load-history-loaded system-type emacs-version exec-directory load expand-file-name ms-dos "fns.el" format "fns-%s.el" nil t] 5 (#$ . 22533)]) #@294 Return the input source from which FUNCTION was loaded. The value is normally a string that was passed to `load': either an absolute file name, or a library name (with no directory name and no `.el' or `.elc' at the end). It can also be nil, if the definition is not associated with any file. (defalias 'symbol-file #[(function) "\305 \210\306\211\211\203\"\f @A>\203 @@\306 A\211\204 \n+\207" [load-history functions file files function load-symbol-file-load-history nil] 4 (#$ . 23025)]) #@56 Display the full documentation of FUNCTION (a symbol). (defalias 'describe-function #[(function) "\203 \302\220\303!\210\304\305!\210\306\307t#\210\310 \210\212 q\210\311 )\221\207\312\313!\207" [function standard-output "*Help*" prin1 princ " is " describe-function-1 nil print-help-return-message buffer-string message "You didn't specify a function"] 5 (#$ . 23532) (let ((fn (function-called-at-point)) (enable-recursive-minibuffers t) val) (setq val (completing-read (if fn (format "Describe function (default %s): " fn) "Describe function: ") obarray 'fboundp t nil nil (symbol-name fn))) (list (if (equal val "") fn (intern val))))]) (defalias 'describe-function-1 #[(function parens interactive-p) "9\203\nK\202 \306\306\306\307 !\203\310\202\311 ;\204)\312 !\203-\313\202\374\314 !\203H\315 !A\316=\203B \317P\202\374 \320P\202\374\321 !\203T \322P\202\374 9\203m K9\203f K\211\202Z\323\324 \"\202\374 \242\325=\203z \326P\202\374 \242\327=\203\205\330\202\374 \242\331=\203\220\332\202\374 \242\333=\203\303 A@\323\334\307 !\203\247\335\202\250\336\337 8\340=\203\264\341\202\277\337 8\203\276\342\202\277\326#\202\374 \242\340=\203\373\306 \243@A@\203\355\343@\242!\203\344\344A\306@@\243\211@\204\326A\203\366\345\202\367\346*\202\374\347B\203 \347\232\204\344\350\351!\210\350 !\210r\352q\210\212\353 C\354\216\355\356\306\344#\203,\357\360\361 \362$\210,\n\2045\363!\n\203Z\350\364!\210\350\n!\210\350\365!\210r\352q\210\212\355\366\306\344#\210\357\360\367\nD\370$\210*\f\203b\350\371!\210\350\372!\210\373 \210\374 !\211\242\327=\203w A\321 !\203\205\375 \306\"@\202\246 \242\325=\203\222 A@\202\246 \242\333=\203\245\337 8\340=\204\245\376\202\246\344\211D<\203\312\3509\203\267\202\270\377\201L\201MD\"B!\210\373 \210\202\330D;\203\330\350D!\210\373 \210)\201N!\211E\203|\373 \210\350E!\210\314 !\203prFq\210\201O \210\201P !G\201Q\201RG\"\210\201S\360G\"H\201T\323\201U\201VH!\"!\203M\201W Ieb\210\201X \210\201YpI\"\210\201Zc\210ISd|\210)\202keb\210\201X \210\201[H!J\236A\206e\201\\\201Z\261\210*db\210)\201]\361DK\"\202\201\350\201^!.\207" [function def file-name string need-close beg nil commandp "an interactive " "a " vectorp "a keyboard macro" subrp subr-arity unevalled "special form" "built-in function" byte-code-function-p "compiled Lisp function" format "an alias for `%s'" lambda "Lisp function" macro "a Lisp macro" mocklisp "a mocklisp function" autoload "%s autoloaded %s" "an interactive" "an" 4 keymap "keymap" "Lisp macro" char-table-p t "a full keymap" "a sparse keymap" "" princ "(" "*Help*" match-data ((set-match-data save-match-data-internal)) re-search-backward "alias for `\\([^`']+\\)'" help-xref-button 1 describe-function "mouse-2, RET: describe this function" symbol-file " in `" "'" "`\\([^`']+\\)'" #[(fun file) "\303\304!\210\305\306 #\307\n@!\210\nAb)\207" [fun file location require find-func find-function-search-for-symbol nil pop-to-buffer] 4] "mouse-2, RET: find function's definition" ")" "." terpri indirect-function append "[Arg list not available until function definition is loaded.]" "anonymous" elts is-full parens save-match-data-internal arglist doc standard-output rep name start help-manyarg-func-alist interactive-p mapcar #[(arg) "\301>\203\207\302\303!\226!\207" [arg (&optional &rest) intern symbol-name] 3] documentation beginning-of-line prin1-to-string string-match " \\([^ ]+\\)>$" match-string looking-at "(%s[ )]" regexp-quote point-marker forward-paragraph insert-buffer-substring 10 intern "[Missing arglist. Please make a bug report.]" help-setup-xref "not documented"] 6]) #@91 Return the bound variable symbol found around point. Return 0 if there is no such symbol. (defalias 'variable-at-point #[nil "\300\301\302\217\207" [nil (byte-code "\304 p\305\216\306\307\n!!\210\212\310\311\312!!\203(gz\313=\204(gz\314=\204(\315\316!\210\317\320w\210\321p!\2119\203?\322 !\203? \206@\323-\207" [#1=#:buffer #2=#:table emacs-lisp-mode-syntax-table obj syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table copy-syntax-table zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 "'" nil read boundp 0] 4) ((error 0))] 3 (#$ . 27247)]) #@60 Add xrefs for symbols in `pp's output between FROM and TO. (defalias 'help-xref-on-pp #[(from to) "\306 \307\216\212\214\310 !\210\n }\210eb\210m?\205}\311\312!\203$\313\314!\210\202\311\315!\2033\316\317\320\321#\210\202\311\322!\203w\323\324\314!!\325\f!\203I\326\202d\f\327>\204U\330\f!\203Y\320\202d\f\205d\331\f!\205d\332\211\203o\333\314 \f#\210*\314\225b\210\202\314u\210\202,\207" [ost emacs-lisp-mode-syntax-table from to sym fn syntax-table ((set-syntax-table ost)) set-syntax-table looking-at "\"" forward-sexp 1 "#<" search-forward ">" nil move "\\(\\(\\sw\\|\\s_\\)+\\)" intern-soft match-string fboundp describe-function (t nil) keywordp boundp describe-variable help-xref-button] 5 (#$ . 27862)]) #@226 Display the full documentation of VARIABLE (a symbol). Returns the documentation as a string, also. If VARIABLE has a buffer-local value in BUFFER (default to the current buffer), it is displayed along with the global value. (defalias 'describe-variable #[(variable &optional buffer) "\306!\204p 9\204\307\310!\207\311rq\210\312\220\313 !\210\314 !\204,\315\316!\210\317\202W Jr\fq\210\315\320!\210\321 \210`\322 !\210\323 `\"\210` \324\\W\203V\212 b\210\325\326!\210)+\321 \210\327 !\203\244\315\330\331\332 \"!\210\333 !\204u\315\334!\210\202\241\335 !r\fq\210\315\336!\210\321 \210`\322 !\210\323 `\"\210` \324\\W\203\240\212 b\210\325\326!\210)+\321 \210\321 \210r\fq\210\337ed\"\340V\203\331\341@!\210eb\210\n\203\306\342y\210\202\331\343\342!\210`\311\210`|\210\344c\210\212\345c\210))\315\346!\210\321 \210\347 \350\"A\315A\206\356\351!\210)\352\353 pEt\"\210 \354N\204  \355N\204  \356N\2033\357B\321 \210\321 \210\315\360B\361Q!\210r\312q\210\212\362\363B\364Q\311\317#\210\365\342\366 \367$\210+\370 !\211C\203\\\315\371!\210\315C!\210\315\372!\210r\312q\210\212\362\373\311\317#\210\365\342\374 \375$\210*)\376 \210\212\fq\210\377 )\221*\207" [buffer variable valvoid val standard-output from bufferp message "You did not specify a variable" nil "*Help*" prin1 boundp princ " is void" t "'s value is " terpri pp help-xref-on-pp 20 delete-char -1 local-variable-p format "Local in buffer %s; " buffer-name default-boundp "globally void" default-value "global value is " count-lines 10 set-syntax-table 1 forward-sexp " value is shown below.\n\n" "\n\nValue:" "Documentation:" documentation-property variable-documentation "not documented as a variable." help-setup-xref describe-variable custom-type custom-loads standard-value "customize" "You can " " this variable." re-search-backward "\\(" "\\)" help-xref-button #[(v) "\203\n\211A@\210\302 !\207" [help-xref-stack v customize-variable] 2] "mouse-2, RET: customize variable" symbol-file "\n\nDefined in `" "'." "`\\([^`']+\\)'" #[(arg) "\302!\303 @!\210 Ab)\207" [arg location find-variable-noselect pop-to-buffer] 2] "mouse-2, RET: find variable's definition" print-help-return-message buffer-string emacs-lisp-mode-syntax-table doc customize-label file-name] 7 (#$ . 28604) (let ((v (variable-at-point)) (enable-recursive-minibuffers t) val) (setq val (completing-read (if (symbolp v) (format "Describe variable (default %s): " v) "Describe variable: ") obarray 'boundp t nil nil (if (symbolp v) (symbol-name v)))) (list (if (equal val "") v (intern val))))]) #@344 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). (defalias 'describe-bindings #[(&optional prefix buffer) "\204prq\210\302\303 \"\210)r\304q\210\305\306 Et\")\207" [buffer prefix describe-bindings-internal nil "*Help*" help-setup-xref describe-bindings] 4 (#$ . 31180) "P"]) #@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) "\306 \307\211$\310\311\n\312#\f\203p\202\313\f\2037 G\314V\203-\315\316\317 #!\210\202P\315\316\320\"!\210\202P G\314V\203I\315\316\321 #!\210\202P\315\316\322\"!\210+\307\207" [definition overriding-local-map keys keys1 insert standard-output where-is-internal nil mapconcat key-description ", " t 0 princ format "%s (%s)" "M-x %s RET" "%s is on %s" "%s is not on any key"] 5 (#$ . 31762) (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))]) #@598 Show the precise file name of Emacs library LIBRARY. This command searches the directories in `load-path' like `M-x load-library' to find the file that `M-x load-library RET LIBRARY RET' would load. Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el' to the specified name LIBRARY. If the optional third arg PATH is specified, that list of directories is used instead of `load-path'. When called from a program, the file name is normaly returned as a string. When run interactively, the argument INTERACTIVE-CALL is t, and the file name is displayed in the echo area. (defalias 'locate-library #[(library &optional nosuffix path interactive-call) "\303\304\305\215\210 \203\203\306\307\"\210\202\306\310\n\"\210)\207" [result interactive-call library nil answer (byte-code "\302\303\206 \"\207" [path load-path mapc #[(dir) "\304\305\203\n\306\202!\307\310\311\312 \"\203\313\314\315\316 \"\"\202 \n*\"\207" [nosuffix compressed basic file-name-handler-alist mapc #[(suf) "\305 P\n\"\306 !\205\307 !?\205 \310\311 \")\207" [library suf dir try result expand-file-name file-readable-p file-directory-p throw answer] 3] ("") (".elc" ".el" "") (".Z" ".gz" "") rassq jka-compr-handler apply nconc mapcar #[(compelt) "\301\302\"\207" [basic mapcar #[(baselt) " P\207" [baselt compelt] 2]] 3]] 7]] 3) message "Library is file %s" "No library %s in search path"] 3 (#$ . 32719) (list (read-string "Locate library: ") nil nil t)]) #@145 *If non-nil, `help-make-xrefs' highlight cross-references. Under a window system it highlights them with face defined by `help-highlight-face'. (custom-declare-variable 'help-highlight-p 't '(#$ . -34208) :group 'help :version "20.3" :type 'boolean) #@91 Face used by `help-make-xrefs' to highlight cross-references. Must be previously-defined. (custom-declare-variable 'help-highlight-face ''underline '(#$ . 34464) :group 'help :version "20.3" :type 'face) #@62 Label to use by `help-make-xrefs' for the go-back reference. (defvar help-back-label (purecopy "[back]") (#$ . 34674)) #@180 Regexp matching doc string references to symbols. The words preceding the quoted symbol can be used in doc strings to distinguish references to variables, functions and symbols. (defconst help-xref-symbol-regexp (purecopy "\\(\\<\\(\\(variable\\|option\\)\\|\\(function\\|command\\)\\|\\(face\\)\\|\\(symbol\\)\\|\\(source \\(?:code \\)?\\(?:of\\|for\\)\\)\\)\\s-+\\)?`\\(\\sw\\(\\sw\\|\\s_\\)+\\)'") (#$ . 34800)) #@236 Regexp matching doc string references to MULE-related keywords. It is usually nil, and is temporarily bound to an appropriate regexp when help commands related to multilingual environment (e.g., `describe-coding-system') are invoked. (defconst help-xref-mule-regexp nil (#$ . 35223)) #@56 Regexp matching doc string references to an Info node. (defconst help-xref-info-regexp (purecopy "\\<[Ii]nfo[ \n]+node[ \n]+`\\([^']+\\)'") (#$ . 35514)) #@334 Invoked from commands using the "*Help*" buffer to install some xref info. ITEM is a (FUNCTION . ARGS) pair appropriate for recreating the help buffer after following a reference. INTERACTIVE-P is non-nil if the calling command was invoked interactively. In this case the stack of items for help buffer "back" buttons is cleared. (defalias 'help-setup-xref #[(item interactive-p) "\203\304\n\211\207" [interactive-p help-xref-stack item help-xref-stack-item nil] 2 (#$ . 35677)]) #@48 Non-nil when following a help cross-reference. (defvar help-xref-following nil (#$ . 36171)) #@839 Parse and hyperlink documentation cross-references in the given BUFFER. Find cross-reference information in a buffer and, if `help-highlight-p' is non-nil, highlight it with face defined by `help-highlight-face'; activate such cross references for selection with `help-follow'. Cross-references have the canonical form `...' and the type of reference may be disambiguated by the preceding word(s) used in `help-xref-symbol-regexp'. If the variable `help-xref-mule-regexp' is non-nil, find also cross-reference information related to multilingual environment (e.g., coding-systems). This variable is also used to disambiguate the type of reference as the same way as `help-xref-symbol-regexp'. A special reference `back' is made to return back through a stack of help buffers. Variable `help-back-label' specifies the text for that. (defalias 'help-make-xrefs #[(&optional buffer) "\212\206pq\210eb\210\306 \210\307 \310 \311\211\312 !\210\313\216\212\314@\315\311#\203N\316\317!A\320 B\321\216\322\323A\"\204A\324APA*\325\317\326A\327$\210)\202)C\203\212\314C\315\311#\203\316\330!A\331A!D\316\332!\203\206D\203\333D!\203\325\330\334D\335$\210\202\316\336!\203\240\337AE\"\203\325\330\340A\341$\210\202\316\342!\204\254\316\343!\203\317D\203D\211F9\205\300\344F\345N!)\203\325\330\346D\347$\210\202\337AE\"\203\343\325\330\340A\341$\210\202D\203\372\333D!\203\372\325\330\334D\335$\210\202D\203D\211F9\205\344F\345N!)\203\325\330\346D\347$\210*\202U)\212\314G\315\311#\203\346\316\350!A\331A!\211D\203\342\316\332!\203P\351D!\203\342\325\350\352D\353$\210\202\342\316\336!\203h\354D!\203\342\325\350\355D\356$\210\202\342\316\342!\203\200\357D!\203\342\325\350\360D\361$\210\202\342\316\343!\204\342\316\330!\203\227\325\350\362D\363$\210\202\342\351D!\203\260\354D!\203\260\325\350\364D\365$\210\202\342\351D!\203\302\325\350\352D\353$\210\202\342\354D!\203\324\325\350\355D\356$\210\202\342\357D!\203\342\325\350\360D#\210*\202 )\212\314\366\315\311#\203\n\331\316\317!!D\354D!\203\325\317\355D\367$\210)\202\350)\212eb\210\314\370\315\311#\203a\317\225\317\224ZH\371\372!\204]l\203+\315y\210\315\210\373\315x\210iHY\203V\371\374!\203V\331\316\375!!D\354D!\203U\325\375\355D\356$\210)\376\315y!\204)\202*db\210o\204vn\203v\377\201N!\210\202eI\203\242J\203\242\212\201OK\261\210)\371\201P\201QK!\201RQ!\210\325\317\201Sp#\210+\201T\201U!\201V\201W L\201XLM\"\210\201YL\201Z\201[#\210L)BCL\210\201\\ !*\207" [buffer old-modified inhibit-read-only case-fold-search stab emacs-lisp-mode-syntax-table forward-paragraph buffer-modified-p syntax-table t set-syntax-table ((set-syntax-table stab)) re-search-forward nil match-string 1 match-data ((set-match-data save-match-data-internal)) string-match "^([^)]+)" "(emacs)" help-xref-button info "mouse-2, RET: read this Info node" 7 intern-soft 3 coding-system-p describe-coding-system "mouse-2, RET: describe this coding system" 4 assoc describe-input-method "mouse-2, RET: describe this input method" 5 6 vectorp charset describe-character-set "mouse-2, RET: describe this character set" 8 boundp describe-variable "mouse-2, RET: describe this variable" fboundp describe-function "mouse-2, RET: describe this function" facep describe-face "mouse-2, RET: describe this face" #[(arg) "\302!\303 @!\210 Ab)\207" [arg location find-function-noselect pop-to-buffer] 2] "mouse-2, RET: find function's definition" help-xref-interned "mouse-2, RET: describe this symbol" "\\