;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:07 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/startup.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; 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 (#$ . 681))
(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 '(#$ . -867) :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 '(#$ . -1136) :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 '(#$ . -1856) :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 (#$ . 2017))
#@46 List of command-line args not yet processed.
(defvar command-line-args-left nil (#$ . 2281))
#@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 (#$ . 2381))
#@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 (#$ . 2833))
#@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) ("-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) ("-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) ("--line-spacing" 1 x-handle-numeric-switch line-spacing) ("--border-color" 1 x-handle-switch border-color)) (#$ . 3017))
#@78 Normal hook run after handling urgent options but before loading init files.
(defvar before-init-hook nil (#$ . 5491))
#@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 (#$ . 5617))
#@73 Normal hook run after loading init files and handling the command line.
(defvar emacs-startup-hook nil (#$ . 5928))
#@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 (#$ . 6051))
#@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 (#$ . 6341))
#@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 (#$ . 6578))
#@68 Major mode command symbol to use for the initial *scratch* buffer.
(custom-declare-variable 'initial-major-mode ''lisp-interaction-mode '(#$ . 6779) :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 '(#$ . 6975) :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" '(#$ . 7733) :type '(choice (const :tag "none" nil) string) :group 'initialization)
#@54 *Name of this machine, for purposes of naming users.
(custom-declare-variable 'mail-host-address 'nil '(#$ . -8621) :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 '(#$ . -8793) :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-")) '(#$ . 9044) :type '(choice (const :tag "Don't record a session's auto save list" nil) string) :group 'auto-save)
(byte-code "\301B\304\301!\204\f \305\302B\304\302!\204 \305\303B\304\303!\204$ \305\305\207" [current-load-list init-file-debug init-file-had-error normal-top-level-add-subdirs-inode-list 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 "\306\211C	\203\203 	@B	A@\307\f!\f\310=\205& \311\f!\211\2061 \312\313\f!\233\211\235\204 \nB\203 @\314\235\204x \315\316@\"\203x \315\317@\"\204x \320@!\203x \321@!\322\321\323\"!\204w 	C\244)A\211\204C ,\202 \324\237A!+\207" [default-directory pending attrs dirs this-dir contents nil directory-files windows-nt 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 system-type canonicalized normal-top-level-add-subdirs-inode-list expanded] 5 (#$ . 9933)])
(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	\212\311\312!q\210\n*\313 \314\232\203 \310\f\315\211\203@ @B\315\316\315\217\210\315\317\315\217\210A\211\204' *\320=\204p \321\322!\211;\203o \323\324!\325P!\323\324	!\325P!\232\204o \326\327P\")\330	!\315\331\216\332 *\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 (byte-code "@\302\303\304@\"\305\211\211$\210)\302\207" [tail default-directory load expand-file-name "subdirs.el" t] 5) (byte-code "@\302\303\304@\"\305\211\211$\210)\302\207" [tail default-directory load expand-file-name "leim-list.el" t] 5) 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 $!\322\323!\210\f\203: \322\304!\210\204O '\203O (\204O '\324=\203\245 \325\326!\203X \326 \210\325\327!\203\245 )\330 \331*+)'\204\237 )\204\237 \332+\333\"\204\237 \332+\334\"\211,?\206\213 ,\335\235)\203\237 \336\337!*\340\341*\"\203\237 \342)\327\330 !\210+\325\343!\203\256 \343 \210$\203\267 \322\344!\210-\204\304 \345 \203\304 \346 \210\331\207" [default-directory auto-save-list-file-name auto-save-list-file-prefix system-type term-setup-hook frame-initial-frame 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 reverse background-color (unspecified "unspecified-bg") getenv "TERM" string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" light font-menu-add-default window-setup-hook display-popup-menus-p precompute-menubar-bindings window-system noninteractive frame-background-mode term frame bg menubar-bindings-done] 7)) command-line tail system-type pwd process-environment menubar-bindings-done] 5])
(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 "\301B\302\301\207" [current-load-list tty-long-option-alist (("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") ("--background-color" . "-bg"))] 2)
#@45 Height in pixels of images in the tool bar.
(defconst tool-bar-images-pixel-height 24 (#$ . 13869))
#@76 Non-nil if tool-bars are present before user and site init files are read.
(defvar tool-bar-originally-present nil (#$ . 13975))
(defalias 'tty-handle-args #[(args) "\306\307\310	\"\210	\203	@\311\232\204	@\211\306\306	A\312\313\n\"\2032 \n\314\225\306O\n\314\211\225SO\312\315\n\"\203p \316\n#\"\211\317=\203O \320\n#\"A\202p \f;\203l \320\f#\"\211$\204d \321\322\n\"\210$A)\202p \306\n\323\230\204| \n\324\230\203\221 \204\206 	@	A\325B%B%\202\n\326\230\204\235 \n\327\230\203\262 \204\247 	@	A\330B%B%\202\n\331\230\204\276 \n\332\230\203\371 \204\310 	@	A\333;\203\322 \202\360 \317\306&'\334 \312\335\"\211&\203\356 &\336I\210\202\333 *B%B%\202\n\337\230\204\n\340\230\204\n\341\230\203\342%B%\202\nB,\202 \237)\207" [rest args this orig-this completion argval nil message "%s" "--" string-match "^--[^=]*=" 0 "^--" 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) tty-long-option-alist elt default-frame-alist i case-fold-search] 5])
(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!\n\320=\205Y \310\312!\310\321!\211\322=\204\227 \323\230\204p \324\230\203v \325@\202\227 \326\230\204\202 \327\230\203\210 \322@\202\227 \330\230\204\224 \331\230\203\227 \332@)\n\333>\203\247 \334A\335B\202\255 \336C\335B\337\340\341\217\210\342 \204\302 D\204\302 \343E!E\344\322!\210\322EAFGD?\205\326 \345 \211H\203\347 H\346 \230\203\347 \347HG\204F\203\350F@\322IJK\351\352J\"\203\351\353J\"\203J\354\225\322OIJ\354\211\224OJJ\355\232\204c\356JK\"\211L\325=\203;J\357\322OJ\202bL;\203_\360LK\"\211M\204S\337\361J\"\210M@\357\322OJ)\202b\322I)J\362\230\204qJ\363\230\203|\322HFAF\202J\364\230\204\212J\365\230\203\247I\204\230FA\211F@IIH\322IFAF\202J\366\230\203\271\322NFAF\202J\367\230\203\313\325OFAF\202J\370\230\203\340\371PBPFAF\202J\372\230\204\365J\373\230\204\365J\374\230\203\375QBQFAF\202\325GI\203\337\376J\"\210+\202\347 E\203 EF\241\210*\377\201r !\203.\201r  \210D\204PR\201s >\203J\201t \201u  \236A\354V\203P\201v \325!\210D\204m\342 \203m\201w \322\201Z \"\354V\203m\201x \357!\210D\204\220\n\320=\204\220R\201y >\203\220\201z \201{ \325\"\210\201| \357!\210D\204\322\n\201} >\204\303R\201~ >\203\265\377\201 !\203\265\201  \204\303R\204\322S\201\200 =\203\322\201z \201\201 \325\"\210\201\202 \357!\210D\204\363\342 \203\363\377\201\203 !\203\363\201z \201\204 \325\"\210\201\204 \357!\210R\201\205 >\204U\201\206  \203UR\201\207 =\203T\202 \n\201\210 =\203U\202 V\211W@XW\203O\201\211 X@X\211YA@)X\211YAA)#\210WA\211W@X\202&\201\212  \210*\377\201\213 !\203\203\201Z P\236\206l\201Z Q\236\211Z?\206ZA?\206ZA\354=?[)\\]^_`a\201\214 \201\215 !\210N\203\245\201\216 N\325\211#\210\322b\322\211O\325=\203\267\201\217 \202\271Ocdefge\201\220 hiO\203\330h \210\202\341\337\201\221 \201\222 \217\210ie=\204\360\325fig*f\203\372gic\204dc=\204\201\223 \201\224 \201\225  \"\210\201\226 j!\210,k\2041\345 \201\227 l\206.\201\230  Qk\\a=\203I]`=\203I^_=\204N\201\212  \210+\201\214 \201\231 !\210\201\232 \201\233 !\203u\212\201\233 q\210m\201\234 =\203tn \210)o\203\301D\204\301R\204\301\310\201\235 !\322p\211q\203\300\201\216 oqP\325\211#\204\300\351\201\236 q\"\211p\203\271q\354pO\211q\202\217\322\211q\204\222*\201\237 EA!\210D\205\323\201\240 \325!\207" [default-directory command-line-default-directory system-type temporary-file-directory small-temporary-file-directory vc file-name-as-directory (ms-dos windows-nt) getenv "TEMP" "TMPDIR" "TMP" "c:/temp" (vax-vms axp-vms) "SYS$SCRATCH:" "/tmp" ms-dos "VERSION_CONTROL" nil "t" "numbered" t "nil" "existing" "never" "simple" never (ms-dos windows-nt emx) "(Unix)" "(Mac)" "(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\304A\"\2026 \305@\306N>\203) \307\310A@\311\312AA\313##\2026 \307\310@\314N\311\315A\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 user-login-name user-real-login-name "" (("--no-init-file") ("--no-site-file") ("--user") ("--debug-init") ("--iconic") ("--icon-type")) string-match "\\`--" "=" 0 "--" try-completion 1 assoc "Option `%s' is ambiguous" "-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 version-control eol-mnemonic-unix eol-mnemonic-mac eol-mnemonic-dos noninteractive 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 window-system tty-erase-char msdos-color-values w32-tty-standard-colors tty-standard-colors colors color x 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 current-language-environment user-mail-address mail-host-address major-mode initial-major-mode term-file-prefix hyphend term frame-initialize (x w32) menu-bar-lines frame-parameters menu-bar-mode frame-parameter tool-bar-mode (x w32) set-default blink-cursor blink-cursor-mode (ms-dos windows-nt) (x) x-backspace-delete-keys-p 8 normal-erase-is-backspace normal-erase-is-backspace-mode x-show-tip tooltip-mode (x w32) tty-display-color-p pc windows-nt tty-color-define clear-face-cache frame-notice-user-settings run-hooks before-init-hook load startup #[nil "\205\227 	\306=\203 \307\310Q\2025 	\311=\203' \312\307\313\314#\203# \315\2025 \316\2025 	\317=\2031 \320\2025 \307\321Q\322\323\n\322\211#\210\322=\203F \313\203\210 \324!\325\232\203\210 \326!\211\327P\330!\203d \202o \330\f!\203n \f\202o \313\211\203\207 \331\f\"\203\205 \332\333\f#\210\334\335!\210\f*\206\226 \313 \323\336\322\211#))\207" [init-file-user system-type user-init-file-1 user-init-file source alt ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" t load 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" inhibit-default-init inhibit-startup-message] 5] (byte-code " \210\302\302\207" [inner init-file-had-error nil] 1) ((error (byte-code "\304\212\305\306!q\210\307\310\311	\"\310\312\n@\313N\nA\203 \314\202 \315\316\317\nA\320#$\307\321\322\323\324\261\210)\325\326\n@\313N\nA\203< \314\202= \315\316\317\nA\320#$\210\327\306!\210\330)\304\207" [message-log-max user-init-file error 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 prin1-to-string ", " "To ensure normal operation, you should investigate the cause\n" "of the error in your initialization file and remove it.  Start\n" "Emacs with the `--debug-init' option to view a complete error\n" "backtrace\n" message "Error in init file: %s%s%s" pop-to-buffer t] 10))) mapcar #[(buffer) "rq\210	\205 \302\303!)\207" [buffer enable-multibyte-characters set-buffer-multibyte nil] 2] buffer-list set-language-environment "@" system-name after-init-hook get-buffer "*scratch*" fundamental-mode "TERM" "[-_][^-_]+$" command-line-1 kill-emacs] 5])
#@105 Initial message displayed in *scratch* buffer at startup.
If this is nil, no message will be displayed.
(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") '(#$ . 22393) :type 'string)
#@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 "You can do basic editing with the menu bar and scroll bar using the mouse.\n\n" :face (variable-pitch :weight bold) "Important Help menu items:\n" :face variable-pitch "Emacs Tutorial	Learn-by-doing tutorial for using Emacs efficiently\nEmacs FAQ	Frequently asked questions and answers\n(Non)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\nOrdering Manuals	How to order Emacs manuals from the Free Software Foundation\n") (:face variable-pitch "You can do basic editing with the menu bar and scroll bar using the mouse.\n\n" :face (variable-pitch :weight bold) "Useful File menu items:\n" :face variable-pitch "Exit Emacs	(Or type Control-x followed by Control-c)\nRecover Session	Recover files you were editing before a crash\n\n\n\n")) (#$ . 22793))
(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 '10 '(#$ . -24049) :group 'fancy-splash-screen :type 'integer)
#@99 *Show splash screens for at most this number of seconds.
Values less than 60 seconds are ignored.
(custom-declare-variable 'fancy-splash-max-time '60 '(#$ . -24205) :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 '(#$ . -24420) :group 'fancy-splash-screen :type '(choice (const :tag "Default" nil) (file :tag "File")))
(byte-code "\301B\304\301!\204\f \305\302B\304\302!\204 \305\303B\304\303!\204$ \305\305\207" [current-load-list fancy-current-text fancy-splash-help-echo fancy-splash-stop-time boundp nil] 2)
#@206 Insert text into the current buffer, with faces.
Arguments from ARGS should be either strings or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'.
(defalias 'fancy-splash-insert #[(&rest args) "\303	\205( 	@\304=\203 	A\211@\202  \305	@\306\307\n%c\210	A\211\204 \303)\207" [current-face args fancy-splash-help-echo nil :face propertize face help-echo] 7 (#$ . 24849)])
#@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\205 \fV\203\205 \fZ\322\245\323\324\325\326\327E#c\210)\330 \331\",\332,\333\334#\210\332,\335\336#\210\332,\337\336#\210\340\n\323\341\342\"\343,%\"\210*\344c\210,-\345=\203\226 \346\347\350\351#\210\202\234 \346\347\352\353#\210\344c\207" [fancy-splash-image image-file img image-width window-width pos 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 2 propertize " " display space :align-to 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" help-echo keymap "\n" gnu/linux fancy-splash-insert :face (variable-pitch :foreground "red") "GNU Emacs is one component of a Linux-based GNU system." (variable-pitch :foreground "red") "GNU Emacs is one component of the GNU operating system." map system-type] 9 (#$ . 25290)])
#@68 Insert the tail part of the splash screen into the current buffer.
(defalias 'fancy-splash-tail #[nil "\301\302\303\"\304=\203 \305\202 \306\307\310\311\312E\313\314 \315\310\316\317&)\207" [fg 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) 2001 Free Software Foundation, Inc."] 9 (#$ . 26559)])
#@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\313 \210\314\315\"\210\316 \210\317 \204/ \320!\210\321\311!\210eb\210\322 \210	A\211)\207" [fancy-splash-stop-time fancy-current-text fancy-splash-text text buffer fancy-splash-help-echo float-time throw stop-splashing nil erase-buffer fancy-splash-head apply fancy-splash-insert fancy-splash-tail current-message message set-buffer-modified-p force-mode-line-update] 3 (#$ . 27007)])
#@56 Default action for events in the splash screen buffer.
(defalias 'fancy-splash-default-action #[nil "	B\302\303\304\"\207" [last-command-event unread-command-events throw exit nil] 3 (#$ . 27553) nil])
#@49 Display fancy splash screens when Emacs starts.
(defalias 'fancy-splash-screens #[nil "\306 \307\310!\210\311\np\312\313\314\215,\207" [fancy-splash-help-echo tab-width display-hourglass minor-mode-map-alist timer old-minor-mode-map-alist startup-echo-area-message switch-to-buffer "GNU Emacs" 20 nil stop-splashing (byte-code "\306\216\307 \310!\210\311\312\313#\210\311\314\315#\210\311\316\315#\210\317\317\317\320\321\322\323\324#\325 \326]\\\327\330\331$\332 *\207" [map cursor-type display-hourglass minor-mode-map-alist buffer-undo-list mode-line-format ((byte-code "\306!\210	\307!\207" [timer old-hourglass display-hourglass old-minor-mode-map-alist minor-mode-map-alist splash-buffer cancel-timer kill-buffer] 2)) make-sparse-keymap use-local-map define-key [t] fancy-splash-default-action [mouse-movement] ignore [mode-line t] nil t propertize "---- %b %-" face (:weight bold) float-time 60 run-with-timer 0 fancy-splash-screens-1 recursive-edit fancy-splash-max-time fancy-splash-stop-time fancy-splash-delay splash-buffer timer] 5) splash-buffer old-hourglass] 4 (#$ . 27763)])
#@50 Return t if fancy splash screens should be used.
(defalias 'use-fancy-splash-screens-p #[nil "\304 \203 \305\306!\204 \305\307!\205= \310\206& \304 \203% \305\306!\203% \311\202& \312!\211\2050 \313	!A\303\314 !S\211\n\315\\V+\207" [fancy-splash-image img image-height window-height display-color-p image-type-available-p xpm pbm create-image "splash.xpm" "splash.pbm" image-size selected-window 15] 4 (#$ . 28894)])
(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 !)\207" [resize-mini-windows t message startup-echo-area-message] 2])
(defalias 'command-line-1 #[(command-line-args-left) "\204? \306 \204? 	\204? \n\203< \203< \302\307N\203, \n\f\310\230\203' \311 \202( \f\232\204? \312\313!\314\315\316\217\317!\210)\204? \320 \210@\204\342A?\205\341?\205\341\321 \322\230\205?\203_ \323\324!\210\314\325\326!\203k \326 \210\203w \323\327!\210\314\330 \203 \331 \210\332B\333 \334U\205\341\332\335\332CDE\336\216\306 ?\205\340db\210\337c\210F\340=\203\252 \341c\210\342c\210\343\344 \236\203\317 \345 \203\302 \314C\346 \210\202\313\347c\210\350\351 \352\261\210\202\313\353\354!\355=\203\353\356!\357=\203\353\360!\361=\203\353\362!\363=\203\353\364!\365=\203\353\366!\367=\203\370c\210\202 \371\372\373\374\355\314\332#\211G\203\375G!\202\376)\"!c\210\353\377!\201` =\203>\353\201a !\201` =\203>\201b c\210\202E\371\201c !c\210\201d  \203Q\201e c\210\201f c\210H\203\221\201g \201h H!!\203\221\201i \201h H!\314\201j \201k \201l H!!P\332$\203\221\201m \201n \201o \261\210\350\351 \352\261\210\353\201p !\201q =\203\304\353\201r !\201s =\203\304\353\201t !\201u =\203\304\201v c\210\202\313\371\201w !c\210eb\210\201x \314!\210C\205\340\201y \201z !,\207	\203\356\201y \201{ !\210I\334\314\211\211\201| \201} \201~ \201 J\"\"\334\211KLMNOPQRS\211O\203?\201\200 \201\201 O@@\"\2036O@@CMBMOA\211O\204@\203\"@@\211TU\314V\314W\314XYZ@A@N\203i\310T\202\345\201\200 \201\202 T\"\203\206T\334\225\314OVT\334\211\225SOTT\201\203 \232\203\225\314W\202\237\201\204 TM\"WW\332=\203\262T\201\205 \314OT\202\345W;\203\336\201\206 WM\"\211[\204\320\201\207 \201\210 T\"\210[@\201\205 \314OT)\202\345\314VUT\201\206 TJ\"\211O\203V\203\nV@B@OAT!\210)\202OAT!\210\202T\201\211 \230\204/T\201\212 \230\204/T\201\213 \230\203hV\203?\201\214 V!O\202M\201\214 @@!O@A@\201\215 OK!\203a\201\216 O!\210\202O \210\202T\201\217 \230\204zT\201\220 \230\203\236V\203\206VO\202\220@@O@A@\201\221 \201\222 O!!\210\202T\201\223 \230\204\260T\201\224 \230\203\347V\203\274VO\202\306@@O@A@\201\225 O!O\201\226 O!XBX\201| X\237Z\"Y\202T\201\227 \230\204\371T\201\230 \230\2039V\203VO\202@@O@A@\201\225 O!\\\201\231 \201\226 \\!!\203,\201\226 \\!\\\201\232 \\\314\332#\210)\202T\201\233 \230\203tV\203NVO\202X@@O@A@O;\204f\201\207 \201\234 !\210\201\235 \201\225 O!!\210\202T\201\236 \230\203\206\201\237 \332!\210\202\201\200 \201\240 T\"\203\235\201\241 T!L\202\201\200 \201\242 T\"\203\312\201\241 \201\243 \201\205 T\"!L\201\241 \201\243 \201{ T\"!K\202\201\206 TS\"\211O\203\344OA@@\233@\202T\201\244 \230\204\377T\201\245 \230\204\377T\201\246 \230\203~V\203VO\202@@O@A@O;\204%\201\207 \201\247 T\"\210QTQ\201\226 \201\225 O!R\"\\Q\201\205 U\203L\201\250 \\!P\202S\201\251 \\!\210)\201\252 L!\204d\201\253 L!\210\334LK\201\205 W\204x\201\254 KS!\210\334K\202T\201\203 \232\203\215\332N\202]\314^\211_\203\253_@ \211^\204\253_A\211_\204\230^\204\201\200 \201\255 T\"\203\306\201\207 \201\256 T\"\210QTQ\201\226 \201\225 U!R\"\\Q\201\205 U\203\355\201\250 \\!P\202\364\201\251 \\!\210)\201\252 L!\204\201\253 L!\210\334LK\201\205 W\204\201\254 KS!\210\334K*.\202?Q\201{ V\205=?\205=\201\257 P!\206=\201\260  .\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 "\212q\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 display-startup-echo-area-message buffer-name "*scratch*" run-hooks term-setup-hook fboundp frame-notice-user-settings window-setup-hook display-popup-menus-p precompute-menubar-bindings t buffer-size 0 8 ((byte-code "r\301\302!q\210\303 \210\203 c\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 use-fancy-splash-screens-p fancy-splash-screens "You can do basic editing with the menu bar and scroll bar using the mouse.\n\nUseful File 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.\nEmacs FAQ		Frequently asked questions and answers\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.\nOrdering Manuals	How to order manuals from the FSF.\n" "\n\n" emacs-version "\nCopyright (C) 2001 Free Software Foundation, Inc." key-binding "" 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\nOrdering manuals   C-h RET" substitute-command-keys 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]\nOrdering manuals   \\[view-order-manuals]" where-is-internal key-description "M-x help" "\340" command-line-args-left inhibit-startup-message menubar-bindings-done wait-for-input tab-width buffer-undo-list system-type where auto-save-list-file-prefix command-line-default-directory command-switch-alist column 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 tmm-menubar [f10] "\nActivate menubar   F10  or  ESC `  or   M-`" "\nActivate menubar     \\[tmm-menubar]" display-mouse-p "\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.)" file-directory-p file-name-directory directory-files "\\`" 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.\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." set-buffer-modified-p sit-for 120 2 append (("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval") ("--execute") ("--find-file") ("--visit") ("--file")) 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" "-execute" 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 "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" match-string "-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'" get-buffer-window list-buffers] 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 (#$ . 38085)])