;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 23 22:41:06 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/help.el ;;; emacs version 19.28.92.3. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/help.el' was compiled for Emacs 19")) #@47 Keymap for characters following the Help key. (defvar help-map (make-sparse-keymap) (#$ . 476)) #@23 Keymap for help mode. (defvar help-mode-map (make-sparse-keymap) (#$ . 578)) (byte-code "ﾀ ﾂ !ﾄ#案 M安 ﾂ !ﾆ#安 ﾇﾆ#安 ﾈﾉ#安 ﾊﾋ#安 ﾌﾍ#安 ﾎﾏ#安 ﾐﾑ#安 ﾒﾓ#安 ﾔﾕ#安 ﾖﾗ#安 ﾘﾙ#安 ﾚﾙ#安 ﾛﾜ#安 ﾝﾞ#安 ﾟ#安 矮#安 聿#安 褂#安 鉅#安 鳧#安 #" [define-key global-map char-to-string help-char help-command help-map help-for-help "?" "" 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" '(#$ . 1289) t) (byte-code "ﾀ ﾂﾃ#安 ﾄﾅ#安 ﾆﾇ#安 ﾈﾉ#安 ﾊﾋ#" [define-key help-map "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit] 4) #@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 run-hooks help-mode-hook] 2 (#$ . 1558) nil]) (defalias 'help-quit #[nil "ﾀ" [nil] 1 nil nil]) #@43 Select the Emacs learn-by-doing tutorial. (defalias 'help-with-tutorial #[nil "ﾀﾁ!ﾃ 案\n!ﾅﾄ\n!!Ｗﾅﾆ\n!!\nﾀﾈ! ﾊ ﾌﾀﾍ\"!eb委ﾐ!尉y`ﾊ`|惟ﾓ !ﾔe`\"ZﾕZﾗWセﾘ!Ｐﾘﾙ･!移ﾛｱ畏菓･Z!)eb緯ﾊ!)" [expand-file-name "~/TUTORIAL" 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 "TUTORIAL" 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 (#$ . 1918) nil]) #@63 Print the name of the function KEY invokes. KEY is a string. (defalias 'describe-key-briefly #[(key) "烏SH< @ 9ﾂﾃ !>ﾄ )ﾅ!.ｨ7ﾇﾈﾉ!\"Lﾇﾊﾉ!9エKﾋ!#)" [key type down event-modifiers read-event key-binding defn message "%s is undefined" key-description "%s runs the command %s" prin1-to-string] 6 (#$ . 2562) "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ﾅﾂ ! ゾ Ь@:ァﾊ@@\"Р@;サﾊ@\"サﾋ A) +トﾅ{ﾌﾋ!бﾍ{ホﾏ{ﾐﾓワﾔ!ｐﾕﾖｚﾕﾂ ! 揉ｩﾋﾗﾘ\">?ﾉﾂ !揆ﾀﾋﾗﾚ\">θﾔﾜ!にﾔﾝ!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) "ﾀ ﾂ !\"" [string-match elt buffer-name standard-output] 4] same-window-buffer-names #[(elt) "ﾀ ﾂ !\"" [string-match elt buffer-name standard-output] 4] same-window-regexps "\\[scroll-up] to scroll the help." "\\[scroll-other-window] to scroll the help."] 8 (#$ . 2938)]) #@73 Display documentation of the function invoked by KEY. KEY is a string. (defalias 'describe-key #[(key) "烏SH< @ 9ﾂﾃ !>ﾄ )ﾅ!.ｨ7ﾇﾈﾉ!\"Ｄﾊ斥!偉ﾍ!夷!ゴﾌﾎ!!８ﾌﾏ!q尉 )ﾒ )" [key type down event-modifiers read-event key-binding defn message "%s is undefined" key-description "*Help*" prin1 princ ":\n" documentation "not documented" standard-output help-mode print-help-return-message] 5 (#$ . 4130) "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 "ﾀ ﾂ ビ\f@@\f@A@ 梔ニAニﾈ !ニ  ﾊﾋﾌ !\"アﾍﾌ !ﾎ鉛O! ザ9ザJЁﾏﾐﾑ #!委ﾒ !!委ﾓ!)+\fA *ﾏ!委ﾕ!委ﾒ!!q畏 )ﾙ 燥" ["*Help*" minor-mode-alist buffer-local-variables locals minor-modes minor-mode indicator local-binding fboundp pretty-minor-mode string-match "-mode$" symbol-name capitalize 0 princ format "%s minor mode (indicator%s):\n" documentation "\n\n" mode-name " mode:\n" major-mode standard-output help-mode print-help-return-message] 7 (#$ . 4592) 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 (#$ . 5425) 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 (#$ . 5628) nil]) #@34 Display info on the GNU project. (defalias 'describe-project #[nil "ﾀﾁﾂ \"!eb" [find-file-read-only expand-file-name "GNU" data-directory] 4 (#$ . 5828) 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 (#$ . 5995) 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 (#$ . 6220) 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 (#$ . 6655) 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 (#$ . 6827) 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 (#$ . 7013) 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 "ﾀﾁ! ソfﾄ\n!闇ﾆ!ﾈ  ﾊ ﾌ  ﾊﾊﾊﾊﾒ ｡慰 ﾕﾖ# ダ ﾘﾊ!)ﾙ\"シﾙ\"ﾛHＣﾜﾜ=б=ﾟﾞ ﾟ!違!ヲ聿 ! =聿 !ﾊ c域 eb蹌>┷｢=┷髫ﾟﾊ処 -ﾘd!τぴ\"!ﾛH*ぁ<3B3ﾊ#ﾙ \"4 ソf!位!位4!\" ).\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 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 current-window-configuration switch-to-buffer-other-window "*Help*" fboundp make-frame window-frame selected-window erase-buffer help-mode (63 22 32 127 delete -134217610) switch-frame "" (byte-code "｢ﾁ= ﾂ!ﾃ>ﾄ ﾅ>!ﾇ噬$ﾈ 庵" [char switch-frame handle-switch-frame (22 32) scroll-up (127 -134217610 delete) 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 (#$ . 7429) nil]) (defalias 'function-called-at-point #[nil "ﾀﾁﾂ醇 ﾀﾃﾄ順" [nil (byte-code "褐e`ﾀZ]d}庵ﾂ!按u暗ﾅp!9#ﾆ\f!#\f+" [1000 backward-up-list 1 nil obj read fboundp] 4) ((error)) (byte-code "澗ﾁ!按ﾃw案p!9ﾆ ! *" [forward-sexp -1 "'" nil read obj fboundp] 3) ((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ﾆ !ﾇﾈ ﾃ ;&ﾊ !*ﾋｘﾌ !7 ﾍPｘﾎ !ゥ ﾏPｘ 9ケﾐﾑ \"ｘ ｢ﾒ=タ ﾓPｘ ｢ﾔ=ナﾕｘ ｢ﾖ=フﾗｘ ｢ﾘ=ﾐﾙﾆ !ョﾚｈﾛﾜ 8ヲﾝｓﾞ#ｘﾟ!謂\n!!Σﾃ!暗!!暗!)ﾃ!亥 夷 !θ 軆"@ぶ ｢ﾒ=φ A@ぶ濶)<ﾃ\n)\"B!亥 )\n! 暗\n!!ﾃ!* /q芋 鰯 )燥" ["*Help*" prin1 function princ ": " def 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 file " in `" "'" "." terpri append nil t arglist mapcar #[(arg) "ﾁ>ﾂﾃ!!" [arg (&optional &rest) intern symbol-name] 3] documentation "not documented" print-help-return-message standard-output help-mode buffer-string] 8 (#$ . 11120) (byte-code "ﾀ ﾁﾂﾆ ﾇﾈ \"ﾉ\nﾋﾁ$ﾌ噬$ 'ﾍ !+C" [function-called-at-point t nil val enable-recursive-minibuffers fn completing-read format "Describe function (default %s): " "Describe function: " obarray fboundp "" intern] 6)]) (defalias 'variable-at-point #[nil "ﾀﾁﾂ順" [nil (byte-code "澗ﾁ!按ﾃw案p!9ﾆ ! *" [forward-sexp -1 "'" nil read obj boundp] 3) ((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!エﾄﾉﾊﾋ \"!偉\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 substitute-command-keys "not documented as a variable." print-help-return-message standard-output help-mode buffer-string] 6 (#$ . 12517) (byte-code "ﾀ ﾁﾂﾆ ﾇﾈ \"ﾉ\nﾋﾁ$ﾌ噬$ 'ﾍ !+C" [variable-at-point t nil val enable-recursive-minibuffers v completing-read format "Describe variable (default %s): " "Describe variable: " obarray boundp "" intern] 6)]) #@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ﾇ#GﾉVﾊﾋ #$ﾊﾌ \"*ﾃ" [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 (#$ . 13428) (byte-code "ﾀ ﾁﾂﾆ ﾇﾈ \"ﾉ\nﾋﾁ$ﾌ噬$ 'ﾍ !+C" [function-called-at-point t nil val enable-recursive-minibuffers fn completing-read format "Where is command (default %s): " "Where is command: " obarray fboundp "" intern] 6)]) #@237 Like apropos but lists only symbols that are names of commands (interactively callable functions). Argument REGEXP is a regular expression that is matched against command symbol names. Returns list of symbols and documentation found. (defalias 'command-apropos #[(string) "ﾀﾁ!ﾃﾄ!)ﾆﾈﾉﾈ$ ﾅ !)" [get-buffer-create "*Help*" standard-output print-help-return-message identity message apropos string t commandp] 5 (#$ . 14057) "sCommand apropos (regexp): "]) #@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 (#$ . 14530) "sLocate library: "])