home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / lisp / startup.elc < prev    next >
Text File  |  1996-09-28  |  11KB  |  155 lines
  1.  
  2. (setq top-level (quote (normal-top-level)))
  3.  
  4. (defvar command-line-processed nil "\
  5. t once command line has been processed")
  6.  
  7. (defconst inhibit-startup-message nil "\
  8. *Non-nil inhibits the initial startup message.
  9. This is for use in your personal init file, once you are familiar
  10. with the contents of the startup message.")
  11.  
  12. (defconst inhibit-startup-echo-area-message nil "\
  13. *Non-nil inhibits the initial startup echo area message.
  14. Inhibition takes effect only if your `.emacs' file contains
  15. a line of this form:
  16.  (setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")
  17. If your `.emacs' file is byte-compiled, use the following form instead:
  18.  (eval '(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\"))
  19. Thus, someone else using a copy of your `.emacs' file will see
  20. the startup message unless he personally acts to inhibit it.")
  21.  
  22. (defconst inhibit-default-init nil "\
  23. *Non-nil inhibits loading the `default' library.")
  24.  
  25. (defconst command-switch-alist nil "\
  26. Alist of command-line switches.
  27. Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
  28. HANDLER-FUNCTION receives switch name as sole arg;
  29. remaining command-line args are in the variable `command-line-args-left'.")
  30.  
  31. (defvar command-line-args-left nil "\
  32. List of command-line args not yet processed.")
  33.  
  34. (defvar command-line-functions nil "\
  35. List of functions to process unrecognized command-line arguments.
  36. Each function should access the dynamically bound variables
  37. `argi' (the current argument) and `command-line-args-left' (the remaining
  38. arguments).  The function should return non-nil only if it recognizes and
  39. processes `argi'.  If it does so, it may consume successive arguments by
  40. altering `command-line-args-left' to remove them.")
  41.  
  42. (defvar command-line-default-directory nil "\
  43. Default directory to use for command line arguments.
  44. This is normally copied from `default-directory' when Emacs starts.")
  45.  
  46. (defvar before-init-hook nil "\
  47. Functions to call after handling urgent options but before init files.
  48. The frame system uses this to open frames to display messages while
  49. Emacs loads the user's initialization file.")
  50.  
  51. (defvar after-init-hook nil "\
  52. Functions to call after loading the init file (`~/.emacs').
  53. The call is not protected by a condition-case, so you can set `debug-on-error'
  54. in `.emacs', and put all the actual code on `after-init-hook'.")
  55.  
  56. (defvar term-setup-hook nil "\
  57. Functions to be called after loading terminal-specific Lisp code.
  58. See `run-hooks'.  This variable exists for users to set,
  59. so as to override the definitions made by the terminal-specific file.
  60. Emacs never sets this variable itself.")
  61.  
  62. (defvar keyboard-type nil "\
  63. The brand of keyboard you are using.
  64. This variable is used to define
  65. the proper function and keypad keys for use under X.  It is used in a
  66. fashion analogous to the environment value TERM.")
  67.  
  68. (defvar window-setup-hook nil "\
  69. Normal hook run to initialize window system display.
  70. Emacs runs this hook after processing the command line arguments and loading
  71. the user's init file.")
  72.  
  73. (defconst initial-major-mode (quote lisp-interaction-mode) "\
  74. Major mode command symbol to use for the initial *scratch* buffer.")
  75.  
  76. (defvar init-file-user nil "\
  77. Identity of user whose `.emacs' file is or was read.
  78. The value is nil if no init file is being used; otherwise, it may be either
  79. the null string, meaning that the init file was taken from the user that
  80. originally logged in, or it may be a string containing a user's name.
  81.  
  82. In either of the latter cases, `(concat \"~\" init-file-user \"/\")'
  83. evaluates to the name of the directory where the `.emacs' file was
  84. looked for.")
  85.  
  86. (defvar site-run-file "site-start" "\
  87. File containing site-wide run-time initializations.
  88. This file is loaded at run-time before `~/.emacs'.  It contains inits
  89. that need to be in place for the entire site, but which, due to their
  90. higher incidence of change, don't make sense to load into emacs'
  91. dumped image.  Thus, the run-time load order is: 1. file described in
  92. this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
  93.  
  94. (defconst iso-8859-1-locale-regexp "8859[-_]?1" "\
  95. Regexp that specifies when to enable the ISO 8859-1 character set.
  96. We do that if this regexp matches the locale name
  97. specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
  98.  
  99. (defvar user-mail-address nil "\
  100. Full mailing address of this user.")
  101.  
  102. (defvar init-file-debug nil)
  103.  
  104. (defvar init-file-had-error nil)
  105.  
  106. (defun normal-top-level nil (byte-code "ƒ
  107. ËÌ!‚TÁ‰ˆ
  108. Í=?…:ÎÏ! ;…9ÐÑÒ !ÓP!ÑÒ !ÓP!\"†9ÔÕ P\"‰)ˆÖ !‰ˆ× ØÙ Q‰ˆÈڎ۠))‡" [command-line-processed t system-type pwd default-directory process-environment user-mail-address menubar-bindings-done nil term-setup-hook window-setup-hook message "Back to top level." vax-vms getenv "PWD" equal file-attributes file-name-as-directory "." delete "PWD=" abbreviate-file-name user-login-name "@" system-name ((byte-code "Ä!‰ˆÅÆ!ˆ    …ÅÁ!ˆÇÈ!…È ˆÇÉ!…#É ˆ
  109. …+ÅÂ!ˆ †2Ê ‡" [default-directory term-setup-hook window-setup-hook menubar-bindings-done abbreviate-file-name run-hooks emacs-startup-hook fboundp frame-notice-user-settings font-menu-add-default precompute-menubar-bindings] 10)) command-line] 14))
  110.  
  111. (defun precompute-menubar-bindings nil (byte-code "Ä=…?Å
  112. Æ\"    …>    @:…5    @@9…5Ç    @A!;…5È    @AA!…5Éà   @AA\"ˆ    A‰ˆ‚ )‡" [window-system submap global-map nil x lookup-key [menu-bar] car-safe keymapp x-popup-menu] 7))
  113.  
  114. (defun command-line nil (byte-code "    ‰ˆÝÞ!
  115. Ã=†Gß
  116. à\"†ß
  117. á\"ƒ\"ʼn‚Gß
  118. â\"†-ß
  119. ã\"ƒ6É‚Gß
  120. ä\"†Aß
  121. å\"…Gæ‰)ˆÝç!èé\"?…Y)†‚Ýê!èé\"?…m)†‚Ýë!èé\"?…)…ì\")…šíÅ!ˆîï!ˆ    …£
  122. ?…²ð ñ    !òQÃÅ#ˆÃA 
  123. ƒÄÂÆ󠉈…Üßô \"…Ü鉈 ?…å…]@õö\"†úõ÷\"ƒ    ÃA‰‚Xõø\"†õù\"ƒ,A@A‰‚Xõú\"ƒ@ÃA‰‚Xõû\"ƒTÅA‰‚Xʼn )ˆ‚݈ü\"*ˆýþ!…nþ ˆýÿ!…wÿ ˆ@A!ˆ…‹ðÅÅ#ˆÃ‰ˆÃÃÅ=ƒ B‚¢Cƒ¿D!‚ɁEFGˆ=†Úʼn*ˆ…æ‰+ˆ@H!ˆIJ!…ŠJqˆK=…D!)ˆ …b
  124. ?…b    ?…b݁L!Ã…;ð PÅÅ#?…aìM\"‰ƒYNO‰‚]Ɉ‚,*ˆOA!ˆ
  125. …uPÅ!‡" [command-line-default-directory default-directory vc nil version-control t ctype string iso-8859-1-locale-regexp window-system noninteractive term-file-prefix done args command-line-args init-file-user argi site-run-file init-file-debug inhibit-startup-message debug-on-error-from-init-file debug-on-error-should-be-set debug-on-error-initial debug-on-error inner major-mode initial-major-mode term hyphend getenv "VERSION_CONTROL" string= "t" "numbered" "nil" "existing" "never" "simple" never "LC_ALL" equal "" "LC_CTYPE" "LANG" string-match standard-display-european require iso-syntax load symbol-name "-win" user-login-name user-real-login-name string-equal "-q" "-no-init-file" "-u" "-user" "-no-site-file" "-debug-init" setcdr fboundp face-initialize frame-initialize run-hooks before-init-hook startup (lambda nil (byte-code "…?
  126. Ç=ƒÈÉQ‚)
  127. Ê=ƒË‚)
  128. Ì=ƒ%͂)ÈÎQ‰ˆÏ    ÃÃÃ$ˆ †?ÆÏÐÃÃ#)‡" [init-file-user user-init-file system-type t inhibit-default-init inhibit-startup-message nil ms-dos "~" "/_emacs" vax-vms "sys$login:.emacs" amigaos "s:.emacs" "/.emacs" load "default"] 5)) funcall error (byte-code "Ã!ˆÂ‰‡" [inner init-file-had-error nil funcall] 3) ((error (byte-code "ÃÄ@ÅNAƒƂÇÈÉAÊ#$ˆÂ‰‡" [error init-file-had-error t message "Error in init file: %s%s%s" error-message ": " "" mapconcat prin1-to-string ", "] 8))) after-init-hook get-buffer "*scratch*" fundamental-mode "TERM" "[-_][^-_]+$" 0 command-line-1 kill-emacs] 45))
  129.  
  130. (defun command-line-1 (command-line-args-left) (byte-code "†2× †2    †2
  131. …ØÙ!ÇÚÛÜ !ˆ)†2ÝÞß!à=ƒ.á‚1âã!!ˆ ?ƒÖ?…M?…Mäå æ\"…M× ?…Ó…XçÆ!ˆÇ‰ˆèé!…f須…oçÈ!ˆÇ‰ˆê ˆÊ‰    ˆëŽìí î\"ˆÞï!ð=…ºÞñ!ò=…ºÞó!ô=…ºÞõ!ö=…ºÞ÷!ø=…ºÞù!ú=…ºÞû!ü=ƒÂýc‚Æâþ!cˆÿÇ!ˆ@A!)‚{ BǁB …[ @Ç A‰ˆC\"‰ƒDA\"‚VEF\"†2EG\"†2EH\"ƒMI @!‰ˆ A‰ˆD!‚VEJ\"†bEK\"ƒ‘ @LM!!…M!‰ˆNÇÊ#)ˆ A‰‚VEO\"ƒ¹ @;†ªPQ!ˆR @!ˆ A‰‚VES\"ƒÍTÊ!‚VUV\"ƒåW!‰‚VÇ…üD@!‰?…    A‰ˆ‚ìˆ?…UT‰ˆXUƒ2YM \"!‰‚>ZM \"!ˆ[!†N\\!ˆB‰**ˆ‚爁]V…z^!†z_X!ˆ` ,‡" [noninteractive init-file-had-error inhibit-startup-echo-area-message buffer command-line-args-left inhibit-startup-message term-setup-hook nil window-setup-hook menubar-bindings-done t dir command-line-default-directory file-count first-file-buffer line argi tem command-switch-alist file hooks command-line-functions did-hook input-pending-p get-buffer-create " *temp*" (byte-code "ŠqˆÅ    !ˆÆÇÈÉÊË
  132. Ì\"ƒÍ ‚
  133. !!ÎRÃÄ#)‡" [buffer user-init-file init-file-user nil t insert-file-contents re-search-forward "([     
  134. ]*setq[     
  135. ]+" "inhibit-startup-echo-area-message[     
  136. ]+" regexp-quote prin1-to-string string= "" user-login-name "[     
  137. ]*)"] 10) ((error (byte-code "À‡" [nil] 1))) 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]." string= buffer-name "*scratch*" run-hooks fboundp frame-notice-user-settings precompute-menubar-bindings ((byte-code "ŠÁÂ!qˆÃ ˆÄÀ!)‡" [nil get-buffer "*scratch*" erase-buffer set-buffer-modified-p] 4)) insert emacs-version "
  138. Copyright (C) 1994 Free Software Foundation, Inc.
  139.  
  140. " "" help-command "u" advertised-undo "" save-buffers-kill-emacs "" describe-copying "" describe-distribution "" describe-no-warranty "t" help-with-tutorial "Type C-h for help; C-x u to undo changes.  (`C-' means use CTRL key.)
  141. To kill the Emacs job, type C-x C-c.
  142. Type C-h t for a tutorial on using Emacs.
  143. Type C-h i to enter Info, which you can use to read GNU documentation.
  144.  
  145. GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
  146. You may give out copies of Emacs; type C-h C-c to see the conditions.
  147. Type C-h C-d for information on getting the latest version." "Type \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)
  148. To kill the Emacs job, type \\[save-buffers-kill-emacs].
  149. Type \\[help-with-tutorial] for a tutorial on using Emacs.
  150. Type \\[info] to enter Info, which you can use to read GNU documentation.
  151.  
  152. GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
  153. You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
  154. Type \\[describe-distribution] for information on getting the latest version." set-buffer-modified-p sit-for 120 0 assoc funcall string-equal "-f" "-funcall" "-e" intern "-l" "-load" file-exists-p expand-file-name load "-insert" error "filename omitted from `-insert' option" insert-file-contents "-kill" kill-emacs string-match "^\\+[0-9]+\\'" string-to-int 1 find-file find-file-other-window zerop goto-line 2 get-buffer-window other-window buffer-menu] 57))
  155.