;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Nov 17 14:15:28 1995
;;; from file /home/fsf/rms/e19/lisp/startup.el
;;; emacs version 19.29.91.3.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`startup.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÂ‡" [(normal-top-level) top-level nil] 1)
#@40 t once command line has been processed
(defvar command-line-processed nil (#$ . 528))
#@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.
(defconst inhibit-startup-message nil (#$ . -621))
#@461 *Non-nil inhibits the initial startup echo area message.
Inhibition takes effect only 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.
(defconst inhibit-startup-echo-area-message nil (#$ . -834))
#@50 *Non-nil inhibits loading the `default' library.
(defconst inhibit-default-init nil (#$ . -1361))
#@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'.
(defconst command-switch-alist nil (#$ . 1466))
#@46 List of command-line args not yet processed.
(defvar command-line-args-left nil (#$ . 1732))
#@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 (#$ . 1832))
#@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 (#$ . 2284))
#@184 Functions to call after handling urgent options but before init files.
The frame system uses this to open frames to display messages while
Emacs loads the user's initialization file.
(defvar before-init-hook nil (#$ . 2468))
#@203 Functions to call after loading the init file (`~/.emacs').
The call is not protected by a condition-case, so you can set `debug-on-error'
in `.emacs', and put all the actual code on `after-init-hook'.
(defvar after-init-hook nil (#$ . 2700))
#@233 Functions to be called after loading terminal-specific Lisp code.
See `run-hooks'.  This variable 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 (#$ . 2950))
#@189 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 value TERM.
(defvar keyboard-type nil (#$ . 3230))
#@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 (#$ . 3464))
#@68 Major mode command symbol to use for the initial *scratch* buffer.
(defconst initial-major-mode (quote lisp-interaction-mode) (#$ . 3665))
#@550 Identity of user whose `.emacs' file is or was read.
The value is nil if no init file is being used; otherwise, it may be either
the null string, meaning that the init file was taken from the user that
originally logged in, or it may be a string containing a user's name.

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 (#$ . 3811))
#@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.
(defvar site-run-file "site-start" (#$ . 4407))
#@184 Regexp that specifies when to enable the ISO 8859-1 character set.
We do that if this regexp matches the locale name
specified by the LC_ALL, LC_CTYPE and LANG environment variables.
(defconst iso-8859-1-locale-regexp "8859[-_]?1" (#$ . 5206))
#@54 *Name of this machine, for purposes of naming users.
(defvar mail-host-address nil (#$ . -5456))
#@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'.
(defvar user-mail-address nil (#$ . -5560))
#@143 Prefix for generating auto-save-list-file-name.
Emacs's pid and the system name will be appended to
this prefix to create a unique file name.
(defvar auto-save-list-file-prefix "~/.saves-" (#$ . 5764))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄBÂ‡" [boundp init-file-debug nil current-load-list init-file-had-error] 2)
(defalias 'normal-top-level-add-to-load-path #[(dirs) "	‰ÃÄÅ\"\nA\"¡)‡" [default-directory load-path tail append mapcar expand-file-name dirs] 6])
(defalias 'normal-top-level #[nil "ƒ ÁÂ!‡Ã\fŠÆÇ!qˆ*É\n‰ƒB @\nB\n@ÌÍÎ@\"Ã‰‰$ˆ)A‰„  *Ð=„r ÑÒ!‰;ƒq ÔÕ!ÖP!ÔÕ\f!ÖP!š„q ×ØP\")Ú\f!ÉÜŽÝ *‡" [command-line-processed message "Back to top level." t default-directory dir get-buffer "*Messages*" load-path nil new tail load expand-file-name "subdirs.el" system-type vax-vms getenv "PWD" pwd file-attributes file-name-as-directory "." delete "PWD=" process-environment abbreviate-file-name menubar-bindings-done ((byte-code "À	!ÂÃÄÆ Ç $!ÉÊ!ˆƒ ÉË!ˆÌÍ!ƒ& Í ˆÌÎ!ƒ/ Î ˆƒ8 ÉÏ!ˆ„N Ò=„K Ó=ƒN Ô ˆÀ‡" [abbreviate-file-name default-directory expand-file-name format "%s%d-%s" auto-save-list-file-prefix emacs-pid system-name auto-save-list-file-name run-hooks emacs-startup-hook term-setup-hook fboundp frame-notice-user-settings font-menu-add-default window-setup-hook menubar-bindings-done window-system x win32 precompute-menubar-bindings] 6)) command-line] 6])
(defalias 'precompute-menubar-bindings #[nil "À	Â\"‰ƒ> @:ƒ7 @@9ƒ7 @A¢;ƒ7 Ä@AA!ƒ7 ÅÆ@AA\"ˆƒ7 È ˆA‰„	 )É‰\n‡" [lookup-key global-map [menu-bar] submap keymapp x-popup-menu nil purify-flag garbage-collect t define-key-rebound-commands] 4])
(defalias 'command-line #[nil "ÂÃ!‰Å=„? \fÆ˜„ \fÇ˜ƒ È	‚? \fÊ˜„* \fË˜ƒ0 Å	‚? \fÌ˜„< \fÍ˜ƒ? Î	)ÂÏ!‰Ñš?…N )†s ÂÒ!‰Ñš?…` )†s ÂÓ!‰Ñš?…r )‰… Õ\")ƒ ×Ø!ˆÙÈ!ˆ×Ú!ˆÛÜÝˆÅA !?…¤ â ‰#ƒµ #ä ˜ƒµ Ñ# „àƒàå@Å&'(Õé'\"ƒê Õê'\"ƒê 'ë•ÅO&'ë‰”O'ì'(\"‰-È=ƒ'îÅO'‚)-;ƒ&ï-(\"‰0„Ûñ'\"ˆ0@îÅO')‚)Å&)'ò˜„8'ó˜ƒCÅ#A‚Ï'ô˜„Q'õ˜ƒn&„_A‰@&&#Å&A‚Ï'ö˜ƒ€Å7A‚Ï'ø˜ƒ’È9A‚Ï'ú˜ƒ§û<B<A‚Ï'ý˜„¼'þ˜„¼'ÿ˜ƒÌ@ ABAA‚ÏÈ &ƒÜÛB '\"ˆ+‚µ ƒë¡ˆ*C D !ƒûD  ˆC E !ƒ\nE  ˆFG =„FH =ƒ*I J  žAëVƒ0K È!ˆL M !ˆ7ƒFN 7È‰#ˆÅOÅ‰9È=ƒXP ‚Z9QRSQT UV9ƒuU ˆ‚~ÛW X ˆVQ=„ÈRVS*Rƒ—SV+Y„®â Z [†«\\  QYL ] !ˆ^ _ !ƒÔŠ_ qˆ`a =ƒÓb ˆ)cƒ !„ F„ Âd !Åe‰fƒN cfPÈ‰#„Õg f\"‰eƒfëeO‰f‚îÅ‰f„ñ*h A!ˆ!…2i È!‡" [default-directory command-line-default-directory getenv "VERSION_CONTROL" vc nil "t" "numbered" t version-control "nil" "existing" "never" "simple" never "LC_ALL" string "" "LC_CTYPE" "LANG" ctype string-match iso-8859-1-locale-regexp require disp-table standard-display-european iso-syntax error (byte-code "ƒ 	„ ÂÄ!ÅQÆÇ#ˆÆ‡" [window-system noninteractive load term-file-prefix symbol-name "-win" nil t] 4) ((error (byte-code "À	@Á=ƒ ÂÃ	A\"‚6 Ä	@ÅN>ƒ) ÆÇ	A@ÈÉ	AAÊ##‚6 ÆÇ	@ËNÈÌ	AÊ##Í\"ˆÎÐ ‡" [princ error apply concat file-error error-conditions format "%s: %s" mapconcat #[(obj) "À	Â\"‡" [prin1-to-string obj t] 3] ", " error-message #[(obj) "À	Â\"‡" [prin1-to-string obj t] 3] external-debugging-output nil window-system kill-emacs] 8))) command-line-args args done noninteractive user-login-name init-file-user user-real-login-name (("--no-init-file") ("--no-site-file") ("--user") ("--debug-init") ("--iconic") ("--icon-type")) argval argi longopts "\\`--" "=" 0 try-completion completion 1 assoc elt "Option `%s' is ambiguous" "-q" "-no-init-file" "-u" "-user" "-no-site-file" site-run-file "-debug-init" init-file-debug "-iconic" (visibility . icon) initial-frame-alist "-icon-type" "-i" "-itype" (icon-type . t) default-frame-alist "Option `%s' doesn't allow an argument" fboundp face-initialize frame-initialize window-system x win32 menu-bar-lines frame-parameters menu-bar-mode run-hooks before-init-hook load inhibit-startup-message startup debug-on-error-initial debug-on-error-should-be-set debug-on-error-from-init-file #[nil "…A 	Â=ƒ ÃÄQ‚) 	Å=ƒ Æ‚) 	Ç=ƒ% È‚) ÃÉQ\nË\nÌ‰‰$ˆ†A ÎËÐÌ‰#)‡" [init-file-user system-type ms-dos "~" "/_emacs" windows-nt "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" user-init-file load t inhibit-default-init nil inhibit-startup-message "default"] 5] inner debug-on-error (byte-code " ˆÁÁ‡" [inner nil init-file-had-error] 1) ((error (byte-code "ÀÁ\n@ÃN\nAƒ Ä‚ ÅÆÇ\nAÈ#$ˆÉ\nÀ‡" [message "Error in init file: %s%s%s" error error-message ": " "" mapconcat prin1-to-string ", " t init-file-had-error] 8))) user-mail-address "@" mail-host-address system-name after-init-hook get-buffer "*scratch*" major-mode fundamental-mode initial-major-mode term-file-prefix "TERM" hyphend term "[-_][^-_]+$" command-line-1 kill-emacs] 5])
(defalias 'command-line-1 #[(command-line-args-left) "„5 Á „5 \n„5 ƒ# ÄÅ!ÇÈÉÊ!ˆ)„5 ËÌÍ!Î=ƒ0 Ï‚3 ÐÑ!!ˆ„Z?…Y?…YÔ Õ˜…YÁ ?…Xƒ[ ×Ö!ˆÇØÙ!ƒg Ù ˆƒp ×Ú!ˆÇÜ=„ Ý=ƒ„ Þ ˆß áŽâ ã±ˆÌä!å=ƒ½ Ìæ!ç=ƒ½ Ìè!é=ƒ½ Ìê!ë=ƒ½ Ìì!í=ƒ½ îcˆ‚Ø ÐïðñåÇß#‰2ƒÒ ó2!‚Ó ô)\"!cˆõö ž„ò Ì÷!ø=ƒí ùcˆ‚ò Ðú!cˆ;ü>„þ ƒýcˆþÿÇ@ ß$ƒA B C ±ˆÌD !E =ƒDÌF !G =ƒDÌH !I =ƒDJ cˆ‚KÐK !cˆL Ç!ˆM N !)‡\nƒfM O !ˆPQ ÇQ RSTUƒ9@‰VWX Y Z [ \\\"\"]Ç^Ç_Ç`ÇabcAd e V\"ƒÌVQ •ÇO_VQ ‰•SOVf V]\"‰`ß=ƒèVg ÇOV‚`;ƒh `]\"‰i„j k V\"ˆi@g ÇOV)‚Ç_WVh V\\\"‰^ƒJ_ƒ@_B^AV!ˆ)‚4^AV!ˆ‚4Vl ˜„eVm ˜„eVn ˜ƒž_ƒuo _!^‚ƒo @!^Ap ^K!ƒ—q ^!ˆ‚4^ ˆ‚4Vr ˜ƒË_ƒ³_^‚½@^As t ^!!ˆ‚4Vu ˜„ÝVv ˜ƒ\f_ƒé_^‚ó@^Aw ^!aBaX aŸc\"b‚4Vx ˜„Vy ˜ƒZ_ƒ*_^‚4@^A^z{ w z!!ƒMw z!z| zÇß#ˆ)‚4V} ˜ƒ‘_ƒo_^‚y@^A^;„‡j ~ !ˆ ^!ˆ‚4V€ ˜ƒ£ ß!ˆ‚4d ‚ V\"ƒºƒ V!R‚4„Ç…‰†ƒØ†@ ‰…„Ø†A‰†„Å…„3d ‡ V\"ƒój ˆ V\"ˆTT‰Tg Uƒ‰ w VU\"!S‚Š w VU\"!ˆ‹ R!„.Œ R!ˆQ R*.‚wTO V…W S!†WŽ g !ˆ  ,‡" [noninteractive input-pending-p init-file-had-error inhibit-startup-echo-area-message get-buffer-create " *temp*" buffer nil (byte-code "ŠqˆÁ\n!ˆÃÄÅÆÇÉ˜ƒ Ê ‚ !!ËRÌÍ#)‡" [buffer insert-file-contents user-init-file re-search-forward "([ 	\n]*setq[ 	\n]+" "inhibit-startup-echo-area-message[ 	\n]+" regexp-quote prin1-to-string init-file-user "" 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]." command-line-args-left inhibit-startup-message buffer-name "*scratch*" term-setup-hook run-hooks fboundp frame-notice-user-settings window-setup-hook window-system x win32 precompute-menubar-bindings t menubar-bindings-done ((byte-code "ŠÀÁ!qˆÂ ˆÃÄ!ˆ)Ä‡" [get-buffer "*scratch*" erase-buffer set-buffer-modified-p nil] 2)) emacs-version "\nCopyright (C) 1995 Free Software Foundation, Inc." "" help-command "u" advertised-undo "" save-buffers-kill-emacs "t" help-with-tutorial "i" info "\n\nType C-h for help; C-x u to undo changes.  (`C-' means use CTRL key.)\nTo kill the Emacs job, type C-x C-c.\nType C-h t for a tutorial on using Emacs.\nType C-h i to enter Info, which you can use to read GNU documentation." format "\n\nType %s for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)\nTo kill the Emacs job, type \\[save-buffers-kill-emacs].\nType \\[help-with-tutorial] for a tutorial on using Emacs.\nType \\[info] to enter Info, which you can use to read GNU documentation." where-is-internal where key-description "M-x help" display frame-parameters "à" tmm-menubar "\n\nType F10, ESC ` or Meta-` to use the menu bar." "\n\nType \\[tmm-menubar] to use the menu bar." system-type (msdos windowsnt) "\n\nC-mouse-3 (third mouse button, with Control) gets a mode-specific menu." directory-files "~/" "\\`\\.saves-" "\n\nIf an Emacs session crashed recently,\n" "type M-x recover-session RET to 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 command-line-default-directory 0 line first-file-buffer file-count dir argi orig-argi append (("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval")) mapcar #[(elt) "À	@PC‡" ["-" elt] 2] command-switch-alist longopts tem argval completion extra-load-path load-path initial-load-path string-match "^--[^=]*=" try-completion 1 assoc elt error "Option `%s' is ambiguous" "-f" "-funcall" "-e" intern arrayp command-execute "-eval" eval read "-L" "-directory" expand-file-name "-l" "-load" file file-exists-p load "-insert" "File name omitted from `-insert' option" insert-file-contents "-kill" kill-emacs "^\\+[0-9]+\\'" string-to-int command-line-functions did-hook hooks "\\`-" "Unknown option `%s'" find-file find-file-other-window zerop goto-line get-buffer-window other-window buffer-menu] 8])