;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri Aug 6 16:22:56 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/help.el ;;; emacs version 19.17.7. ;;; 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 "This file 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 "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 autoload "finder" "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable] 4) (defalias 'help-with-tutorial #[nil "ﾀﾁ!ﾃ 案\n!ﾅﾄ\n!!４ﾅﾆ\n!!\nﾀﾈ! ﾊ ﾌﾀﾍ\"!eb委ﾐ!尉y`ﾊ`|惟ﾓﾔ !ﾕe`\"Zﾖ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 newline window-height selected-window count-lines 6 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) "ﾀ !?'\n ﾃﾄﾅﾆ! ﾈ!ﾉ!ﾊ!ﾄﾋ!P!" [get-buffer-window standard-output function message substitute-command-keys one-window-p t pop-up-windows "Type \\[delete-other-windows] to remove help window." "Type \\[switch-to-buffer] RET to remove help window." "Type \\[switch-to-buffer-other-window] RET to restore the other window." " \\[scroll-other-window] to scroll the help."] 4 "\ 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 #[(&optional minor) "ﾀ醒\n!庵ﾃ!庵ﾄ !!ﾇ  ソ\ @@\n @A@ \n梔 コ Aコﾍ\n!コﾁﾎﾏ\n #!庵ﾄ\n!!+ A *ﾐ 燥" ["*Help*" princ mode-name " Mode:\n" documentation major-mode minor-mode-alist buffer-local-variables locals minor-modes minor-mode indicator local-binding fboundp format "\n\n\n%s minor mode (indicator%s):\n" print-help-return-message] 7 "\ Display documentation of current major mode. If optional MINOR is non-nil (or prefix argument is given if interactive), display documentation of active minor modes as well. 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-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ﾃ\"ﾃﾆﾆ GW# HI Tﾇ !+" [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 key-description recent-keys standard-output move-to-column 50 search-forward " " nil t "\n" print-help-return-message] 5 "\ Display last 100 input keystrokes." nil]) (defalias 'help-for-help #[nil "ﾀﾁ!ﾃ\n!案 ﾅﾈﾉ= \n=ネﾋ ﾌﾍ!夷 委ﾐ!ceb\nﾑB>ネﾒ>エﾓ ﾔ>ゲﾕ 暗ﾖ\nﾗd!タﾘ_ﾙ#移ﾄ )3ｨベ翌z暸Ηﾞ!ヱﾟ!そ!闇!そ<ｹ#B#ﾅそ -" [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. Type \\[help-for-help] again for more help: " line-prompt message read-event nil config char ((byte-code "ﾁ!庵" [config set-window-configuration] 2)) 63 help-char current-window-configuration switch-to-buffer-other-window "*Help*" erase-buffer documentation help-for-help (63 22 32 127 -8388490) (22 32) scroll-up (127 -8388490) scroll-down "%s%s: " pos-visible-in-window-p "" " or Space to scroll" t cursor-in-echo-area help-map defn keymapp error "sorry, this command cannot be run from the help screen. Start over." set-window-configuration call-interactively unread-command-events ding] 6 "\ You have typed \\[help-for-help], the help character. Type a Help option: 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-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#ﾆ !# +" [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 '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 \"ﾅ !ﾆ !?ﾇﾈ \"伊ﾊ \")" [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: "])