;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Sat Aug 8 17:41:37 1998 ;;; from file /gd/gnu/emacs/lisp/startup.el ;;; in Emacs version 20.2.98.3 ;;; with bytecomp version 2.48 ;;; 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 "`startup.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302\207" [top-level (normal-top-level) nil] 1) #@46 Non-nil once command line has been processed (defvar command-line-processed nil (#$ . 667)) (custom-declare-group 'initialization nil "Emacs start-up procedure" :group 'internal) #@156 *Non-nil inhibits the initial startup message. This is for use in your personal init file, once you are familiar with the contents of the startup message. (custom-declare-variable 'inhibit-startup-message 'nil '(#$ . -853) :type 'boolean :group 'initialization) #@518 *Non-nil inhibits the initial startup echo area message. Setting this variable takes effect only if you do it with the customization buffer or if your `.emacs' file contains a line of this form: (setq inhibit-startup-echo-area-message "YOUR-USER-NAME") If your `.emacs' file is byte-compiled, use the following form instead: (eval '(setq inhibit-startup-echo-area-message "YOUR-USER-NAME")) Thus, someone else using a copy of your `.emacs' file will see the startup message unless he personally acts to inhibit it. (custom-declare-variable 'inhibit-startup-echo-area-message 'nil '(#$ . -1122) :type '(choice (const :tag "Don't inhibit") (string :tag "Enter your user name, to inhibit")) :group 'initialization) #@50 *Non-nil inhibits loading the `default' library. (custom-declare-variable 'inhibit-default-init 'nil '(#$ . -1842) :type 'boolean :group 'initialization) #@213 Alist of command-line switches. Elements look like (SWITCH-STRING . HANDLER-FUNCTION). HANDLER-FUNCTION receives switch name as sole arg; remaining command-line args are in the variable `command-line-args-left'. (defvar command-switch-alist nil (#$ . 2003)) #@46 List of command-line args not yet processed. (defvar command-line-args-left nil (#$ . 2267)) #@398 List of functions to process unrecognized command-line arguments. Each function should access the dynamically bound variables `argi' (the current argument) and `command-line-args-left' (the remaining arguments). The function should return non-nil only if it recognizes and processes `argi'. If it does so, it may consume successive arguments by altering `command-line-args-left' to remove them. (defvar command-line-functions nil (#$ . 2367)) #@122 Default directory to use for command line arguments. This is normally copied from `default-directory' when Emacs starts. (defvar command-line-default-directory nil (#$ . 2819)) #@446 Alist of X Windows options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defvar command-line-x-option-alist '(("-bw" 1 x-handle-numeric-switch border-width) ("-d" 1 x-handle-display) ("-display" 1 x-handle-display) ("-name" 1 x-handle-name-switch) ("-title" 1 x-handle-switch title) ("-T" 1 x-handle-switch title) ("-r" 0 x-handle-switch reverse t) ("-rv" 0 x-handle-switch reverse t) ("-reverse" 0 x-handle-switch reverse t) ("-reverse-video" 0 x-handle-switch reverse t) ("-fn" 1 x-handle-switch font) ("-font" 1 x-handle-switch font) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-geometry" 1 x-handle-geometry) ("-fg" 1 x-handle-switch foreground-color) ("-foreground" 1 x-handle-switch foreground-color) ("-bg" 1 x-handle-switch background-color) ("-background" 1 x-handle-switch background-color) ("-ms" 1 x-handle-switch mouse-color) ("-itype" 0 x-handle-switch icon-type t) ("-i" 0 x-handle-switch icon-type t) ("-iconic" 0 x-handle-iconic) ("-xrm" 1 x-handle-xrm-switch) ("-cr" 1 x-handle-switch cursor-color) ("-vb" 0 x-handle-switch vertical-scroll-bars t) ("-hb" 0 x-handle-switch horizontal-scroll-bars t) ("-bd" 1 x-handle-switch) ("--border-width" 1 x-handle-numeric-switch border-width) ("--display" 1 x-handle-display) ("--name" 1 x-handle-name-switch) ("--title" 1 x-handle-switch title) ("--reverse-video" 0 x-handle-switch reverse t) ("--font" 1 x-handle-switch font) ("--internal-border" 1 x-handle-numeric-switch internal-border-width) ("--geometry" 1 x-handle-geometry) ("--foreground-color" 1 x-handle-switch foreground-color) ("--background-color" 1 x-handle-switch background-color) ("--mouse-color" 1 x-handle-switch mouse-color) ("--icon-type" 0 x-handle-switch icon-type t) ("--iconic" 0 x-handle-iconic) ("--xrm" 1 x-handle-xrm-switch) ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--border-color" 1 x-handle-switch border-width)) (#$ . 3003)) #@78 Normal hook run after handling urgent options but before loading init files. (defvar before-init-hook nil (#$ . 5369)) #@265 Normal hook run after loading the init files, `~/.emacs' and `default.el'. There is no `condition-case' around the running of these functions; therefore, if you set `debug-on-error' non-nil in `.emacs', an error in one of these functions will invoke the debugger. (defvar after-init-hook nil (#$ . 5495)) #@73 Normal hook run after loading init files and handling the command line. (defvar emacs-startup-hook nil (#$ . 5806)) #@243 Normal hook run after loading terminal-specific Lisp code. It also follows `emacs-startup-hook'. This hook exists for users to set, so as to override the definitions made by the terminal-specific file. Emacs never sets this variable itself. (defvar term-setup-hook nil (#$ . 5929)) #@192 The brand of keyboard you are using. This variable is used to define the proper function and keypad keys for use under X. It is used in a fashion analogous to the environment variable TERM. (defvar keyboard-type nil (#$ . 6219)) #@153 Normal hook run to initialize window system display. Emacs runs this hook after processing the command line arguments and loading the user's init file. (defvar window-setup-hook nil (#$ . 6456)) #@68 Major mode command symbol to use for the initial *scratch* buffer. (custom-declare-variable 'initial-major-mode ''lisp-interaction-mode '(#$ . 6657) :type 'function :group 'initialization) #@622 Identity of user whose `.emacs' file is or was read. The value is nil if `-q' or `--no-init-file' was specified, meaning do not load any init file. Otherwise, the value may be the null string, meaning use the init file for the user that originally logged in, or it may be a string containing a user's name meaning use that person's init file. In either of the latter cases, `(concat "~" init-file-user "/")' evaluates to the name of the directory where the `.emacs' file was looked for. Setting `init-file-user' does not prevent Emacs from loading `site-start.el'. The only way to do that is to use `--no-site-file'. (custom-declare-variable 'init-file-user 'nil '(#$ . 6853) :type '(choice (const :tag "none" nil) string) :group 'initialization) #@745 File containing site-wide run-time initializations. This file is loaded at run-time before `~/.emacs'. It contains inits that need to be in place for the entire site, but which, due to their higher incidence of change, don't make sense to load into emacs' dumped image. Thus, the run-time load order is: 1. file described in this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. Don't use the `site-start.el' file for things some users may not like. Put them in `default.el' instead, so that users can more easily override them. Users can prevent loading `default.el' with the `-q' option or by setting `inhibit-default-init' in their own init files, but inhibiting `site-start.el' requires `--no-site-file', which is less convenient. (custom-declare-variable 'site-run-file '"site-start" '(#$ . 7611) :type 'string :group 'initialization) #@264 Regexp that specifies when to enable an ISO 8859-N character set. We do that if this regexp matches the locale name specified by the LC_ALL, LC_CTYPE and LANG environment variables. The paren group in the regexp should match the specific character set number, N. (defconst iso-8859-n-locale-regexp "8859[-_]?\\([1-49]\\)" (#$ . 8467)) #@54 *Name of this machine, for purposes of naming users. (custom-declare-variable 'mail-host-address 'nil '(#$ . -8808) :type '(choice (const nil) string) :group 'mail) #@154 *Full mailing address of this user. This is initialized based on `mail-host-address', after your init file is read, in case it sets `mail-host-address'. (custom-declare-variable 'user-mail-address 'nil '(#$ . -8980) :type 'string :group 'mail) #@340 Prefix for generating `auto-save-list-file-name'. This is used after reading your `.emacs' file to initialize `auto-save-list-file-name', by appending Emacs's pid and the system name, if you have not already set `auto-save-list-file-name' yourself. Set this to nil if you want to prevent `auto-save-list-file-name' from being initialized. (custom-declare-variable 'auto-save-list-file-prefix '(if (eq system-type 'ms-dos) "~/_s" "~/.saves-") '(#$ . 9231) :type '(choice (const :tag "Don't record a session's auto save list" nil) string) :group 'auto-save) #@58 *File name for the system's file of locale-name aliases. (defvar locale-translation-file-name "/usr/share/locale/locale.alias" (#$ . -9793)) (byte-code "\303\300!\204\304\300 B\303\302!\204\304\302 B\304\207" [init-file-debug current-load-list init-file-had-error boundp nil] 2) #@265 Add all subdirectories of current directory to `load-path'. More precisely, this uses only the subdirectories whose names start with letters or digits; it excludes any subdirectory named `RCS' or `CVS', and any subdirectory that contains a file named `.nosearch'. (defalias 'normal-top-level-add-subdirs-to-load-path #[nil "\305C \203R @\nB A\306\n@!\n@\211\203N @\307\235\204G\310\311 @\"\203G\312 @!\203G\313 @!\314\313\315\f\"!\204F \fC\244) A\211\204*\202\316\n\237A!*\207" [default-directory pending dirs contents expanded nil directory-files ("." ".." "RCS" "CVS") string-match "\\`[a-zA-Z0-9]" file-directory-p expand-file-name file-exists-p ".nosearch" normal-top-level-add-to-load-path] 5 (#$ . 10087)]) (defalias 'normal-top-level-add-to-load-path #[(dirs) "\306 !\211\203'\n @\232\204'\f\307>\203 \n\227 @\227\232\204' A\211\204\n \310\311\312 \" A\"\241*\207" [load-path default-directory thisdir tail system-type dirs directory-file-name (ms-dos windows-nt) append mapcar expand-file-name] 6]) (defalias 'normal-top-level #[nil "\203\306\307!\207\310 \212\311\312!q\210\n*\313 \314\232\203\310\f\315\211\203G@ B@\316\317\320@\"\310\211\211$\210)A\211\204'*\321=\204w\322\323!\211;\203v\324\325!\326P!\324\325 !\326P!\232\204v\327\330P\")\331 !\315 \332\216\333 *\207" [command-line-processed default-directory dir backup-by-copying-when-mismatch load-path new message "Back to top level." t get-buffer "*Messages*" user-uid 0 nil load expand-file-name "subdirs.el" vax-vms getenv "PWD" file-attributes file-name-as-directory "." delete "PWD=" abbreviate-file-name ((byte-code "\306! \204'\n\203' \307=\203\310\311\n!!\312P\202&\311\313\314\n\315 \316 $!\317\320!\210\f\2033\317\304!\210\321\322!\203<\322 \210\321\323!\203E\323 \210 \203M\317\305!\210\204\\\324>\203\\\325 \210\306\207" [default-directory auto-save-list-file-name auto-save-list-file-prefix system-type term-setup-hook window-setup-hook abbreviate-file-name ms-dos make-temp-name expand-file-name "~" format "%s%d-%s~" emacs-pid system-name run-hooks emacs-startup-hook fboundp frame-notice-user-settings font-menu-add-default (x w32) precompute-menubar-bindings menubar-bindings-done window-system] 6)) command-line tail system-type pwd process-environment menubar-bindings-done] 6]) (defalias 'precompute-menubar-bindings #[nil "\304\305\"\211\203= @:\2036 @@9\2036 @A\242;\2036\306 @AA!\2036\307\310 @AA\"\210\n\2036\311 \210 A\211\204 )\312\211\207" [global-map submap purify-flag define-key-rebound-commands lookup-key [menu-bar] keymapp x-popup-menu nil garbage-collect t] 4]) (defalias 'command-line #[nil "\306\n\307>\203\310\311!\206N\310\312!\206N\310\313!\206N\314\202N\n\315>\203;\310\312!\206N\310\313!\206N\310\311!\206N\316\202N\310\312!\206N\310\313!\206N\310\311!\206N\317!\310\320!\211\321=\204\212\f\322\230\204f\f\323\230\203k\324\202\212\f\325\230\204w\f\326\230\203|\321\202\212\f\327\230\204\210\f\330\230\203\212\331)\310\332!\211@\333\232?\205\231@)\206\276\310\334!\211@\333\232?\205\253@)\206\276\310\335!\211@\333\232?\205\275@)\211A\203\374\336BA\"\204\374\337C!\203\374\340\341\342!!D\343\216rDq\210\344C!\210\345\346A\347Q\321\324#\203\373`\321\210`{A+A\203N\336BA\"\203N\321\350\351A\"EFE\352\232\203\353E\354EPF\336\355F\"\203M\356F!\210G\204JH\357=\204JI\203J\360\361F\227!!\210\362 \210*)\363\364\365\217\210\321JAKLG?\205d\366 \211M\203uM\367 \230\203u\333ML\204\275K\203\275\370K@\321NOP\336\371O\"\203\252\336\372O\"\203\252O\373\225\321ONO\373\211\224OOO\374\232\204\361\375OP\"\211Q\324=\203\311O\351\321OO\202\360Q;\203\355\376QP\"\211R\204\341\363\377O\"\210R@\351\321OO)\202\360\321N)O\201d\230\204O\201e\230\203\321MKAK\202\254O\201f\230\204 O\201g\230\203=N\204.KA\211K@NNM\321NKAK\202\254O\201h\230\203Q\321SKAK\202\254O\201i\230\203e\324TKAK\202\254O\201j\230\203~\201kUBUKAK\202\254O\201l\230\204\231O\201m\230\204\231O\201n\230\203\251\201oVBVKAK\202\254\324LN\203\271\363\201pO\"\210+\202uJ\203\310JK\241\210*\201q\201r!\203\330\201r \210H\201s>\203\357\201t\201u \236A\373V\203\365\201v\324!\210\201w\201x!\210S\203 \201yS\324\211#\210\201y\201z\201{\201|\201}$\210\321W\321\211T\324=\203.\201~\2020TXYZX\201[\\T\203K[ \210\202T\363\201\200\201\201\217\210\\X=\204c\324Y\\Z*Y\203mZ\\+]\204\204\366 \201\202^\206\201\201\203 Q]\201w\201\204!\210\201\205\201\206!\203\252\212\201\206q\210_\201\207=\203\251` \210)a\203\366G\204\366H\204\366\310\201\210!\321b\211c\203\365\201yacP\324\211#\204\365\336\201\211c\"\211b\203\356c\373bO\211c\202\304\321\211c\204\307*\201\212JA!\210G\205\201\213\324!\207" [default-directory command-line-default-directory system-type temporary-file-directory vc version-control file-name-as-directory (ms-dos windows-nt) getenv "TEMP" "TMPDIR" "TMP" "c:/temp" (vax-vms axp-vms) "SYS$SCRATCH:" "/tmp" "VERSION_CONTROL" nil "t" "numbered" t "nil" "existing" "never" "simple" never "LC_ALL" "" "LC_CTYPE" "LANG" string-match file-exists-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^" "[ ]+" match-string 1 "9" "5" "latin-" "latin-[12345]" set-language-environment x set-terminal-coding-system intern standard-display-european-internal error (byte-code "\203 \204\303\n\304!\305Q\306\307#\210\306\207" [window-system noninteractive term-file-prefix load symbol-name "-win" nil t] 4) ((error (byte-code "\302@\300=\203\303\304A\"\2026\305@\306N>\203)\307\310A@\311\312AA\313##\2026\307\310@\314N\311\315A\313##\316\"\210\317\320 \207" [error window-system princ apply concat file-error error-conditions format "%s: %s" mapconcat #[(obj) "\301\302\"\207" [obj prin1-to-string t] 3] ", " error-message #[(obj) "\301\302\"\207" [obj prin1-to-string t] 3] external-debugging-output nil kill-emacs] 8))) user-login-name user-real-login-name (("--no-init-file") ("--no-site-file") ("--user") ("--debug-init") ("--iconic") ("--icon-type")) "\\`--" "=" 0 "--" try-completion assoc "Option `%s' is ambiguous" string ctype iso-8859-n-locale-regexp locale-translation-file-name #1# which charset noninteractive window-system default-enable-multibyte-characters command-line-args args done init-file-user argval argi longopts completion elt site-run-file init-file-debug initial-frame-alist default-frame-alist inhibit-startup-message debug-on-error-initial debug-on-error-should-be-set debug-on-error-from-init-file inner debug-on-error user-mail-address mail-host-address major-mode initial-major-mode term-file-prefix hyphend term "-q" "-no-init-file" "-u" "-user" "-no-site-file" "-debug-init" "-iconic" (visibility . icon) "-icon-type" "-i" "-itype" (icon-type . t) "Option `%s' doesn't allow an argument" fboundp frame-initialize (x w32) menu-bar-lines frame-parameters menu-bar-mode run-hooks before-init-hook load "leim-list.el" noerror nomessage nosuffix startup #[nil "\205F \305=\203\306\307Q\2023 \310=\203%\311\312!\203!\312\2023\313\2023 \314=\203/\315\2023\306\316Q\317\n\320\211#\210 \206F\321\317\322\320\211#)\207" [init-file-user system-type user-init-file inhibit-default-init inhibit-startup-message ms-dos "~" "/_emacs" windows-nt file-exists-p "~/.emacs" "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" load t nil "default"] 4] (byte-code " \210\302\302\207" [inner init-file-had-error nil] 1) ((error (byte-code "\302\303@\304NA\203\305\202\306\307\310A\311#$\210\312\302\207" [error init-file-had-error message "Error in init file: %s%s%s" error-message ": " "" mapconcat prin1-to-string ", " t] 8))) "@" system-name after-init-hook get-buffer "*scratch*" fundamental-mode "TERM" "[-_][^-_]+$" command-line-1 kill-emacs] 6]) #@105 Initial message displayed in *scratch* buffer at startup. If this is nil, no message will be displayed. (custom-declare-variable 'initial-scratch-message '"This buffer is for notes you don't want to save, and for Lisp evaluation.\nIf you want to create a file, visit that file with C-x C-f,\nthen enter the text in that file's own buffer.\n\n" '(#$ . 18179) :type 'string) (defalias 'command-line-1 #[(command-line-args-left) "\204N\306 \204N \204N\n\203< \203<\302\307N\203,\n\f\310\230\203'\311 \202(\f\232\204N\312\313!\314\315\316\217\317 !\210)\204N\320\321\322!\323=\203I\324\202L\325\326!!\210@\204\315A?\205\314?\205\314\327 \330\230\205\242\203n\331\332!\210\314\333\334!\203z\334 \210\203\203\331\335!\210\314B\336>\203\220\337 \210\340C\341 \342U\205\314\340D\343\216\306 ?\205\313db\210\344c\210E\345=\203\265\346c\210\347c\210\350\351 \236\203\314\352c\210\353\354 \355\261\210\202\273\321\356!\357=\203\321\360!\361=\203\321\362!\363=\203\321\364!\365=\203\321\366!\367=\203\321\370!\371=\203\372c\210\202\325\373\374\375\357\314\340#\211F\203\376F!\202\377)\"!c\210\321\201^!\201_=\203=\321\201`!\201_=\203=\201ac\210\202D\325\201b!c\210B\203N\201cc\210\201dc\210G\203\201\201e\201fG!\314\201g\201h\201iG!!P\340$\203\201\201j\201k\201l\261\210\353\354 \355\261\210\321\201m!\201n=\203\264\321\201o!\201p=\203\264\321\201q!\201r=\203\264\201sc\210\202\273\325\201t!c\210eb\210\201u\314!\210\201v\201w!*\207 \203\331\201v\201x!\210H\342\314\211\211\201y\201z\201{\201|I\"\"\342JKLMNOPQ\211M\203'\201}\201~M@@\"\203M@@CKBKMA\211M\204@\203}@@\211RS\314T\314U\314VWX@A@L\203Q\310R\202\315\201}\201R\"\203nR\342\225\314OTR\342\211\225SORR\201\200\232\203}\314U\202\207\201\201RK\"UU\340=\203\232R\201\202\314OR\202\315U;\203\306\201\203UK\"\211Y\204\270\201\204\201\205R\"\210Y@\201\202\314OR)\202\315\314TSR\201\203RI\"\211M\203\374T\203\362T@B@MAR!\210)\202xMAR!\210\202xR\201\206\230\204R\201\207\230\204R\201\210\230\203PT\203'\201\211T!M\2025\201\211@@!M@A@\201\212MK!\203I\201\213M!\210\202xM \210\202xR\201\214\230\203}T\203eTM\202o@@M@A@\201\215\201\216M!!\210\202xR\201\217\230\204\217R\201\220\230\203\306T\203\233TM\202\245@@M@A@\201\221M!M\201\222M!VBV\201yV\237X\"W\202xR\201\223\230\204\330R\201\224\230\203T\203\344TM\202\356@@M@A@\201\221M!Z\201\225\201\222Z!!\203 \201\222Z!Z\201\226Z\314\340#\210)\202xR\201\227\230\203ST\203-TM\2027@@M@A@M;\204E\201\204\201\230!\210\201\231\201\221M!!\210\202xR\201\232\230\203e\201\233\340!\210\202x\201}\201\234R\"\203|\201\235R!J\202x\201\203RQ\"\211M\203\226MA@@\233@\202xR\201\236\230\204\250R\201\237\230\203\355OTO\201\222\201\221S!P\"ZO\201\202U\203\317\201\240Z!N\202\326\201\241Z!\210)\201\242J!\204\347\201\243J!\210\342J\202xR\201\200\232\203\374\340L\202x[\314\\\211]\203]@ \211\\\204]A\211]\204\\\204w\201}\201\244R\"\2035\201\204\201\245R\"\210OTO\201\222\201\221S!P\"ZO\201\202U\203\\\201\240Z!N\202c\201\241Z!\210)\201\242J!\204t\201\243J!\210\342J*.\202'O\201xV\205\240?\205\240\201\246N!\206\240\201\247\201\202!\210\201\250 .\207" [noninteractive init-file-had-error inhibit-startup-echo-area-message user-init-file init-file-user buffer input-pending-p saved-value "" user-login-name get-buffer-create " *temp*" nil (byte-code "\212q\210\303 !\210\304\305\306\307\310\n\311\230\203\312 \202\n!!\313R\314\315#)\207" [buffer user-init-file init-file-user insert-file-contents re-search-forward "([ \n]*setq[ \n]+" "inhibit-startup-echo-area-message[ \n]+" regexp-quote prin1-to-string "" user-login-name "[ \n]*)" nil t] 7) ((error)) kill-buffer message key-binding "" describe-project "For information about the GNU Project and its goals, type C-h C-p." substitute-command-keys "For information about the GNU Project and its goals, type \\[describe-project]." buffer-name "*scratch*" run-hooks term-setup-hook fboundp frame-notice-user-settings window-setup-hook (x w32) precompute-menubar-bindings t buffer-size 0 ((byte-code "r\301\302!q\210\303 \210\203c\210\304\305!\210)\305\207" [initial-scratch-message get-buffer "*scratch*" erase-buffer set-buffer-modified-p nil] 2)) "Welcome to GNU Emacs" gnu/linux ", one component of a Linux-based GNU system." "\n" display frame-parameters "The menu bar and scroll bar are sufficient for basic editing with the mouse.\n\nUseful Files menu items:\nExit Emacs (or type Control-x followed by Control-c)\nRecover Session recover files you were editing before a crash\n\nImportant Help menu items:\nEmacs Tutorial Learn-by-doing tutorial for using Emacs efficiently.\n(Non)Warranty GNU Emacs comes with ABSOLUTELY NO WARRANTY\nCopying Conditions Conditions for redistributing and changing Emacs.\nGetting New Versions How to obtain the latest version of Emacs.\n" "\n\n" emacs-version "\nCopyright (C) 1998 Free Software Foundation, Inc." "" help-command "u" advertised-undo "" save-buffers-kill-emacs "t" help-with-tutorial "i" info "" view-emacs-news "\nGet help C-h (Hold down CTRL and press h)\nUndo changes C-x u Exit Emacs C-x C-c\nGet a tutorial C-h t Use Info to read docs C-h i" format "\n\nGet help %s\nUndo changes \\[advertised-undo]\nExit Emacs \\[save-buffers-kill-emacs]\nGet a tutorial \\[help-with-tutorial]\nUse Info to read docs \\[info]" where-is-internal key-description "M-x help" command-line-args-left inhibit-startup-message window-system menubar-bindings-done buffer-undo-list system-type where auto-save-list-file-prefix command-line-default-directory command-switch-alist line longopts just-files tem first-file-buffer file-count dir command-line-x-option-alist argi orig-argi argval completion extra-load-path load-path initial-load-path elt file command-line-functions did-hook hooks "\340" tmm-menubar [f10] "\nActivate menubar F10 or ESC ` or M-`" "\nActivate menubar \\[tmm-menubar]" "\nMode-specific menu C-mouse-3 (third button, with CTRL)" "\n(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key.\nIf you have no Meta key, you may instead type ESC followed by the character.)" directory-files file-name-directory "\\`" regexp-quote file-name-nondirectory "\n\nIf an Emacs session crashed recently, " "type M-x recover-session RET\nto recover" " the files you were editing." "" describe-copying "" describe-distribution "" describe-no-warranty "\n\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.\nYou may give out copies of Emacs; type C-h C-c to see the conditions.\nType C-h C-d for information on getting the latest version." "\n\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.\nYou may give out copies of Emacs; type \\[describe-copying] to see the conditions.\nType \\[describe-distribution] for information on getting the latest version." set-buffer-modified-p sit-for 120 2 append (("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval") ("--find-file") ("--visit")) mapcar #[(elt) "\301@PC\207" [elt "-"] 2] string-match "^--" "^--[^=]*=" "--" try-completion 1 assoc error "Option `%s' is ambiguous" "-f" "-funcall" "-e" intern arrayp command-execute "-eval" eval read "-L" "-directory" command-line-normalize-file-name expand-file-name "-l" "-load" file-exists-p load "-insert" "File name omitted from `-insert' option" insert-file-contents "-kill" kill-emacs "^\\+[0-9]+\\'" string-to-int "-find-file" "-visit" find-file find-file-other-window zerop goto-line "\\`-" "Unknown option `%s'" get-buffer-window other-window buffer-menu] 11]) #@67 Collapse multiple slashes to one, to handle non-Emacs file names. (defalias 'command-line-normalize-file-name #[(file) "\302 \303\216\304\305 \"\203\306\307\310\211 $\304\311 \312#\203%\306\307\310\211 $\202 *\207" [save-match-data-internal file match-data ((set-match-data save-match-data-internal)) string-match "^///+" replace-match "/" t "//+" 1] 5 (#$ . 26130)])