comparison lisp/startup.el @ 384:9dab5ca1890f

*** empty log message ***

383:4f7094a6b826

processes argi.  If it does so, it may consume successive arguments by
altering command-line-args-left to remove them.")

(defvar pre-init-hook nil
  "Functions to call after handling urgent options but before loading init file.
The window/screen system uses this to open screens to display messages while
Emacs loads the user's initialization file.")

(defvar term-setup-hook nil
  "Function to be called after loading terminal-specific lisp code.
It is called with no arguments.  This variable exists for users to set,

	   (setq version-control nil))
	  ((or (string= vc "never")
	       (string= vc "simple"))
	   (setq version-control 'never))))

  ;; Read window system's init file if using a window system.
  (if (and window-system (not noninteractive))
      (condition-case data
	  (load (concat term-file-prefix
			(symbol-name window-system)

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

  ;; If the window system asked to, let it set up some initial screens.
  (if pre-init-hook (funcall pre-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

384:9dab5ca1890f

processes argi.  If it does so, it may consume successive arguments by
altering command-line-args-left to remove them.")

(defvar pre-init-hook nil
  "Functions to call after handling urgent options but before loading init file.
The screen system uses this to open screens to display messages while
Emacs loads the user's initialization file.")

(defvar term-setup-hook nil
  "Function to be called after loading terminal-specific lisp code.
It is called with no arguments.  This variable exists for users to set,

	   (setq version-control nil))
	  ((or (string= vc "never")
	       (string= vc "simple"))
	   (setq version-control 'never))))

  ;; Choose a good default value for split-window-keep-point.
  (setq split-window-keep-point (> baud-rate 2400))

  ;; Read window system's init file if using a window system.
  (if (and window-system (not noninteractive))
      (condition-case data
	  (load (concat term-file-prefix
			(symbol-name window-system)

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

  (run-hooks 'pre-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