;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Sep 5 20:00:22 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/help.el ;;; emacs version 19.26.1. ;;; 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")) (defvar help-map (make-sparse-keymap) "\ Keymap for characters following the Help key.") (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" "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) (autoload (quote finder-by-keyword) "finder" "\ Find packages matching a given keyword." t) (byte-code "ﾀ ﾂﾃ#安 ﾄﾅ#安 ﾆﾇ#安 ﾈﾉ#安 ﾊﾋ#偉ﾋﾍ\"" [define-key help-map "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit defalias (lambda nil (interactive))] 4) (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 "\ Select the Emacs learn-by-doing tutorial." nil]) (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 "\ Print the name of the function KEY invokes. KEY is a string." "kDescribe key briefly: "]) (defalias 'print-help-return-message #[(&optional function) "ﾀ !?}ﾂ ! 揆@ﾄ ﾂ !::ﾉ@\"1ﾊA+ゥﾄ９ﾋﾊ!Нﾌ９ ジﾎ９ﾏ`ﾒネﾓ!ＮﾔプﾕＸﾔﾓﾖ!Q!)" [get-buffer-window standard-output buffer-name special-display-buffer-names 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 "" " " "\\[scroll-other-window] to scroll the help."] 6 "\ 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 'describe-key #[(key) "烏SH< @ 9ﾂﾃ !>ﾄ )ﾅ!.ｨ7ﾇﾈﾉ!\"Zﾊ斥!偉ﾍ!夷!ゴﾌﾎ!!８ﾌﾏ!威 )" [key type down event-modifiers read-event key-binding defn message "%s is undefined" key-description "*Help*" prin1 princ ":\n" documentation "not documented" print-help-return-message] 5 "\ Display documentation of the function invoked by KEY. KEY is a string." "kDescribe key: "]) (defalias 'describe-mode #[nil "ﾀ ﾂ ビ\f@@\f@A@ 梔ニAニﾈ !ニ  ﾊﾋﾌ !\"アﾍﾌ !ﾎ鉛O! ザ9ザJЁﾏﾐﾑ #!委ﾒ !!委ﾓ!)+\fA *ﾏ!委ﾕ!委ﾒ!!為 燥" ["*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 print-help-return-message] 7 "\ 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." nil]) (byte-code "ﾀﾁKM" [defining-kbd-macro start-kbd-macro] 2) (defalias 'describe-distribution #[nil "ﾀﾁﾂ \"!" [find-file-read-only expand-file-name "DISTRIB" data-directory] 4 "\ Display info on how to obtain the latest version of GNU Emacs." nil]) (defalias 'describe-copying #[nil "ﾀﾁﾂ \"!eb" [find-file-read-only expand-file-name "COPYING" data-directory] 4 "\ Display info on how you may redistribute copies of GNU Emacs." nil]) (defalias 'describe-project #[nil "ﾀﾁﾂ \"!eb" [find-file-read-only expand-file-name "GNU" data-directory] 4 "\ Display info on the GNU project." nil]) (defalias 'describe-no-warranty #[nil "ﾀ 庵ﾃﾄ!闇ﾆ!)" [describe-copying nil case-fold-search search-forward "NO WARRANTY" recenter 0] 2 "\ Display info on all the kinds of warranty Emacs does NOT have." nil]) (defalias 'describe-prefix-bindings #[nil "ﾀ ﾂ GSﾃ\"ﾃﾆﾆ\fGW#\f HI Tﾇ\f!+" [this-command-keys key make-vector nil prefix i 0 describe-bindings] 5 "\ 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." nil]) (byte-code "ﾀﾀ" [describe-prefix-bindings prefix-help-command] 1) (defalias 'view-emacs-news #[nil "ﾀﾁﾂ \"!" [find-file-read-only expand-file-name "NEWS" data-directory] 4 "\ Display info on recent changes to Emacs." nil]) (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" print-help-return-message] 6 "\ Display last 100 input keystrokes." nil]) (defalias (quote help) (quote help-for-help)) (defalias 'help-for-help #[nil "ﾀﾁ! ソfﾄ\n!闇ﾆ!ﾈ  ﾊ ﾌ  ﾊﾊﾊﾊﾒ ｡慰 ﾕﾖ# ギ ﾘﾊ!)ﾙH１ﾚﾚ=Ю=μﾜ ﾝﾞ!衣!ム矮 ! =о矮 !ﾊ ceb脾>┘｢=┘證μﾊ鉅処 *ﾘd!ｼた\"!ﾙH*ｊ<ﾞ0B0ﾊ !)2!位!位2! ).\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 0 63 help-char current-window-configuration switch-to-buffer-other-window "*Help*" fboundp make-frame window-frame selected-window erase-buffer (63 22 32 127 delete -8388490) switch-frame "" (byte-code "｢ﾁ= ﾂ!ﾃ>ﾄ ﾅ>!ﾇ噬$ﾈ 庵" [char switch-frame handle-switch-frame (22 32) scroll-up (127 -8388490 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 key-binding defn set-window-configuration iconify-frame call-interactively ding] 6 "\ You have typed \\[help-command], the help character. Type a Help option: (Use \\\\[scroll-up] or \\[scroll-down] 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. 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." nil]) (defalias (quote 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 #[(function) "ﾀ醒\n!暗ﾄ!\nKﾆ !ﾇﾈ ﾃ ;&ﾊ !*ﾋｘﾌ !7 ﾍPｘﾎ !ゥ ﾏPｘ 9ケﾐﾑ \"ｘ ｢ﾒ=タ ﾓPｘ ｢ﾔ=ナﾕｘ ｢ﾖ=フﾗｘ ｢ﾘ=ﾐﾙﾆ !ョﾚｈﾛﾜ 8ヲﾝｓﾞ#ｘﾟ!謂 夷 !Ν 秉"@せ ｢ﾒ=ｸ 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" "" terpri append nil t arglist mapcar #[(arg) "ﾁ>ﾂﾃ!!" [arg (&optional &rest) intern symbol-name] 3] documentation "not documented" print-help-return-message standard-output buffer-string] 8 "\ Display the full documentation of FUNCTION (a symbol)." (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 (quote variable-at-point) #[nil "ﾀﾁﾂ順" [nil (byte-code "澗ﾁ!按ﾃw案p!9ﾆ ! *" [forward-sexp -1 "'" nil read obj boundp] 3) ((error))] 3]) (defalias 'describe-variable #[(variable) "ﾀ醒\n!暗ﾄ!闇\n!ﾃﾆ!ﾁ\nJ!杏 杏 暗ﾈ!杏 伊\nﾊ\" =ﾃﾌ !!Aﾃﾍ!)ﾎ q威 )燥" ["*Help*" prin1 variable princ "'s value is " boundp "void." terpri "Documentation:" documentation-property variable-documentation doc substitute-command-keys "not documented as a variable." print-help-return-message standard-output buffer-string] 5 "\ Display the full documentation of VARIABLE (a symbol). Returns the documentation as a string, also." (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)]) (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 "\ Print message listing key sequences that invoke specified command. Argument is a command definition, usually a symbol with a function definition." (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)]) (defalias 'command-apropos #[(string) "ﾀﾁ!ﾃﾄ!)ﾆﾈﾉ# ﾅ !)" [get-buffer-create "*Help*" standard-output print-help-return-message identity message apropos string t commandp] 4 "\ 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." "sCommand apropos (regexp): "]) (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 "\ 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')." "sLocate library: "])