;ELC   
;;; compiled by jwz@thalidomide on Wed May 25 23:53:52 1994
;;; from file /u/jwz/emacs19/lisp/prim/startup.el
;;; emacs version 19.10 Lucid.
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(fset 'command-line-do-help #[(arg) "ÀÂÃ!«‰ÄÅ !ˆÄÆ!ˆÄÇ !ˆÄÈ!ˆÉÊ!«’ÄÂÃ!«ƒËªÌ!ˆÄÍ!ˆª„ÄÎ!ˆÄÏ!ˆÑ‰ƒÜ @@@AÔ‰‰9«†ÚN¬ïÛ!‰Ü«ƒÝÞß\"«“à”à•Oá‰”OªÞâ\"«ˆá‰”Oã\"‰«@=¬ˆäå@\"«‹æ#ˆª†!ˆÄ!ˆç ˆ-A‰„C *Äè!ˆÄé!ˆêá!)‡" [external-debugging-output standard-output featurep sunpro princ era-version "\n" emacs-version "\n\n" fboundp x-create-screen "XEmacs" "Lucid Emacs" " accepts all standard X Toolkit command line options.  In addition,\nthe " "The " "following options are processed in the order encountered:\n\n" command-switch-alist #[(&rest x) "ÀÁ!ˆÂ«‘À@!ˆ@G\\A‰¬oÅY«…Æ ˆÇÅW­ŠÀÈ!ˆT‰ªr)‡" [princ "  " 2 len x 24 terpri 0 " "] 3] insert l nil cons arg doc fn name undocumented documentation (nil "") "(undocumented)" string-match "\n\\(<.*>\\)\n?\\'" 1 0 "\n+\\'" rassq format "Same as %s." " " terpri "  +N <file>             Start displaying <file> at line N.\n\nThese options are processed only if they appear before all other options:\n\n  -batch                Execute noninteractively (messages go to stderr.)\n                        This option must be first in the list.\n  -nw                   Inhibit the use of any window-system-specific\n                        display code: use the current tty.\n  -unmapped             Do not map the initial screen.\n  -no-site-file         Do not load the site-specific init file (site-run.el).\n  -no-init-file         Do not load the user-specific init file (~/.emacs).\n  -q                    Same as -no-init-file.\n  -user <user>          Load user's init file instead of your own.\n  -u <user>             Same as -user." "\n\nAnything else is considered a file name, and is placed into a buffer for\nediting.\n\nEmacs has an online tutorial and manuals.  Type ^Ht (Control-h t) after\nstarting emacs to run the tutorial.  Type ^Hi to enter the manual browser.\n" kill-emacs] 6 "\
Print this message and exit."])
(defvar directory-abbrev-alist nil "\
*Alist of abbreviations for file directories.
A list of elements of the form (FROM . TO), each meaning to replace
FROM with TO when it appears in a directory name.
This replacement is done when setting up the default directory of a
newly visited file.  *Every* FROM string should start with \\\\` or ^.

Use this feature when you have directories which you normally refer to
via absolute symbolic links.  Make TO the name of the link, and FROM
the name it is linked to.")
(defvar abbreviated-home-dir nil "\
The user's homedir abbreviated according to `directory-abbrev-alist'.")
(fset 'abbreviate-file-name #[(filename &optional hack-homedir) "‰«˜Â	@@\"«Š	@AÄ•ÅOP	A‰¬h)«Ä¬ÈÉÊËÌÍ!!!ÎQ)Â\"«©Ä•ÏU«‡ÄHÐU¬œÍ‰GSHÐ=«ƒÑªÒÏ”Ï•OÄ•ÅOR‡" [directory-abbrev-alist tail string-match filename 0 nil hack-homedir abbreviated-home-dir "$foo" "\\`" regexp-quote abbreviate-file-name expand-file-name "~" "\\(/\\|\\'\\)" 1 47 "/" ""] 7 "\
Return a version of FILENAME shortened using `directory-abbrev-alist'.
See \\[describe-variable] directory-abbrev-alist RET for more information.
If optional argument HACK-HOMEDIR is non-nil, then This also substitutes
\"~\" for the user's home directory."])
(byte-code "ÀÂ‡" [(normal-top-level) top-level nil] 1)
(defvar command-line-processed nil "\
t once command line has been processed")
(byte-code "ÀÀ‡" [120 startup-message-timeout] 1)
(defconst inhibit-startup-message nil "\
*Non-nil inhibits the initial startup messages.
This is for use in your personal init file, once you are familiar
with the contents of the startup message.")
(defconst inhibit-default-init nil "\
*Non-nil inhibits loading the `default' library.")
(defconst command-switch-alist nil "\
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 before-init-hook nil "\
Functions to call after handling urgent options but before loading init file.")
(defvar after-init-hook nil "\
Functions to call after loading the init file (`~/.emacs').")
(defvar term-setup-hook nil "\
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 keyboard-type nil "\
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 window-setup-hook nil "\
Function called to initialize window system display.
Emacs calls this after processing the command line arguments and loading
the user's init file.

Users should not set this variable; use `term-setup-hook' instead.")
(defconst initial-major-mode 'lisp-interaction-mode "\
Major mode command symbol to use for the initial *scratch* buffer.")
(defvar init-file-user nil "\
Identity of user whose `.emacs' file is or was read.
The value may be the null string or a string containing a user's name.
If the value is a null string, it means that the init file was taken from
the user that originally logged in.

In all cases, `(concat \"~\" init-file-user \"/\")' evaluates to the
directory name of the directory where the `.emacs' file was looked for.")
(defvar site-start-file (purecopy "site-start") "\
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'.")
(byte-code "ÀÁ!¬‚ÂÀÃ!¬‚ÂÀÄ!¬‚ÂÂ‡" [boundp init-file-debug nil init-file-had-error initial-screen-unmapped-p] 2)
(fset 'command-line-do-funcall #[(arg) "À	@!	A\n )‡" [intern command-line-args-left fn] 2 "\
Invoke the named lisp function with no arguments.
<function>"])
(byte-code "ÀÁMˆÂÀÃÄ#‡" [command-line-do-funcall-1 command-line-do-funcall put undocumented t] 4)
(fset 'command-line-do-eval #[(arg) "@AÂÃ	!!)‡" [command-line-args-left form eval read] 3 "\
Evaluate the lisp form.  Quote it carefully.
<form>"])
(fset 'command-line-do-load #[(arg) "@ÂÃ	!!«„Ã	!Ä	ÅÆ#ˆ)A‰‡" [command-line-args-left file file-exists-p expand-file-name load nil t] 4 "\
Load the named file of Lisp code into Emacs.
<file>"])
(fset 'command-line-do-insert #[(arg) "À	@!ˆ	A‰‡" [insert-file-contents command-line-args-left] 2 "\
Insert file into the current buffer.
<file>"])
(fset 'command-line-do-kill #[(arg) "ÀÁ!‡" [kill-emacs t] 2 "\
Exit Emacs."])
(fset 'command-line-do-version #[(arg) "ÀÁ ÂPÃ\"ˆÄÅ!«ˆÀÆ ÂPÃ\"ˆÇÈ!‡" [princ emacs-version "\n" external-debugging-output featurep sunpro era-version kill-emacs 0] 3 "\
Print version info and exit."])
(byte-code "ÀÁ!ÃÄMˆÅÆMˆÇÈMˆÉÊMˆËÌMˆÍÎMˆÏÐ!¬ƒÑÒÓMˆÔÕMˆÖ×MˆØÙMˆÚÛMˆÜÝMˆÞßM‡" [purecopy (("-help" . command-line-do-help) ("-version" . command-line-do-version) ("-funcall" . command-line-do-funcall) ("-f" . command-line-do-funcall) ("-e" . command-line-do-funcall-1) ("-eval" . command-line-do-eval) ("-load" . command-line-do-load) ("-l" . command-line-do-load) ("-insert" . command-line-do-insert) ("-i" . command-line-do-insert) ("-kill" . command-line-do-kill)) command-switch-alist early-error-handler #[(&rest debugger-args) "À	A@ÂÃ¬ˆÈ\"ˆªŸÈÉÊQ\"ˆÂËÌˆÈÉ\"ˆ¢Í>«…ÈÎ\"ˆÏ‰ÐÂÕÖ!«ŠÈ×ØÕÖ!\"\"ˆÈ×Ù\"\"ˆÈ×Û\"\"ˆÈ×Ý\"\"ˆÈß\"ˆ,àÐ\"ˆ,áâ!‡" ["Initialization error" debugger-args nil external-debugging-output stream debug-on-error error string princ "\n" ": " (display-error error stream) ((error (princ "<<< error printing error message >>>" stream))) (void-function void-variable) "\n	This probably means that lemacs is picking up an old version of\n	the lisp library, or that some .elc files are not up-to-date.\n" 1000 t print-readably print-escape-newlines print-level print-length getenv "EMACSLOADPATH" format "\n$EMACSLOADPATH is %s" "\nexec-directory is %S" exec-directory "\ndata-directory is %S" data-directory "\nload-path is %S" load-path "\n\n" backtrace kill-emacs -1] 5] normal-top-level #[nil "«„ÁÂ!‡ÃÅ=¬£ÆÇ!‰«šG	GW«‘Ê	!Ê!š«†Ë!	)Ì	!	ÍŽÎ )‡" [command-line-processed message "Back to top level." t system-type vax-vms getenv "HOME" value default-directory file-attributes file-name-as-directory abbreviate-file-name ((byte-code "À	!ÂÃ!ˆÂÄ!ˆÅÂÆ!ˆÅÅ‡" [abbreviate-file-name default-directory run-hooks emacs-startup-hook term-setup-hook nil window-setup-hook] 2)) command-line] 4] command-line-early #[nil "ÀÁ!‰Ã=¬«\nÄ˜¬…\nÅ˜«…Æªœ\nÈ˜¬…\nÉ˜«…Ãª\nÊ˜¬…\nË˜«ƒÌ)ÃÎ ?­‚Ï ‰«ŠÑ ˜«ƒÒ?­ð­ì@‰Õ˜¬†Ö˜«ŠÃAªÏ×˜«ŠÃAª¿Ù˜¬†Ú˜«A‰@Aª£Û˜«ŠÆAª“Ý˜«ŠÆAªƒÆ)ª)‡" [getenv "VERSION_CONTROL" vc nil "t" "numbered" t version-control "nil" "existing" "never" "simple" never done noninteractive user-login-name init-file-user user-real-login-name "" command-line-args-left argi "-q" "-no-init-file" "-no-site-file" site-start-file "-u" "-user" "-debug-init" init-file-debug "-unmapped" initial-screen-unmapped-p] 3] command-line #[nil "AÂÃÆ ˆÇ ˆ«‘	¬ÊÌ!ÍQÎÃ#ˆÏ ˆ*Ð ˆÑÒ!«ŠÒqˆÔ=«„ ˆ)«ºÉ ¬¶¬²Ö×!Î‰«¦ÊPÃ‰#¬›ÚÛ\"‰«‹ÜO‰ª^Î‰¬Z*Ý ˆÉ ­ƒÞÃ!)‡" [command-line-args command-line-args-left early-error-handler t debug-on-error debugger set-default-load-path command-line-early window-system noninteractive load term-file-prefix symbol-name "-win" nil screen-initialize load-init-file get-buffer "*scratch*" major-mode fundamental-mode initial-major-mode getenv "TERM" hyphend term string-match "[-_][^-_]+\\'" 0 command-line-1 kill-emacs] 5] load-init-file #[nil "ÀÁ!ˆ\n«†Ã\nÄ‰#ˆÅÇ	«ŠÄ\n ˆ)ª…ËÌÍˆ)ÀÎ!ˆÅ‡" [run-hooks before-init-hook site-start-file load t nil inhibit-startup-message #[nil "­ŸÁ\nÃ=«ƒÄª„ÅÆQÇ‰‰$ˆ®‰É\nÁËÇ‰#)‡" [init-file-user load system-type vax-vms "sys$login:.emacs" "~" "/.emacs" t inhibit-default-init nil inhibit-startup-message "default"] 5] load-init-file init-file-debug debug-on-error error (funcall load-init-file) ((error (byte-code "ÀÁ!ˆÂÄ\"‡" [message "Error in init file: " display-error error nil] 3))) after-init-hook] 4] command-line-1 #[nil "¬ï	?­êÂ ?­åÃ Ä˜­ßÅ ?….ÆÇ!ˆÈÉŽÊ Ë±ˆÌÍ!«†Î Ë±ˆÏcˆÌÍ!¬ƒÐcˆÑÒ!cˆÓcˆ`Ô×ØÙ\"ÛØÜ\"Ý±ˆÞ`\"ˆ*ß ˆàÈ!ˆebˆá\"!)‡#äÈ‰%&'(ƒ@È)*A%¬Êë*,\"®íî*\"­‰ë*ïÈO,\"‰)«‰)A*!ˆªÛíð*\"«ˆñ*!%ªÌ*òš¬†*óš«†ä‰%ªÈ¬·'T'Ø*(\"*'ïU«Šô*!ˆp&ª\n«‡ô*!ˆª…õ*!ˆö%®ä!ˆÈ%*‚ \n?­“'÷V­ø&!®‡ùï!ˆúÈ!,‡" [command-line-args-left inhibit-startup-message noninteractive buffer-name "*scratch*" input-pending-p run-hooks term-setup-hook nil ((byte-code "ŠÀÁ!qˆÂ ˆÃÄ!ˆ)Ä‡" [get-buffer "*scratch*" erase-buffer set-buffer-modified-p nil] 2)) emacs-version "\n" featurep sunpro era-version "Copyright (C) 1985-1990 Free Software Foundation, Inc.\nCopyright (C) 1990-1994 Lucid, Inc.\nCopyright (C) 1993-1994 Sun Microsystems, Inc." "\n\nThis version of Emacs is a part of Lucid's Energize Programming System,\na C/C++ development environment.  Send mail to lucid-info@lucid.com for\nmore information about Energize, or about Lucid Emacs support." substitute-command-keys "\n\nType \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use the CTRL key.)\nTo get out of Emacs, 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 documentation.\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." "\n\n" 76 fill-column p "For customization examples, see the files " expand-file-name "sample.emacs" data-directory " and " "sample.Xdefaults" ".\n" fill-region fontify-copyleft set-buffer-modified-p sit-for startup-message-timeout default-directory 0 line first-file-buffer file-count dir tem argi assoc command-switch-alist string-match "\\`--" 1 "\\`\\+[0-9]+\\'" string-to-int "-" "--" find-file find-file-other-window goto-line 2 get-buffer-window other-window buffer-menu] 6] boundp insert-xemacs-logo-indent 30 insert-xemacs-logo-real #[nil "ÀÁ!ˆÂÄÅ!®ƒÄÆ!‰«…ÇªÄÉ!®ƒÄÊ!‰«ƒË«‡ÌÁ\"ˆª‘ÍÎÁ\"ˆÏÁ!ˆÂÐÑˆÒ)jˆ`ÔcˆÕÖ`\"Á\")‡" [make-face xemacs-logo nil font try-font "-*-palatino-bold-i-*-*-*-600-*-*-*-*-*-*" "-*-helvetica-bold-o-*-*-*-600-*-*-*-*-*-*" 22 insert-xemacs-logo-indent "-*-palatino-bold-i-*-*-*-400-*-*-*-*-*-*" "-*-helvetica-bold-o-*-*-*-400-*-*-*-*-*-*" 24 set-face-font copy-face default make-face-bold (byte-code "ÀÁ!ˆÀÁ!ˆÀÁ!ˆÀÁ!‡" [make-face-larger xemacs-logo] 2) ((error)) 32 p "XEmacs" set-extent-face make-extent] 5] insert-xemacs-logo #[nil "ÀÁÂ‡" [nil (insert-xemacs-logo-real) ((error (byte-code "ÀjˆÁc‡" [32 "XEmacs"] 1)))] 3] fontify-copyleft #[nil "…£ ÁÂ!…£ ŠÃebˆÅÆÃÇ#«ŒÂÈÉ”É•\"Ê\"ˆªmebˆÅËÃÇ#«ŒÂÈÉ”É•\"Ì\"ˆªmebˆÍÎÃÇ#«ŠÂÈÉ”É•\"Ï\"ˆebˆÍÐÃÇ#«ŠÂÈÉ”É•\"Ï\"ˆÅÑÃÇ#«ŠÂÈÉ”É•\"Ï\"ˆebˆÒcˆÓÔ!«ŽÕ ˆÒcˆÖjˆ×cˆª•ØcˆÙÈ``\"\"ˆÛcˆÜjˆÝcˆÛc*‡" [window-system fboundp set-extent-face nil case-fold-search re-search-forward "\\b\\(C-[xh]\\( \\([CM]-\\)?.\\)?\\|M-x [-a-z]+\\)\\b" t make-extent 0 bold "^Copyright[^\n]+$" bold-italic search-forward "ABSOLUTELY NO WARRANTY" italic "Energize Programming System" "[-A-Za-z_]+@lucid\\.com" "\n" featurep sunpro insert-xemacs-logo 24 "(also known as Lucid Emacs)" "	" set-extent-begin-glyph lucid-logo "\n\n" 26 "(also known as XEmacs)"] 4] startup-make-version-dir #[nil "ÀÁ\n\"­†\nÃ”Ã•OÀÅ\n\"«ŠÆ\nÃ”Ã•OQÇP)‡" [string-match "\\`[^0-9]*\\([0-9]+\\.[0-9]+\\)" emacs-version 1 version "(beta *\\([0-9]+\\))" "-b" "lib/lemacs-"] 5] find-emacs-root-internal #[(path) "À	!ÃÄÅ\n\"!«•ÃÄÆ\n\"!¬‰ÃÄ\n\"!«„\n†¼ ÃÄÈ\n\"!«šÃÄÉÊ\"\n\"!¬ˆÃÄË\n\"!«†ÄÌ\n\"®ùÌÍ PÃÄÉÏ\"\n\"!­¡ÃÄÉÐ#\n\"!¬ŒÃÄÉÑ\"\n\"!­‡ÄÒ!\n\")®ÃÓÍ PÃÄÉÏ\"\n\"!­¡ÃÄÉÐ#\n\"!¬ŒÃÄÉÑ\"\n\"!­‡ÄÒ!\n\")®Ô	!‰­†ÕÄ	\n\"!)‡" [file-name-directory path dir file-directory-p expand-file-name "lisp/prim" "lib-src" system-configuration "../lisp/prim" format "../%s" "../lib-src" "../" startup-make-version-dir ver-dir "%s/lisp/prim" "%s/%s" "%s/lib-src" file-name-as-directory "../../" file-symlink-p find-emacs-root-internal] 6] set-default-load-path #[nil "À	!Â	!‰­„ÄÅ\"­ ÄÇ\"É!­‚)®ÄÊ\"É!­‚)­¡ÄÌ\"É!­‚)®Ä\"É!­‚)­ÄÏ\"É!­‚)­‘ÄÑ\"É!­„Ò!)­ÔÔÕ!­Ï«ŒÉ!«†Ò!ª¿ÄÖ\"É!­„Ò!)®¬Ä×\"É!­„Ò!)®™ÄØ\"É!­„Ò!)®†ÒÄ×\"!«Ï¬‰ÛC\"ÜÝÞÝß%Ý ‰!«®!@‰ â¬œÄ \"‰ «‘ ¬ŠÒ !C¤!A‰!¬R*«Ï¬‰ÛC\"ÜÝÞÝß%Ý ‰!«®!@‰ ã¬œÄ \"‰ «‘ ¬ŠÒ !C¤!A‰!¬R*$¬„¬ÄÌ\"š«$š¬†Ò!$$«$%¬‰Û%$C\"%&¬„¬ÄÏ\"š«&š¬†Ò!&Ôç!¬ƒÝ'(«•Ò(!‰('¬‰Û'(C\"'«'¬‰Û'C\"'ÔÕ!«Ÿ‰¬…Ý)ª“)«ˆÉê)!!¬‡Äë\")ì .‡" [abbreviate-file-name execution-path find-emacs-root-internal root expand-file-name "lisp" lisp "lemacs/site-lisp" f file-directory-p "../lemacs/site-lisp" site-lisp "lib-src" system-configuration lib-src "etc" etc "info" file-name-as-directory info boundp lock-directory "lemacs/lock" "../lemacs/lock" "lock" lock load-path append directory-files nil "^[^-.]" dirs-only file files ("RCS" "CVS" "SCCS") ("RCS" "CVS" "SCCS") exec-directory exec-path data-directory Info-directory-list configure-info-directory superlock-path file-name-directory "!!!SuperLock!!!" set-default-load-path-warning] 7] set-default-load-path-warning #[nil "ÀÁ!«ƒ	ªÂÃ‰‰‰;«‰È!¬ƒÃ	­Š\n­†­‚?…‡ŠÌÍ!qˆÎ ˆÏp!ˆ¬†ÐB	¬†ÑB\n¬†ÒB¬†ÓBAA«‰ÔÕÖ#ª•A«‰ÔÕ×#ª‡ÕØ@\"ÙÚÛÜÞ±ˆ	®–\n®’@®ßà\"­†á‰”O‰«˜ßâã$!åQ\"¬†ßæ\"«†á‰”O	¬Š¬†çè \"	«„¬…éê±ˆ	¬«Šëç$\"ì±ˆ\n¬ «	«ƒíªîïçð1«ˆòó1!!ª\"ô±ˆ¬˜«•	«‡\n«ƒõªîïçö\"÷±ˆøcˆ¬–ùcˆ«úçûü!®\"ýþ±ˆÿ@ !«A B@ ed\"ˆ)ebˆC D E \"ˆC F  E \"ˆÎ ˆ)Â,‡" [boundp lock-directory t nil guess message warnings lock file-directory-p exec-directory data-directory load-path get-buffer-create " *warning-tmp*" erase-buffer buffer-disable-undo "lock-directory" "exec-directory" "data-directory" "load-path" apply format "%s, %s, and %s" "%s and %s" "variable %s" "couldn't find an obvious default for " ", and there were no defaults specified in paths.h when emacs " "was built.  Perhaps some directories don't exist, or the " "emacs executable, " execution-path " is in a strange place?" string-match "/[^/]+\\'" 0 "/bin/" regexp-quote system-configuration "/?\\'" "/\\(bin\\|src\\|lib-src\\|etc\\|lisp\\)[^/]*/?\\'" expand-file-name startup-make-version-dir "\n\nWithout both exec-directory and load-path, emacs will " "be very broken.  " "Consider making a symbolic link from " " to wherever the appropriate emacs exec-directory directory is" "\n\nConsider making a symbolic link " ", and " "from " "etc" lisp file-name-directory directory-file-name " to wherever the appropriate emacs data-directory is" "Consider making a symbolic link " "lisp" " to wherever the appropriate emacs lisp library is" "." "\n\nWithout lock-directory set, file locking won't work.  " "Consider creating " "../lemacs/lock" find-emacs-root-internal " as a directory or symbolic link for use as the lock " "directory.  (This directory must be globally writable.)" fboundp fill-region 76 fill-column princ "\nWARNING:\n" external-debugging-output buffer-string] 8]] 2)