;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:10 2007 ;;; from file /home/cyd/emacs/lisp/startup.el ;;; in Emacs version 22.0.99 ;;; 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) #@47 Non-nil once command line has been processed. (defvar command-line-processed nil (#$ . 626)) (custom-declare-group 'initialization nil "Emacs start-up procedure." :group 'internal) #@245 Non-nil inhibits the startup screen. It also inhibits display of the initial message in the `*scratch*' buffer. This is for use in your personal init file (but NOT site-start.el), once you are familiar with the contents of the startup screen. (custom-declare-variable 'inhibit-splash-screen 'nil '(#$ . 814) :type 'boolean :group 'initialization) (defvaralias 'inhibit-startup-message 'inhibit-splash-screen) #@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 '(#$ . -1231) :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 '(#$ . -1951) :type 'boolean :group 'initialization) #@77 *Non-nil inhibits display of buffer list when more than 2 files are loaded. (custom-declare-variable 'inhibit-startup-buffer-menu 'nil '(#$ . -2111) :type 'boolean :group 'initialization) #@232 Alist of command-line switches. Elements look like (SWITCH-STRING . HANDLER-FUNCTION). HANDLER-FUNCTION receives the switch string as its sole argument; the remaining command-line args are in the variable `command-line-args-left'. (defvar command-switch-alist nil (#$ . 2306)) #@46 List of command-line args not yet processed. (defvar command-line-args-left nil (#$ . 2589)) #@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 (#$ . 2689)) #@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 (#$ . 3141)) #@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). (defconst 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) ("-fs" 0 x-handle-initial-switch fullscreen fullboth) ("-fw" 0 x-handle-initial-switch fullscreen fullwidth) ("-fh" 0 x-handle-initial-switch fullscreen fullheight) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-lsp" 1 x-handle-numeric-switch line-spacing) ("-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) ("-nbi" 0 x-handle-switch icon-type nil) ("-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) ("--fullscreen" 0 x-handle-initial-switch fullscreen fullboth) ("--fullwidth" 0 x-handle-initial-switch fullscreen fullwidth) ("--fullheight" 0 x-handle-initial-switch fullscreen fullheight) ("--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) ("--no-bitmap-icon" 0 x-handle-switch icon-type nil) ("--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) ("--line-spacing" 1 x-handle-numeric-switch line-spacing) ("--border-color" 1 x-handle-switch border-color) ("--smid" 1 x-handle-smid)) (#$ . 3325)) #@78 Normal hook run after handling urgent options but before loading init files. (defvar before-init-hook nil (#$ . 6152)) #@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 (#$ . 6278)) #@73 Normal hook run after loading init files and handling the command line. (defvar emacs-startup-hook nil (#$ . 6589)) #@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 (#$ . 6712)) #@104 Non-nil means don't run `term-setup-hook' and `emacs-startup-hook'. This is because we already did so. (defvar inhibit-startup-hooks nil (#$ . 7002)) #@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 (#$ . 7159)) #@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 (#$ . 7396)) #@70 Major mode command symbol to use for the initial `*scratch*' buffer. (custom-declare-variable 'initial-major-mode ''lisp-interaction-mode '(#$ . 7597) :type 'function :group 'initialization) #@621 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 an empty string, meaning use the init file for the user who 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'. (defvar init-file-user nil (#$ . 7795)) #@1013 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's 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. This variable is defined for customization so as to make it visible in the relevant context. However, actually customizing it is not allowed, since it would not work anyway. The only way to set this variable usefully is to set it while building and dumping Emacs. (custom-declare-variable 'site-run-file '"site-start" '(#$ . 8463) :type '(choice (const :tag "none" nil) string) :group 'initialization :initialize 'custom-initialize-default :set '(lambda (variable value) (error "Customizing `site-run-file' does not work"))) #@54 *Name of this machine, for purposes of naming users. (custom-declare-variable 'mail-host-address 'nil '(#$ . -9742) :type '(choice (const nil) string) :group 'mail) #@217 *Full mailing address of this user. This is initialized with environment variable `EMAIL' or, as a fallback, using `mail-host-address'. This is done after your init file is read, in case it sets `mail-host-address'. (custom-declare-variable 'user-mail-address '(if command-line-processed (or (getenv "EMAIL") (concat (user-login-name) "@" (or mail-host-address (system-name)))) "") '(#$ . -9914) :type 'string :group 'mail) #@396 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. Directories in the prefix will be created if necessary. 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 '(cond ((eq system-type 'ms-dos) "~/_emacs.d/auto-save.list/_s") (t "~/.emacs.d/auto-save-list/.saves-")) '(#$ . 10345) :type '(choice (const :tag "Don't record a session's auto save list" nil) string) :group 'auto-save) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list emacs-quick-startup default-boundp set-default nil emacs-basic-display init-file-debug] 3) #@61 Non-nil if there was an error loading the user's init file. (defvar init-file-had-error nil (#$ . 11272)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list normal-top-level-add-subdirs-inode-list default-boundp set-default nil no-blinking-cursor] 3) #@50 Non-nil if building Emacs overflowed pure space. (defvar pure-space-overflow nil (#$ . 11599)) #@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 "\306\211C \203\217 \211A@ B\211@\307\f!\f\310\311!\205%\311\f!\211\2060\312\313\f!\233\211\235\204\213\nB \306\211\203\212@\211\314\235\204\201\315\316\"\203\201\315\317\"\204\201\320!\203\201\321!\322\321\323\"!\204\200 C\244)A\211\204H*,\202\324 \237A!+\207" [default-directory pending attrs dirs this-dir contents nil directory-files fboundp untranslated-canonical-name 10 file-attributes ("." ".." "RCS" "CVS" "rcs" "cvs") string-match "\\`[[:alnum:]]" "\\.elc?\\'" file-directory-p expand-file-name file-exists-p ".nosearch" normal-top-level-add-to-load-path canonicalized normal-top-level-add-subdirs-inode-list file #1=#:--cl-dolist-temp-- expanded] 6 (#$ . 11701)]) (defalias 'normal-top-level-add-to-load-path #[(dirs) "\306 !\211\203, A\203,\n @\232\204,\f\307>\203%\n\227 @\227\232\204, A\211\204\n \205: \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 r\311q\210\n*\312\313\314\315\313!C#\210\316 \317\232\203%\310\f\320\211\203O @\211\321\322\323!\310\211\211$\210)\n\321\322\324!\310\211\211$\210) A\211\204-* \325=\204\326\327!\211!;\203~\330\331!!\332P!\330\331 !\332P!\232\204~\333\334!P\"\"\")\335 !\320#\336\216\337 *\207" [command-line-processed default-directory dir backup-by-copying-when-mismatch load-path tail message "Back to top level." t "*Messages*" put user-full-name standard-value default-value user-uid 0 nil load expand-file-name "subdirs.el" "leim-list.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!\312\"\210\313\314\n!!\315P\202-\314\316\317\n\320 \321 $!\f\204>\322\323!\210 \203>\322\305!\210&\204T'\203T(\204T'\324=\203\236\325\326!\203]\326 \210\325\327!\203\236\330 \331)*'\204\230+\204\230\332*\333\"\211,?\206\204,\334\235)\203\230\335\336!)\337\340)\"\203\230\341+\327\330 !\210*\325\342!\203\247\342 \210#\203\260\322\343!\210-\204\275\344 \203\275\345 \210\331\207" [default-directory auto-save-list-file-name auto-save-list-file-prefix system-type inhibit-startup-hooks term-setup-hook abbreviate-file-name ms-dos make-directory file-name-directory t make-temp-name expand-file-name "~" format "%s%d-%s~" emacs-pid system-name run-hooks emacs-startup-hook pc fboundp frame-notice-user-settings frame-set-background-mode selected-frame nil frame-parameter background-color (unspecified "unspecified-bg" "unspecified-fg") getenv "TERM" string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" light font-menu-add-default window-setup-hook display-popup-menus-p precompute-menubar-bindings frame-initial-frame window-system noninteractive term frame default-frame-background-mode bg menubar-bindings-done] 7)) command-line 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]) (byte-code "\301B\302\303!\207" [current-load-list tty-long-option-alist (lambda (#1=#:defconst-tmp-var) (defconst tty-long-option-alist #1#)) (("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") ("--background-color" . "-bg") ("--color" . "-color"))] 2) #@45 Height in pixels of images in the tool bar. (defconst tool-bar-images-pixel-height 24 (#$ . 15696)) #@76 Non-nil if tool-bars are present before user and site init files are read. (defvar tool-bar-originally-present nil (#$ . 15802)) (defalias 'tty-handle-args #[(args) "\306\307\310 \"\210 \203' @\311\232\204' \211A@\211\306\211\312\313\n\"\2030\n\314\225\306O\315\316\n\"\312\317\n\"\203n\320\n&\"\211\321=\203M\322\n&\"A\202n ;\203j\322 &\"\211'\204b\323\324\n\"\210'A)\202n\306 \n\325\235\203\207\326\f\206~ \211A@B(B(\202#\n\327\235\203\240\330\f\206\227 \211A@B(B(\202#\n\331\235\203\341\f\204\260 \211A@\332\f;\203\272\f\202\330\321\306)*\333 \312\334\f\"\211)\203\326\f)\335I\210\202\303\f*B(B(\202#\n\336\235\203\360\337(B(\202#\n\340\232\203\f\204\374\341\342\f\247\203\f\202\312\343\f\"\203\344\f!\202\345\f!B(B(\202#\nB,\202\237)\207" [rest args argi orig-argi argval completion nil message "%S" "--" string-match "^\\(--[^=]*\\)=" 0 match-string 1 "^--" try-completion t assoc error "Option `%s' is ambiguous" ("-fg" "-foreground") foreground-color ("-bg" "-background") background-color ("-T" "-name") title invocation-name "[.*]" 45 ("-r" "-rv" "-reverse") (reverse . t) "-color" 8 tty-color-mode "-?[0-9]+" string-to-number intern tty-long-option-alist elt default-frame-alist i case-fold-search] 5]) (defalias 'command-line #[nil "\306\307!\210\306\310!\210\306\311!\210\312\313!\211\314=\2046\n\315\235\203#\316\2026\n\317\235\203.\314\2026\n\320\235\2036\321)\f\322>\203E\323\324@\202W\f\325=\203Q\326A\202W\326A\324@\327\330\331\217\210\332 \204lB\204l\333C!C\334\314!\210\335\336D\337 #\314E\211F\204\214\340\341\342\"\210\343\342!\210\202\233\344\345F!!E\346\347G\"G*CAHH\203\275H\350H@I\316#\240\210H\211AH@\210\202\241)\314CAHJB?\205\316\351 \211K\203\337K\352 \232\203\337\353KJ\204H\203\354LH\211AH@\211MN\314O\355\356M\"\203M\357\225\314OO\360\361M\"MM\362\232\204]\363ML\"\211P\316=\2031M\361\314OM\202\\P;\203U\364PL\"\211Q\204I\327\365M\"\210Q@\361\314OM)\202\\\314ONM)M\366\235\203p\314\211KR\316S\202M\367\235\203\206\316\211TU\370VBV\202M\371\235\203\223\314K\202M\372\235\203\256O\206\246H\211AH@K\314O\202M\373\232\203\273\314R\202M\374\232\203\310\316W\202M\375\232\203\330\376VBV\202M\377\235\203\352\201\206XBX\202M\201\207\235\203\371\316T\202MHBH\316JO\203\327\201\210M\"\210,\202\337C\203CH\241\210*\201\211\201\212!\210\201\213\201\214!\2037\201\214 \210B\204^U\204^Y\201\215>\203[\201\216\201\217\201\220\"\201\221\235\203^\316TB\204\204U\204\204Y\201\222>\203~\201\223\314\201\224\"\357X\204\204\201\225\361!\210B\204\246U\204\246\332 \203\246\201\223\314\201Z\"\357X\204\246\201\226\361!\210\306\201\227!\210\306\201\230!\210\306\201\231!\210\306\201\232!\210\306\201\233!\210\306\201\234!\210\306\201\235!\210\306\201\236!\210\306\201\237!\210Y\201\240>\204\352\201\241 \210\201\213\201\242!\203\201ZV\236\206\201ZX\236\211Z\205ZA\205ZA\357=?[)\\]^_`aR\2032\201\243R\316\211#\210\314bK\203\216\355\201\244K\"\203[\201\245\201\246\201\247\201\250K\"\201\251#\210\202\216\201\252\201\253\f\201\254=\203o\201\255\202u\201\255KP!!\204\216\201\245\201\246\201\247\201\256K\"\201\251#\210\314\211W\316=\203\235\201\257\202\237Wcdefge\201\260hiW\203\276h \210\202\307\327\201\261\201\262\217\210j\203\370k\203\370r\201\263 q\210k\201\264=\203\347\314k\202\367k\203\367\314l\201\211\201\265!\210)\201\266m!\203\201\267m!\203\201\270m!\210\314nie=\204#\316fig*f\203-gic\204Kdc=\204K\346\201\271\201\272 \"\210\201\273o!\210,p\353\232\203l\312\201\274!\206j\351 \201\275q\206i\201\276 Qp\201\277\201r!\203 rss\203s\211As@\211t@\211u\201\300N\204tA@\201\301t8\201\302t8\201\303t8\201\304t8\314vwxyz\211{\203\314\201\305{vBBvz\203\334\201\306zvBBvy\203\354\201\307\201\310v\"vx\203\374\201\307\201\311v\"vw\203\f\201\307\201\312v\"v\201\313u\316vDC\314#\210.*\202z)\\a=\2038]`=\2038^_=\204=\201\314 \210+\201\211\201\315!\210c\203\203I\203\203\212\201\272 \314Q\211|\203z|@\211Qq\210\203q\350I\316#|A\211|\204^*\350 I\316#)\201\316\201\317!\203\241r\201\317q\210}\201\320=\203\240~ \210)B\204+Y\204+\203+\312\201\321!\211\200\201\314\202\201\203\351\201\243\201P\316\211#\204\351\355\201\322\201\"\211\202\205\343\201\357\202O\211\201\204\302\200\201\201\203*\201\323\201\324\201P!\203\201\213\203!\204\355\201\322\201\"\211\202\205\201\357\202O\201\202&\314\201\203 \210)\202\355+\327\201\325\201\326!D\204\201\327CA!\210B\203I\201\330\316!\210\201\277\201\205!\205_\205;\205_\201\331\205!\207" [default-directory command-line-default-directory vc version-control system-type eol-mnemonic-unix custom-reevaluate-setting temporary-file-directory small-temporary-file-directory auto-save-file-name-transforms getenv "VERSION_CONTROL" nil ("t" "numbered") t ("nil" "existing") ("never" "simple") never (ms-dos windows-nt emx) "(Unix)" "(Mac)" macos "(DOS)" 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\316!\210\320\321 \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 terpri nil kill-emacs] 8))) display-graphic-p tty-handle-args set-locale-environment locate-file "simple" get-load-suffixes princ "Warning: Could not find simple.el nor simple.elc" external-debugging-output terpri file-truename file-name-directory mapcar #[(elt) "@;\203\302@!\204 @PAB\207\207" [elt lisp-dir file-name-absolute-p] 2] decode-coding-string user-login-name user-real-login-name "" (("--no-init-file") ("--no-site-file") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display")) string-match "^\\(--[^=]*\\)=" 0 match-string 1 "--" try-completion assoc "Option `%s' is ambiguous" ("-Q" "-quick") ("-D" "-basic-display") (vertical-scroll-bars) ("-q" "-no-init-file") ("-u" "-user") "-no-site-file" "-debug-init" "-iconic" (visibility . icon) ("-icon-type" "-i" "-itype") eol-mnemonic-mac eol-mnemonic-dos noninteractive command-line-args load-path lisp-dir simple-file-name load-history args locale-coding-system done init-file-user longopts argi orig-argi argval completion elt site-run-file emacs-quick-startup no-blinking-cursor emacs-basic-display initial-frame-alist init-file-debug default-frame-alist window-system tool-bar-lines tool-bar-originally-present scalable-fonts-allowed font-list-limit face-ignored-fonts old-face-ignored-fonts old-font-list-limit old-scalable-fonts-allowed inhibit-startup-message default-enable-multibyte-characters orig-enable-multibyte debug-on-error-initial debug-on-error-should-be-set debug-on-error-from-init-file inner debug-on-error deactivate-mark transient-mark-mode mark-active abbrev-file-name abbrevs-changed current-language-environment user-mail-address mail-host-address font-lock-face-attributes face-attributes face-attribute face face-spec underline-p italic-p bold-p background foreground #1=#:--cl-dolist-temp-- major-mode initial-major-mode term-file-prefix TERM term hyphend term-init-func memory-signal-data x-session-previous-id (icon-type . t) ("-nbc" "-no-blinking-cursor") "Option `%s' doesn't allow an argument" run-hooks before-init-hook fboundp frame-initialize (x w32 mac) x-get-resource "cursorBlink" "CursorBlink" ("off" "false") (x w32) frame-parameter menu-bar-lines menu-bar-mode tool-bar-mode blink-cursor-mode normal-erase-is-backspace tooltip-mode global-font-lock-mode mouse-wheel-down-event mouse-wheel-up-event file-name-shadow-mode send-mail-function focus-follows-mouse (x w32 mac) tty-register-default-colors frame-notice-user-settings load "[~/:\n]" display-warning initialization format "Invalid user name %s" :error file-directory-p expand-file-name windows-nt "~" "User %s has no home directory" startup #[nil "\205\276 \306=\203\307\310Q\202A \311=\2033\312\307\313\314#\203#\315\202A\312\307\313\316#\203/\317\202A\315\202A \320=\203=\321\202A\307\322Q\323\324\n\323\211#\210 \323=\203i\325\326\327\307\330Q!\"\324\f\323\211#\210 \323=\203h\n) \203\256\331 !\332\232\203\256\333 !\211\334P$\335$!\203\212$\202\225\335 !\203\224 \202\225\313\211\203\255\336 \"\203\253\337\340 #\210\341\342!\210 *%?\205\275\313&\324\343\323\211#))\207" [init-file-user system-type user-init-file-1 user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default" alt inhibit-default-init inhibit-startup-message] 7] (byte-code " \210\302\211\207" [inner init-file-had-error nil] 2) ((error (byte-code "\305\212\306\307!q\210\310\311\312 \"\311\313\n@\314N\nA\203\315\202\316\317\320\nA\321#$\310\322\323\324\261\210)\325\326\n@\314N\nA\203;\315\202<\316\317\327\nA\321#$\210\305\330\307!\210)\331)\305\207" [message-log-max user-init-file error pop-up-windows init-file-had-error nil get-buffer-create "*Messages*" "\n\n" format "An error has occurred while loading `%s':\n\n" "%s%s%s" error-message ": " "" mapconcat #[(s) "\301\302\"\207" [s prin1-to-string t] 3] ", " "To ensure normal operation, you should investigate and remove the\n" "cause of the error in your initialization file. Start Emacs with\n" "the `--debug-init' option to view a complete error backtrace.\n\n" message "Error in init file: %s%s%s" prin1-to-string pop-to-buffer t] 10))) window-buffer lambda deactivate-mark-hook file-exists-p file-readable-p quietly-read-abbrev-file #[(buffer) "rq\210 \205 \302\303!)\207" [buffer enable-multibyte-characters set-buffer-multibyte nil] 2] buffer-list set-language-environment "EMAIL" "@" system-name boundp saved-face 2 3 4 5 :foreground :background append (:weight bold) (:slant italic) (:underline t) face-spec-set clear-face-cache after-init-hook get-buffer "*scratch*" fundamental-mode "TERM" "[-_][^-_]+\\'" intern-soft "terminal-init-" substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs" command-line-1 kill-emacs emacs-session-restore] 7]) #@216 Initial message displayed in *scratch* buffer at startup. If this is nil, no message will be displayed. If `inhibit-splash-screen' is non-nil, then no message is displayed, regardless of the value of this variable. (custom-declare-variable 'initial-scratch-message '(purecopy ";; This buffer is for notes you don't want to save, and for Lisp evaluation.\n;; If you want to create a file, visit that file with C-x C-f,\n;; then enter the text in that file's own buffer.\n\n") '(#$ . 26835) :type '(choice (text :tag "Message") (const :tag "none" nil)) :group 'initialization) #@180 A list of texts to show in the middle part of splash screens. Each element in the list should be a list of strings or pairs `:face FACE', like `fancy-splash-insert' accepts them. (defvar fancy-splash-text '((:face (variable-pitch :weight bold) "Important Help menu items:\n" :face variable-pitch (lambda nil (let* ((en "TUTORIAL") (tut (or (get-language-info current-language-environment 'tutorial) en)) (title (with-temp-buffer (insert-file-contents (expand-file-name tut data-directory) nil 0 256) (search-forward ".") (buffer-substring (point-min) (1- (point)))))) (concat "Emacs Tutorial Learn how to use Emacs efficiently" (if (string= en tut) "" (concat " (" title ")")) "\n"))) :face variable-pitch "Emacs FAQ Frequently asked questions and answers\nView Emacs Manual View the Emacs manual using Info\nAbsence of Warranty GNU Emacs comes with " :face (variable-pitch :slant oblique) "ABSOLUTELY NO WARRANTY\n" :face variable-pitch "Copying Conditions Conditions for redistributing and changing Emacs\nGetting New Versions How to obtain the latest version of Emacs\nMore Manuals / Ordering Manuals Buying printed manuals from the FSF\n") (:face variable-pitch "To quit a partially entered command, type " :face default "Control-g" :face variable-pitch ".\n" :face (variable-pitch :weight bold) "Useful File menu items:\n" :face variable-pitch "Exit Emacs (Or type " :face default "Control-x" :face variable-pitch " followed by " :face default "Control-c" :face variable-pitch ")\nRecover Crashed Session Recover files you were editing before a crash\n\n\n\n\n\n")) (#$ . 27417)) (custom-declare-group 'fancy-splash-screen nil "Fancy splash screen when Emacs starts." :version "21.1" :group 'initialization) #@43 *Delay in seconds between splash screens. (custom-declare-variable 'fancy-splash-delay '7 '(#$ . -29145) :group 'fancy-splash-screen :type 'integer) #@115 *Show splash screens for at most this number of seconds. Values less than twice `fancy-splash-delay' are ignored. (custom-declare-variable 'fancy-splash-max-time '30 '(#$ . -29301) :group 'fancy-splash-screen :type 'integer) #@64 *The image to show in the splash screens, or nil for defaults. (custom-declare-variable 'fancy-splash-image 'nil '(#$ . -29532) :group 'fancy-splash-screen :type '(choice (const :tag "Default" nil) (file :tag "File"))) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\304\207" [current-load-list fancy-current-text default-boundp set-default nil fancy-splash-help-echo fancy-splash-stop-time fancy-splash-outer-buffer fancy-splash-last-input-event] 3) #@257 Insert text into the current buffer, with faces. Arguments from ARGS should be either strings, functions called with no args that return a string, or pairs `:face FACE', where FACE is a valid face specification, as it can be used with `put-text-property'. (defalias 'fancy-splash-insert #[(&rest args) "\304 \2056 @\305=\203 A\211@\202.\306 @\307\n!\203%\n \202&\n)\310\311 %c\210 A\211\204\304)\207" [current-face args it fancy-splash-help-echo nil :face propertize functionp face help-echo] 7 (#$ . 30155)]) #@68 Insert the head part of the splash screen into the current buffer. (defalias 'fancy-splash-head #[nil ";\203 \202*\306 \203)\307\310!\203)\311\312!\203%\312 \313U\203%\314\202*\315\202*\316\317 !\211\2057\320\n!@\304\321 !\n\203\225\f V\203\225\322\323\324\325\326\327\330\331\nBEE#c\210\310\n>\203j\332\333\334\"\335=\203j\336\n\337\"\340 \341<\342<\343\344#\210\342<\345\346#\210\342<\347\346#\210\350\n\322\351\305 \352<%\"\210*\353c\210,\354\355\356=\357=\203\244\360\202\245\361#\210\353c\210\354\355\362\363#\210>\205\317\354\355\362\364\355\365\366\355\362\367\370>!\371\232\203\314\372\202\315\373&\n\207" [fancy-splash-image image-file img image-width window-width help-echo display-color-p image-type-available-p xpm fboundp x-display-planes 8 "splash8.xpm" "splash.xpm" "splash.pbm" create-image image-size selected-window propertize " " display space :align-to + center -0.5 frame-parameter nil background-mode dark append (:color-symbols (("#000000" . "gray30"))) make-sparse-keymap "mouse-2: browse http://www.gnu.org/" define-key [mouse-2] #[nil "\300\301!\210\302\303\304\"\207" [browse-url "http://www.gnu.org/" throw exit nil] 3 nil nil] [down-mouse-2] ignore [up-mouse-2] insert-image "xxx" keymap "\n" fancy-splash-insert :face (variable-pitch :foreground "red") gnu/linux "GNU Emacs is one component of the GNU/Linux operating system." "GNU Emacs is one component of the GNU operating system." variable-pitch "You can do basic editing with the menu bar and scroll bar using the mouse.\n\n" "Type " default "Control-l" " to begin editing" buffer-name "*scratch*" ".\n" " your file.\n" map system-type fancy-splash-outer-buffer] 13 (#$ . 30685)]) #@68 Insert the tail part of the splash screen into the current buffer. (defalias 'fancy-splash-tail #[nil "\302\303\304\"\305=\203 \306\202\307\310\311\312\313E\314\315 \316\311\317\320&\210 \205J\321\322 !!\205J\323\322 !\303\324\325\326 !!P\327$\205J\310\311\330\331\332\311\333\334\311\335\336\337& )\207" [fg auto-save-list-file-prefix frame-parameter nil background-mode dark "cyan" "darkblue" fancy-splash-insert :face variable-pitch :foreground "\nThis is " emacs-version "\n" (variable-pitch :height 0.5) "Copyright (C) 2007 Free Software Foundation, Inc." file-directory-p file-name-directory directory-files "\\`" regexp-quote file-name-nondirectory t (variable-pitch :foreground "red") "\n\nIf an Emacs session crashed recently, " "type " (fixed-pitch :foreground "red") "Meta-x recover-session RET" (variable-pitch :foreground "red") "\nto recover" " the files you were editing."] 12 (#$ . 32391)]) #@44 Timer function displaying a splash screen. (defalias 'fancy-splash-screens-1 #[(buffer) "\306 V\203\f\307\310\311\"\210 \204\n @\fq\210\312 \210 \203\"\313c\210\314 \210\315\316 \"\210\317 \210\320 \2047\321!\210\322\311!\210eb\210\323 \210 A\211)\207" [fancy-splash-stop-time fancy-current-text fancy-splash-text text buffer pure-space-overflow float-time throw stop-splashing nil erase-buffer "Warning Warning!!! Pure space overflow !!!Warning Warning\n(See the node Pure Storage in the Lisp manual for details.)\n" fancy-splash-head apply fancy-splash-insert fancy-splash-tail current-message message set-buffer-modified-p force-mode-line-update fancy-splash-help-echo] 3 (#$ . 33313)]) #@189 Stop displaying the splash screen buffer. This is an internal function used to turn off the splash screen after the user caused an input event by hitting a key or clicking with the mouse. (defalias 'fancy-splash-default-action #[nil "\304\305!>\203-\211:\203\306 8\202\307 `\310\311F)\311\n8)\307 =\203-\312 \210\2021 B\313\314\315\"\207" [last-command-event event position unread-command-events down event-modifiers 1 selected-window (0 . 0) 0 read-event throw exit nil] 5 (#$ . 34025) nil]) #@205 Save the last event and stop displaying the splash screen buffer. This is an internal function used to turn off the splash screen after the user caused an input event that is bound in `special-event-map' (defalias 'fancy-splash-special-event-action #[nil "\302\303\304\"\207" [last-input-event fancy-splash-last-input-event throw exit nil] 3 (#$ . 34538) nil]) #@49 Display fancy splash screens when Emacs starts. (defalias 'fancy-splash-screens #[(&optional hide-on-input) "\203@ p\306\n \f\307 \306#$%&'()\310 \311\312\313 \"*+r\314\216\315#!\210\316\317!\210\320\321!\210p'\322\323\215.\f\207\324 \204L\325\310 !\203S\326p!\210\202W\316\327!\210\306,\330 \210-\203e\331c\210\306(\332 \210.\306/\2110\203\2150@/\333\334/\"\210\335c\2100A\2110\204v*\335\306x\210`d|\210\335c\210\336 \210\337\306!\210\340,1\203\2622\204\262\341\306\342\"\210eb)\207" [hide-on-input display-hourglass minor-mode-map-alist emulation-mode-map-alists special-event-map timer nil fancy-splash-frame selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-frame switch-to-buffer " GNU Emacs" make-local-variable cursor-type stop-splashing (byte-code "\306\216\307 \310\311 !\210\312 \313\314#\210\312 \315\316#\210\312 \317\314#\210\312 \320\314#\210\307 \321\322 \"\210\310\211\310 \323!\324\325\326\327#\"\330 #\\$\331\332%\333&$'\334\335\336 \"\210\337 +\207" [cursor-type map special-event-map old-special-event-map display-hourglass minor-mode-map-alist ((byte-code "\306!\210    \307!\210\2031\310\311\312\313!\"\310\313!\314$\210\310\207" [timer old-hourglass display-hourglass old-minor-mode-map-alist minor-mode-map-alist old-emulation-mode-map-alists cancel-timer kill-buffer nil command-execute lookup-key vector t emulation-mode-map-alists old-special-event-map special-event-map splash-buffer fancy-splash-last-input-event last-input-event] 5)) make-sparse-keymap nil use-local-map define-key [switch-frame] ignore [t] fancy-splash-default-action [mouse-movement] [mode-line t] map-keymap #[(key def) "\303\304 !\n\305=\203\305\202\306#\207" [special-event-map key def define-key vector ignore fancy-splash-special-event-action] 5] t propertize "---- %b %-" face mode-line-buffer-id float-time run-with-timer 0 fancy-splash-screens-1 message "%s" startup-echo-area-message recursive-edit emulation-mode-map-alists buffer-undo-list mode-line-format fancy-splash-max-time fancy-splash-stop-time fancy-splash-delay splash-buffer timer] 6) window-minibuffer-p window-dedicated-p pop-to-buffer "*About GNU Emacs*" erase-buffer "Warning Warning!!! Pure space overflow !!!Warning Warning\n(See the node Pure Storage in the Lisp manual for details.)\n" fancy-splash-head apply fancy-splash-insert "\n" fancy-splash-tail set-buffer-modified-p t view-mode-enter kill-buffer frame old-special-event-map old-emulation-mode-map-alists old-minor-mode-map-alist splash-buffer fancy-splash-outer-buffer old-hourglass save-selected-window-alist save-selected-window-window buffer-read-only pure-space-overflow fancy-splash-text text #2=#:--cl-dolist-temp-- view-read-only view-mode] 8 (#$ . 34907)]) #@183 Return the frame to use for the fancy splash screen. Returning non-nil does not mean we should necessarily use the fancy splash screen, but if we do use it, we put it on this frame. (defalias 'fancy-splash-frame #[nil "\303\304\305 \306 C\"\303\211\203*\n@\307 !\203#\310\311 !!\204# \nA\211\204*)\207" [chosen-frame frame #1=#:--cl-dolist-temp-- nil append frame-list selected-frame frame-visible-p window-minibuffer-p frame-selected-window] 4 (#$ . 38047)]) #@50 Return t if fancy splash screens should be used. (defalias 'use-fancy-splash-screens-p #[nil "\305 \205K\306 \203\307\310!\204\307\311!\205K\312 \211\205J\313 \2062\306 \2031\307\310!\2031\314\2022\315!\211\205>\316\n\317#A\304!S\211 \320\\V+)\207" [frame fancy-splash-image img image-height frame-height display-graphic-p display-color-p image-type-available-p xpm pbm fancy-splash-frame create-image "splash.xpm" "splash.pbm" image-size nil 19] 5 (#$ . 38525)]) #@42 Display splash screen when Emacs starts. (defalias 'normal-splash-screen #[(&optional hide-on-input) "p\306\216r\307\310!q\210\311\312 \210\313\302!\210\314 \203#\313\304!\210\315\316\317\320# \203*\321c\210\322c\210@\323=\2038\324\2029\325c\210 \203R\326\327\330!\331\232\203M\332\202N\333P!c\210\334 \203d\335c\210\336\337 \340\261\210\202\341\342!\343=\203\242\341\344!\345=\203\242\341\346!\347=\203\242\341\350!\351=\203\242\341\352!\353=\203\242\341\354!\355=\203\242\341\356!\357=\203\242\360c\210\202\275\326\361\362\363\343\311\364#\211A\203\267\365A!\202\270\366)\"!c\210\341\367!\370=\203\323\341\371!\370=\203\323\372c\210\202\330\326\373!c\210\374c\210\336\337 \340\261\210\341\375!\376=\203\341\377!\201E=\203\341\201F!\201G=\203\201Hc\210\202\326\201I!c\210B\203J\201J\201KB!!\203J\201L\201KB!\311\201M\201N\201OB!!P\364$\203J\201P\201Q\201R\261\210\201S\311!\210\364C\203eD\204e\201T\311\201U\"\210eb\210 \203\206\201V \206{\201W\201X !?\205\216\201Y\213\202\216\311\201Z\201[\217+\207" [prev-buffer buffer-read-only tab-width hide-on-input mode-line-format pure-space-overflow ((byte-code "\203 \301\302!\210\202\303\302!\210\304\305\306\"\210\301\207" [hide-on-input kill-buffer "GNU Emacs" switch-to-buffer rename-buffer "*About GNU Emacs*" t] 3)) get-buffer-create "GNU Emacs" nil erase-buffer make-local-variable 8 propertize "---- %b %-" face mode-line-buffer-id "Warning Warning!!! Pure space overflow !!!Warning Warning\n(See the node Pure Storage in the Lisp manual for details.)\n" "Welcome to GNU Emacs" gnu/linux ", one component of the GNU/Linux operating system.\n" ", a part of the GNU operating system.\n" substitute-command-keys "\nType \\[recenter] to begin editing" buffer-name "*scratch*" ".\n" " your file.\n" display-mouse-p "You can do basic editing with the menu bar and scroll bar using the mouse.\nTo quit a partially entered command, type Control-g.\n\nUseful File menu items:\nExit Emacs (or type Control-x followed by Control-c)\nRecover Crashed Session Recover files you were editing before a crash\n\nImportant Help menu items:\nEmacs Tutorial Learn how to use Emacs efficiently\nEmacs FAQ Frequently asked questions and answers\nRead the Emacs Manual View the Emacs manual using Info\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\nMore Manuals / Ordering Manuals How to order printed manuals from the FSF\n" "\n\n" emacs-version "\nCopyright (C) 2007 Free Software Foundation, Inc." key-binding "" help-command "u" advertised-undo "" save-buffers-kill-emacs "t" help-with-tutorial "i" info "r" info-emacs-manual "" view-emacs-news "\nGet help C-h (Hold down CTRL and press h)\nEmacs manual C-h r\nEmacs tutorial C-h t Undo changes C-x u\nBuy manuals C-h C-m Exit Emacs C-x C-c\nBrowse manuals C-h i" format "\n\nGet help %s\nEmacs manual \\[info-emacs-manual]\nEmacs tutorial \\[help-with-tutorial] Undo changes \\[advertised-undo]\nBuy manuals \\[view-order-manuals] Exit Emacs \\[save-buffers-kill-emacs]\nBrowse manuals \\[info]" where-is-internal t key-description "M-x help" "\340" tmm-menubar [f10] "\nActivate menubar F10 or ESC ` or M-`" "\nActivate menubar \\[tmm-menubar]" "\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.)" "" describe-copying "" system-type where auto-save-list-file-prefix view-read-only view-mode describe-distribution "" describe-no-warranty "\n\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.\nEmacs is Free Software--Free as in Freedom--so you can redistribute copies\nof Emacs and modify it; 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.\nEmacs is Free Software--Free as in Freedom--so you can redistribute copies\nof Emacs and modify it; type \\[describe-copying] to see the conditions.\nType \\[describe-distribution] for information on getting the latest version." file-directory-p file-name-directory directory-files "\\`" regexp-quote file-name-nondirectory "\n\nIf an Emacs session crashed recently, " "type Meta-x recover-session RET\nto recover" " the files you were editing." set-buffer-modified-p view-mode-enter kill-buffer window-minibuffer-p window-dedicated-p selected-window ((byte-code "\300p!\210\301\302!\207" [switch-to-buffer sit-for 120] 2)) (byte-code "\300p!\207" [switch-to-buffer] 2) ((error (byte-code "\300p!\207" [pop-to-buffer] 2)))] 8 (#$ . 39013)]) (defalias 'startup-echo-area-message #[nil "\300\301!\302=\203\n\303\207\304\305!\207" [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]."] 2]) (defalias 'display-startup-echo-area-message #[nil "\301\302\303\304 \")\207" [resize-mini-windows t message "%s" startup-echo-area-message] 3]) #@178 Display splash screen according to display. Fancy splash screens are used on graphic displays, normal otherwise. With a prefix argument, any user input hides the splash screen. (defalias 'display-splash-screen #[(&optional hide-on-input) "\301 \203 \302!\207\303!\207" [hide-on-input use-fancy-splash-screens-p fancy-splash-screens normal-splash-screen] 2 (#$ . 44347) "P"]) (defalias 'command-line-1 #[(command-line-args-left) "\204B\306 \204B \204B\n\203< \203<\302\307N\203,\n\f\310\232\203'\311 \202(\f\232\204B\312\313!\314\315\316\217\317 !\210)\204B\320 \210\321 \210 \203J\322\323!\210@\203Y\204Y\324\325\326\327#\210A\203B\330\314\211\211\211\331\332\333\334C\"\"\330\211DEFGHIJKLM\314I\211N\203\254N@I\335\336I@\"\203\243I@CFBFNA\211N\204\214*A\203\376A@\211OP\314\211QRAAAG\203\320\310O\2028\335\337O\"\203\347O\330\225\314OQ\340\341O\"OO\342\232\203\364\314R\202\374\343OF\"RR\344=\203 O\341\314OO\2028R;\2031\345RF\"\211S\204%\346\347O\"\210S@\341\314OO)\2028\314QPO\345OC\"\211I\203eQ\203[QABAIAO!\210)\202\353IAO!\210\202\353O\350\232\203r\344T\202\353O\351\235\203\237\352Q\206\206A\211AA@!I\353I!\203\230\354I!\210\202\353I \210\202\353O\355\235\203\272\356\357Q\206\264A\211AA@!!\210\202\353O\360\235\203\367\361\362Q\206\317A\211AA@!!IH\203\352HIHAB\241\210HAH\202\353IUB\211UH\202\353O\363\235\203*\362Q\206 A\211AA@!V\361V!W\364W!\203WV\365V\314\344#\210*\202\353O\366\235\203S\362Q\206>A\211AA@!V\361V!W\365W\314\344\211$\210*\202\353O\367\232\203{Q\206fA\211AA@\211I;\204q\346\370!\210\371\362I!!\210\202\353O\372\232\203\211\373\344!\210\202\353O\374\232\203\227\375\376!\210\202\353\335\377O\"\203\252\201bO!E\202\353\335\201cO\"\203\315\201b\340\341O\"!E\201b\340\323O\"!D\202\353\345OM\"\211I\203\345IA@A\233A\202\353O\201d\235\203ZQ\206\372A\211AA@\211I;\204 \346\201eO\"\210KTK\361\362I!L\"VK\341U\203*\201fV!J\2021\201gV!\210)\201hE!\204B\201iE!\210\330ED\341W\204T\201jDS!\210\330D\202\353O\342\232\203g\344G\202\353X\314Y\211Z\203\205Z@ \211Y\204\205ZA\211Z\204rY\204\352\335\201kO\"\203\234\346\201lO\"\210KTK\361\362P!L\"VK\341U\203\275\201fV!J\202\304\201gV!\210)\201hE!\204\325\201iE!\210\330ED\341W\204\347\201jDS!\210\330D*\201m\201n !\204\372\373\314!\210,\202\255K\323V\203\204[\204\201oJ!\204\201p \210. T\206)\206)\\?\205\251\201q\201r!\210]\203B\201q\201]!\210\344^\201s\201t!\203T\201t \210_\203d\201q\201_!\210\314_\201u \203p\201v \210\344`a\203\236\201w\201x!\203\236r\201xq\210\201h\201y !\203\235ac\210\201z\314!\210)\306 ?\205\251\201{\344!\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\232\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 use-fancy-splash-screens-p display-startup-echo-area-message sit-for 2 display-warning initialization "Building Emacs overflowed pure space. (See the node Pure Storage in the Lisp manual for details.)" :warning 0 append (("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval") ("--execute") ("--no-splash") ("--find-file") ("--visit") ("--file") ("--no-desktop")) mapcar #[(elt) "\301@PC\207" [elt "-"] 2] string-match "^--" "^\\(--[^=]*\\)=" match-string 1 "--" try-completion t assoc error "Option `%s' is ambiguous" "-no-splash" ("-f" "-funcall" "-e") intern commandp command-execute ("-eval" "-execute") eval read ("-L" "-directory") expand-file-name command-line-normalize-file-name ("-l" "-load") file-exists-p load ("-scriptload") "-insert" "File name omitted from `-insert' option" insert-file-contents "-kill" kill-emacs "-no-desktop" message "\"--no-desktop\" ignored because the Desktop package is not loaded" "^\\+[0-9]+\\'" pure-space-overflow command-line-args-left command-line-default-directory command-switch-alist column line longopts just-files splice tem first-file-buffer file-count dir command-line-x-option-alist #1=#:--cl-dolist-temp-- argi orig-argi argval completion elt inhibit-startup-message load-path file file-ex command-line-functions did-hook hooks inhibit-startup-buffer-menu emacs-quick-startup term-setup-hook inhibit-startup-hooks window-setup-hook menubar-bindings-done initial-scratch-message string-to-number "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" ("-find-file" "-file" "-visit") "File name omitted from `%s' option" find-file find-file-other-window zerop goto-line move-to-column "\\`-" "Unknown option `%s'" frame-live-p selected-frame get-buffer-window list-buffers run-hooks emacs-startup-hook fboundp frame-notice-user-settings display-popup-menus-p precompute-menubar-bindings get-buffer "*scratch*" buffer-size set-buffer-modified-p display-splash-screen] 12]) #@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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^///+" replace-match "/" t "//+" 1] 5 (#$ . 49654)])