;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:44:10 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/startup.el ;;; emacs version 19.34. ;;; 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 (#$ . 545)) #@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 (#$ . -638)) #@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 (#$ . -851)) #@50 *Non-nil inhibits loading the `default' library. (defconst inhibit-default-init nil (#$ . -1378)) #@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 (#$ . 1483)) #@46 List of command-line args not yet processed. (defvar command-line-args-left nil (#$ . 1749)) #@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 (#$ . 1849)) #@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 (#$ . 2301)) #@446 Alist of X Windows options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defvar command-line-x-option-alist (quote (("-bw" 1 x-handle-numeric-switch border-width) ("-d" 1 x-handle-display) ("-display" 1 x-handle-display) ("-name" 1 x-handle-name-switch) ("-title" 1 x-handle-switch title) ("-T" 1 x-handle-switch title) ("-r" 0 x-handle-switch reverse t) ("-rv" 0 x-handle-switch reverse t) ("-reverse" 0 x-handle-switch reverse t) ("-reverse-video" 0 x-handle-switch reverse t) ("-fn" 1 x-handle-switch font) ("-font" 1 x-handle-switch font) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-geometry" 1 x-handle-geometry) ("-fg" 1 x-handle-switch foreground-color) ("-foreground" 1 x-handle-switch foreground-color) ("-bg" 1 x-handle-switch background-color) ("-background" 1 x-handle-switch background-color) ("-ms" 1 x-handle-switch mouse-color) ("-itype" 0 x-handle-switch icon-type t) ("-i" 0 x-handle-switch icon-type t) ("-iconic" 0 x-handle-iconic) ("-xrm" 1 x-handle-xrm-switch) ("-cr" 1 x-handle-switch cursor-color) ("-vb" 0 x-handle-switch vertical-scroll-bars t) ("-hb" 0 x-handle-switch horizontal-scroll-bars t) ("-bd" 1 x-handle-switch) ("-lsp" 1 x-handle-switch line-space) ("--border-width" 1 x-handle-numeric-switch border-width) ("--display" 1 x-handle-display) ("--name" 1 x-handle-name-switch) ("--title" 1 x-handle-switch title) ("--reverse-video" 0 x-handle-switch reverse t) ("--font" 1 x-handle-switch font) ("--internal-border" 1 x-handle-numeric-switch internal-border-width) ("--geometry" 1 x-handle-geometry) ("--foreground-color" 1 x-handle-switch foreground-color) ("--background-color" 1 x-handle-switch background-color) ("--mouse-color" 1 x-handle-switch mouse-color) ("--icon-type" 0 x-handle-switch icon-type t) ("--iconic" 0 x-handle-iconic) ("--xrm" 1 x-handle-xrm-switch) ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--border-color" 1 x-handle-switch border-width) ("--line-space" 1 x-handle-switch line-space))) (#$ . 2485)) #@78 Normal hook run after handling urgent options but before loading init files. (defvar before-init-hook nil (#$ . 4942)) #@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 (#$ . 5068)) #@73 Normal hook run after loading init files and handling the command line. (defvar emacs-startup-hook nil (#$ . 5379)) #@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 (#$ . 5502)) #@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 (#$ . 5792)) #@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 (#$ . 6026)) #@68 Major mode command symbol to use for the initial *scratch* buffer. (defconst initial-major-mode (quote lisp-interaction-mode) (#$ . 6227)) #@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 (#$ . 6373)) #@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" (#$ . 6969)) #@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" (#$ . 7768)) #@54 *Name of this machine, for purposes of naming users. (defvar mail-host-address nil (#$ . -8018)) #@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 (#$ . -8122)) #@340 Prefix for generating `auto-save-list-file-name'. This is used after reading your `.emacs' file to initialize `auto-save-list-file-name', by appending Emacs's pid and the system name, if you have not already set `auto-save-list-file-name' yourself. Set this to nil if you want to prevent `auto-save-list-file-name' from being initialized. (defvar auto-save-list-file-prefix (byte-code "=‡Ç" [system-type ms-dos "~/_s" "~/.saves-"] 2) (#$ . 8326)) (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) " !\n\" A\")" [directory-file-name 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!qP\")\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 " !\n' '\f= !!P& $!!4!!= !F O!e=b=e " [abbreviate-file-name default-directory auto-save-list-file-name auto-save-list-file-prefix system-type ms-dos make-temp-name expand-file-name "~" format "%s%d-%s~" emacs-pid system-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 @@97 @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))*\"/=\n)O)1/;./*\"2\")\"2@O))1())@)K%!A!)Y)v(g!A!@((%(!A!)9!A!);!A!)>B>!A!))@)ABCBC!A!\"(݁D)\"+  !*EF!F EG!G HI=(HJ=6KL AV<M!NO!9RP9ȉ#Qʼn;=dRf;STUSVWX;W ݁YZXS=TXU*TUX+[ \\]^ Q[N_!`a!aqbc=d )e,#,H,f!gh+PehPȉ#+ׁih\"g$hgOhʼnh*j A!#>k!" [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 featurep mule string-match iso-8859-1-locale-regexp require disp-table standard-display-european iso-syntax error (byte-code "  !Q#!// /!/ P#Ƈ" [window-system noninteractive load term-file-prefix symbol-name "-win" nil t featurep mule boundp region-face "f-term"] 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 "K =Q3 =%!!ǂ3Ȃ3 =/ʂ3Q\f\fΉ$KΉ#)" [init-file-user system-type ms-dos "~" "/_emacs" windows-nt file-exists-p "~/.emacs" "~/_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\n5 #!ɏ!)5!=0ς3!!?? ՘ ?[!!g p!==  !=!=!=!=!=c#22!)\"!cc !=c!cc='=!ǁ@AB=!!P$'CDÉF!G=ŚH!I=ŚJ!K=SLcZЁM!cNO ṔQ!R=!=ScЁT!cU!VW!)\nVX!YZǁZ[\\]^@_`abcde\"\"fghijklAmgnog@@\"\ng@@CfBfgAgnp_\"4_ZOh_ZSO_q_f\"i=P_rO_i;|sif\"tnuv_\"t@rO_)h`_s_e\"ghhBgA_!)gA_!_w_x_yhzh!gz@!gA{gK!|g!g _}3hhg%@gA~g!!_E_|hQhg[@gAg!gg!jBjajl\"k__hhg@gAg!!!!#)_ hhg@gAg;u!g!!!_!n_\"6_![s_m\"gPgA@n@ nA[n_\"u_\"]T]؁!_!_!_]rU_^\"!\\_^\"![![!Z[*.]XV\\!r! ," [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) 1996 Free Software Foundation, Inc." "" help-command "u" advertised-undo "" save-buffers-kill-emacs "t" help-with-tutorial "i" info "\n\nType C-x C-c to exit Emacs.\nType C-h for help; C-x u to undo changes.\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 \\[save-buffers-kill-emacs] to exit Emacs.\nType %s for help; \\[advertised-undo] to undo changes.\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" "\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.)" display frame-parameters "" tmm-menubar "\n\nType F10 or M-` to use the menu bar." "\n\nType \\[tmm-menubar] to use the menu bar." "\n\nC-mouse-3 (third mouse button, with Control) gets a mode-specific menu." auto-save-list-file-prefix directory-files file-name-directory "\\`" regexp-quote file-name-nondirectory "\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." "\n\n" mule-version "\n" "T" help-with-tutorial-for-mule "Type C-h T for a Japanese/Korean/Thai tutorial on using Mule.\nFor any other Mule specific information, Type C-h i and select menu `mule'." "Type \\[help-with-tutorial-for-mule] for a Japanese/Korean/Thai tutorial on using Mule.\nFor any other Mule specific information, Type \\[info] and select menu `mule'." 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 command-line-x-option-alist string-match "^--" "^--[^=]*=" try-completion 1 assoc elt error "Option `%s' is ambiguous" "-f" "-funcall" "-e" intern arrayp command-execute "-eval" eval read "-L" "-directory" command-line-normalize-file-name expand-file-name "-l" "-load" file file-exists-p load "-insert" "File name omitted from `-insert' option" insert-file-contents encode-path "-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]) #@67 Collapse multiple slashes to one, to handle non-Emacs file names. (defalias 'command-line-normalize-file-name #[(file) " Ž \"ȉ $ #%ȉ $ *" [match-data match-data ((store-match-data match-data)) string-match "^///+" file replace-match "/" t "//+" 1] 5 (#$ . 19038)])