;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:43:41 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/help.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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) (#$ . 483)) #@23 Keymap for help mode. (defvar help-mode-map (make-sparse-keymap) (#$ . 585)) (byte-code " !# # #M !#######################" [define-key global-map char-to-string help-char help-command [help] [f1] help-map help-for-help [help] [f1] "?" "" describe-copying "" describe-distribution "" describe-no-warranty "" describe-project "a" command-apropos "b" describe-bindings "c" describe-key-briefly "k" describe-key "d" describe-function "f" "F" view-emacs-FAQ "i" info "" Info-goto-emacs-command-node " " Info-goto-emacs-key-command-node "l" view-lossage "m" describe-mode "" view-emacs-news "n" "p" finder-by-keyword] 4) #@41 Find packages matching a given keyword. (autoload (quote finder-by-keyword) "finder" '(#$ . 1368) t) (byte-code " # # # # #" [define-key help-map "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit] 4) #@48 Default expressions to highlight in Help mode. (defvar help-font-lock-keywords (quote (("\\`\\([-+a-zA-Z0-9_*]+\\)\\(\\(:\\)\\|\\('\\)\\)" (1 (if (match-beginning 3) font-lock-function-name-face font-lock-variable-name-face))) ("`\\([-+a-zA-Z0-9_:*][-+a-zA-Z0-9_:*]+\\)'" 1 font-lock-reference-face t) ("\\<:[-+a-zA-Z0-9_:*]+\\>" 0 font-lock-reference-face t))) (#$ . 1636)) #@120 Major mode for viewing help text. Entry to this mode runs the normal hook `help-mode-hook'. Commands: \{help-mode-map} (defalias 'help-mode #[nil " \n!! !" [kill-all-local-variables use-local-map help-mode-map "Help" mode-name help-mode major-mode make-local-variable font-lock-defaults (help-font-lock-keywords) view-mode run-hooks help-mode-hook] 2 (#$ . 2018) nil]) (defalias 'help-quit #[nil "" [nil] 1 nil nil]) #@117 Select the Emacs learn-by-doing tutorial. Optional arg TUTORIAL specifies the tutorial file, default is "TUTORIAL". (defalias 'help-with-tutorial #[(&optional tutorial) "P! \f!\f!!~\f!!\f !\n\f\"!eb!y``| !e`\"ZZWb!w٥!۱٥Z!)eb!)" [tutorial "TUTORIAL" expand-file-name "~/" file delete-other-windows get-file-buffer switch-to-buffer create-file-buffer buffer-file-name default-directory nil buffer-auto-save-file-name insert-file-contents data-directory search-forward "\n<<" 0 window-height selected-window count-lines 6 n 12 newline 2 "[Middle of page left blank for didactic purposes. " "Text continues below]" set-buffer-modified-p] 5 (#$ . 2464) "i"]) #@63 Print the name of the function KEY invokes. KEY is a string. (defalias 'describe-key-briefly #[(key) "GSH< @ 9 !> )H!Ɖ  >B >B >sH\fA@)@)H\fA@)A@:lA@@pA@)!!qb!!\"!Ԃ!9!#-" [key type down event-modifiers read-event 0 nil position window modifiers click drag event windowp window-buffer key-binding defn message "%s is undefined" key-description "%s at that spot runs the command %s" "%s runs the command %s" prin1-to-string] 6 (#$ . 3205) "kDescribe key briefly: "]) #@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) " !? ! c ! \"c ! ] ]@:@@@\"Q@;T@\"T A) +gł{!q͂{zς{!ւ ! ! \"\">? ! !\"\">!!Q!)" [get-buffer-window standard-output buffer-name special-display-buffer-names assoc nil special-display-regexps name tail found string-match t one-window-p "Type \\[switch-to-buffer-other-window] RET to restore the other window." pop-up-windows "Type \\[delete-other-windows] to remove help window." "Type \\[switch-to-buffer] RET to remove help window." first-message function message substitute-command-keys "" " " mapcar #[(elt) ":@ !\"" [elt string-match buffer-name standard-output] 4] same-window-buffer-names #[(elt) ":@ !\"" [elt string-match buffer-name standard-output] 4] same-window-regexps "\\[scroll-up] to scroll the help." "\\[scroll-other-window] to scroll the help."] 8 (#$ . 3804)]) #@73 Display documentation of the function invoked by KEY. KEY is a string. (defalias 'describe-key #[(key) "GSH< @ 9 !> )H!Ɖ  >B >B >sH\fA@)@)H\fA@)A@:lA@@pA@)!!qb!!\"Ԑ!!!!!!!! !!)q ) -" [key type down event-modifiers read-event 0 nil position window modifiers click drag event windowp window-buffer key-binding defn message "%s is undefined" key-description "*Help*" princ " at that spot" " runs the command " prin1 ":\n" documentation doc terpri "not documented" standard-output help-mode print-help-return-message] 5 (#$ . 5033) "kDescribe key: "]) #@238 Display documentation of current major mode and minor modes. 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 " @@@A@\f  A! !\"L!ЉO! `9`JQ h! |\"}#!!!!)+A+!!!!q ) " ["*Help*" minor-mode-alist t buffer-local-variables locals first minor-modes minor-mode indicator local-binding fboundp pretty-minor-mode string-match "-mode$" symbol-name capitalize 0 princ "The minor modes are described first,\nfollowed by the major mode, which is described on the last page.\n\f\n" nil format "%s minor mode (%s):\n" "indicator%s" "no indicator" documentation "\n\f\n" mode-name " mode:\n" major-mode standard-output help-mode print-help-return-message] 9 (#$ . 5743) nil]) (byte-code "KM" [defining-kbd-macro start-kbd-macro] 2) #@64 Display info on how to obtain the latest version of GNU Emacs. (defalias 'describe-distribution #[nil " \"!" [find-file-read-only expand-file-name "DISTRIB" data-directory] 4 (#$ . 6756) nil]) #@63 Display info on how you may redistribute copies of GNU Emacs. (defalias 'describe-copying #[nil " \"!eb" [find-file-read-only expand-file-name "COPYING" data-directory] 4 (#$ . 6959) nil]) #@34 Display info on the GNU project. (defalias 'describe-project #[nil " \"!eb" [find-file-read-only expand-file-name "GNU" data-directory] 4 (#$ . 7159) nil]) #@64 Display info on all the kinds of warranty Emacs does NOT have. (defalias 'describe-no-warranty #[nil " !!)" [describe-copying nil case-fold-search search-forward "NO WARRANTY" recenter 0] 2 (#$ . 7326) 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 "  ; GSO< GS\"GW9 HIT*!)" [this-command-keys key describe-bindings 0 make-vector nil i prefix] 6 (#$ . 7551) nil]) (byte-code "" [describe-prefix-bindings prefix-help-command] 1) #@42 Display info on recent changes to Emacs. (defalias 'view-emacs-news #[nil " \"!" [find-file-read-only expand-file-name "NEWS" data-directory] 4 (#$ . 7986) nil]) #@58 Display the Emacs Frequently Asked Questions (FAQ) file. (defalias 'view-emacs-FAQ #[nil " \"!" [find-file-read-only expand-file-name "FAQ" data-directory] 4 (#$ . 8158) nil]) #@36 Display last 100 input keystrokes. (defalias 'view-lossage #[nil " #!qeb!m'#c ) " ["*Help*" princ mapconcat #[(key) "9<!\"" [key single-key-description prin1-to-string nil] 3] recent-keys " " standard-output move-to-column 50 search-forward nil t "\n" help-mode print-help-return-message] 6 (#$ . 8344) nil]) (defalias (quote help) (quote help-for-help)) #@1849 You have typed \[help-command], 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. 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. F view-emacs-FAQ. Shows emacs frequently asked questions file. i info. The info documentation reader. 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. Shows last 100 characters you typed. m describe-mode. Print documentation of current major mode, which describes the commands peculiar to it. n view-emacs-news. Shows emacs news file. 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. C-c print Emacs copying permission (General Public License). C-d print Emacs ordering information. C-n print news of recent Emacs changes. C-p print information about the GNU project. C-w print information on absence of warranty for GNU Emacs. (defalias 'help-for-help #[nil "! \n\"! \n\f ӎ\n\n# `\n!)\"W\"Hc=z=z> !! != ! c ebB\">=욃\n0d!\"!H*<6B6ˉ0\n\"7-!&!7!/ ).\n" [substitute-command-keys "a b c f C-f i k C-k l m n p s t v w C-c C-d C-n C-w, or ? for more help:" line-prompt three-step-help message "%s" documentation help-for-help help-screen make-sparse-keymap local-map nil minor-mode-map-alist selected-frame prev-frame config new-frame key char ((byte-code "!\n\n!" [new-frame iconify-frame config set-window-configuration] 2)) help-map define-key [t] undefined overriding-local-map read-key-sequence lookup-key function-key-map 0 63 help-char help-event-list 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 -134217610) switch-frame "" (byte-code "= !> >!ǚ$ " [char switch-frame handle-switch-frame (22 32) scroll-up (127 -134217610 delete backspace) key "" scroll-down] 2) ((error)) t cursor-in-echo-area format "Type one of the options listed%s: " pos-visible-in-window-p "" " or Space to scroll" unread-command-events defn set-window-configuration iconify-frame call-interactively ding] 6 (#$ . 8760) nil]) (defalias 'function-called-at-point #[nil " ď" [nil (byte-code "e`Z]d}!up!9#\f!#\f+" [1000 backward-up-list 1 nil obj read fboundp] 4) ((error)) (byte-code " Ž\f!!!$gz=$gz=$!wp!9;!;," [syntax-table stab ((set-syntax-table stab)) set-syntax-table emacs-lisp-mode-syntax-table zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 "'" nil read obj fboundp] 4) ((error))] 3]) (defalias 'describe-function-find-file #[(function) " \f@A>\f@@\fA\n +" [load-history nil functions file files function] 4]) #@56 Display the full documentation of FUNCTION (a symbol). (defalias 'describe-function #[(function) "\n!!\nK !ɂ ;) !-͂ !: P !G P 9S \" =a P =lׂ =wق = A@ !܂ 8߂#!\n!!!!! ! \"@ = A@)<\n)\"B! )\n!-\n -!!, 0q )" ["*Help*" prin1 function princ ": " def nil file-name commandp "an interactive " "a " beg vectorp "a keyboard macro" subrp "built-in function" byte-code-function-p "compiled Lisp function" format "alias for `%s'" lambda "Lisp function" macro "a Lisp macro" mocklisp "a mocklisp function" autoload "%s autoloaded Lisp %s" "an interactive" "an" 4 "macro" "function" "" describe-function-find-file " in `" "'" "." terpri append t arglist mapcar #[(arg) ">!!" [arg (&optional &rest) intern symbol-name] 3] documentation doc "not documented" print-help-return-message standard-output help-mode buffer-string] 8 (#$ . 12682) (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 (quote fboundp) t)) (list (if (equal val "") fn (intern val))))]) (defalias 'variable-at-point #[nil "" [nil (byte-code " Ž\f!!!$gz=$gz=$!wp!9;!;," [syntax-table stab ((set-syntax-table stab)) set-syntax-table emacs-lisp-mode-syntax-table zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 "'" nil read obj boundp] 4) ((error))] 3]) #@101 Display the full documentation of VARIABLE (a symbol). Returns the documentation as a string, also. (defalias 'describe-variable #[(variable) "\n!\n!!!\nJ! \n!G \"!\n!:!D!\n!! ! \n\"^!) q )" ["*Help*" prin1 variable boundp princ " is void" "'s value is " terpri local-variable-p format "Local in buffer %s; " buffer-name default-boundp "globally void" "global value is " default-value "Documentation:" documentation-property variable-documentation doc "not documented as a variable." print-help-return-message standard-output help-mode buffer-string] 5 (#$ . 14283) (let ((v (variable-at-point)) (enable-recursive-minibuffers t) val) (setq val (completing-read (if v (format "Describe variable (default %s): " v) "Describe variable: ") obarray (quote boundp) t)) (list (if (equal val "") v (intern val))))]) #@147 Print message listing key sequences that invoke specified command. Argument is a command definition, usually a symbol with a function definition. (defalias 'where-is #[(definition) " \nÉ$\f#GV #$ \"*Ç" [where-is-internal definition overriding-local-map nil keys mapconcat key-description ", " keys1 0 message "%s is on %s" "%s is not on any key"] 6 (#$ . 15174) (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 (quote fboundp) t)) (list (if (equal val "") fn (intern val))))]) #@354 Show the full path 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 (a la calling `load' instead of `load-library'). (defalias 'locate-library #[(library &optional nosuffix) "" [answer (byte-code "\n\" \"Ƈ" [mapcar #[(dir) "\n\n \"" [mapcar #[(suf) " \nP \"\f!\f!?\f\"\f\")" [expand-file-name library suf dir try file-readable-p file-directory-p message "Library is file %s" throw answer] 3] nosuffix ("") (".elc" ".el" "")] 3] load-path message "No library %s in search path" library nil] 3)] 2 (#$ . 15819) "sLocate library: "])