emacs: lisp/startup.el comparison

comparison lisp/startup.el @ 49597:e88404e8f2cf

Trailing whitespace deleted.

author	Juanma Barranquero <lekktu@gmail.com>
date	Tue, 04 Feb 2003 12:29:42 +0000
parents	68b29ca63a54
children	99cc7aecbbec d7ddb3e565de

comparison

equal deleted inserted replaced

-:b06535145619
+:e88404e8f2cf
 (defun normal-top-level-add-subdirs-to-load-path ()
 "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'."
 (let (dirs
 	attrs
 	(pending (list default-directory)))
 ;; This loop does a breadth-first tree walk on DIR's subtree,
 ;; putting each subdir into DIRS as its contents are examined.
 (while pending
 			      ;; We are going to access the auto-save
 			      ;; directory, so make sure it exists.
 			      (make-directory
 			       (file-name-directory auto-save-list-file-prefix)
 			       t)
 			      (concat
 			       (make-temp-name
 				(expand-file-name
 				 auto-save-list-file-prefix))
 			       "~"))
 			     (t
 (run-hooks 'before-init-hook)
 ;; Run the site-start library if it exists.  The point of this file is
 ;; that it is run before .emacs.  There is no point in doing this after
 ;; .emacs; that is useless.
 (if site-run-file
 	(load site-run-file t t))
 ;; Sites should not disable this.  Only individuals should disable
 ;; the startup message.
 (setq inhibit-startup-message nil)
 			     (concat "~" init-file-user "/_emacs"))
 			    ((eq system-type 'windows-nt)
 			     (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")
 				 "~/.emacs"
 			       "~/_emacs"))
 			    ((eq system-type 'vax-vms)
 			     "sys$login:.emacs")
 			    (t
 			     (concat "~" init-file-user "/.emacs")))))
 		      ;; This tells `load' to store the file name found
 		      ;; into user-init-file.
 		      (setq user-init-file t)
 		      (load user-init-file-1 t t)
 		      (when (eq user-init-file t)
 			;; If we did not find ~/.emacs, try
 			;; ~/.emacs.d/.emacs.
 			(let ((otherfile
 			       (expand-file-name
 			  ;; If we did not find the user's init file,
 			  ;; set user-init-file conclusively.
 			  ;; Don't let it be set from default.el.
 			  (when (eq user-init-file t)
 			    (setq user-init-file user-init-file-1))))
 		      ;; If we loaded a compiled file, set
 		      ;; `user-init-file' to the source version if that
 		      ;; exists.
 		      (when (and user-init-file
 				 (equal (file-name-extension user-init-file)
 			    (when (file-newer-than-file-p source user-init-file)
 			      (message "Warning: %s is newer than %s"
 				       source user-init-file)
 			      (sit-for 1))
 			    (setq user-init-file source))))
 		      (when (and (stringp custom-file)
 				 (not (assoc custom-file load-history)))
 			;; If the .emacs file has set `custom-file' but hasn't
 			;; loaded the file yet, let's load it.
 			(load custom-file t t))
 		      (or inhibit-default-init
 			  (let ((inhibit-startup-message nil))
 			    ;; Users are supposed to be told their rights.
 			    ;; (Plus how to get help and how to undo.)
 			    ;; Don't you dare turn this off for anyone
 		(buffer-list))
 	;; Also re-set the language environment in case it was
 	;; originally done before unibyte was set and is sensitive to
 	;; unibyte (display table, terminal coding system &c).
 	(set-language-environment current-language-environment)))
 ;; Do this here in case the init file sets mail-host-address.
 (if (equal user-mail-address "")
 	(setq user-mail-address (concat (user-login-name) "@"
 					(or mail-host-address
 					    (system-name)))))
 ;; be realized.
 (unless (and (eq scalable-fonts-allowed old-scalable-fonts-allowed)
 		 (eq font-list-limit old-font-list-limit)
 		 (eq face-ignored-fonts old-face-ignored-fonts))
 (clear-face-cache)))
 (run-hooks 'after-init-hook)
 ;; If *scratch* exists and init file didn't change its mode, initialize it.
 (if (get-buffer "*scratch*")
 (with-current-buffer "*scratch*"
 	(if (eq major-mode 'fundamental-mode)
 	    (funcall initial-major-mode))))
 ;; Load library for our terminal type.
 ;; User init file can set term-file-prefix to nil to prevent this.
 (and term-file-prefix (not noninteractive) (not window-system)
 (let ((term (getenv "TERM"))
 	     hyphend)
 	      (define-key map [mode-line t] 'ignore)
 	      (setq cursor-type nil
 		    display-hourglass nil
 		    minor-mode-map-alist nil
 		    buffer-undo-list t
 		    mode-line-format (propertize "---- %b %-"
 						 'face '(:weight bold))
 		    fancy-splash-stop-time (+ (float-time)
 					      (max 60 fancy-splash-max-time))
 		    timer (run-with-timer 0 fancy-splash-delay
 					  #'fancy-splash-screens-1
 "Display splash screen when Emacs starts."
 (let ((prev-buffer (current-buffer)))
 (unwind-protect
 	(with-current-buffer (get-buffer-create "GNU Emacs")
 	  (let ((tab-width 8)
 		(mode-line-format (propertize "---- %b %-"
 					      'face '(:weight bold))))
 	    ;; The convention for this piece of code is that
 	    ;; each piece of output starts with one or two newlines
 	    ;; and does not end with any newlines.
 Copyright (C) 2002 Free Software Foundation, Inc.")
 	      (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
 		       (eq (key-binding "\C-h\C-d") 'describe-distribution)
 		       (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
 		  (insert
 		   "\n
 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
 Emacs is Free Software--Free as in Freedom--so you can redistribute copies
 of Emacs and modify it; type C-h C-c to see the conditions.
 Type C-h C-d for information on getting the latest version.")

Mercurial > emacs

comparison lisp/startup.el @ 49597:e88404e8f2cf