comparison lisp/startup.el @ 883:5a7ed0421c9d

*** empty log message ***

882:bff32d8ecc5e

			       (file-name-as-directory value))))))
		'("PWD" "HOME")))
    (setq default-directory (abbreviate-file-name default-directory))
    (unwind-protect
	(command-line)
      ;; Run the site-start library if it exists.
      (load "site-start" t t)
      (run-hooks 'emacs-startup-hook)
      (and term-setup-hook
	   (run-hooks 'term-setup-hook))
      (and window-setup-hook
	   (run-hooks 'window-setup-hook)))))

    
    ;; Re-attach the program name to the front of the arg list.
    (setcdr command-line-args args))

  (run-hooks 'before-init-hook)

  ;; Load that user's init file, or the default one, or none.
  (let ((debug-on-error init-file-debug)
	;; This function actually reads the init files.
	(inner

883:5a7ed0421c9d

			       (file-name-as-directory value))))))
		'("PWD" "HOME")))
    (setq default-directory (abbreviate-file-name default-directory))
    (unwind-protect
	(command-line)
      (run-hooks 'emacs-startup-hook)
      (and term-setup-hook
	   (run-hooks 'term-setup-hook))
      (and window-setup-hook
	   (run-hooks 'window-setup-hook)))))

    
    ;; Re-attach the program name to the front of the arg list.
    (setcdr command-line-args args))

  (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.
  (load "site-start" t t)

  ;; Load that user's init file, or the default one, or none.
  (let ((debug-on-error init-file-debug)
	;; This function actually reads the init files.
	(inner