changeset 384:9dab5ca1890f

*** empty log message ***

--- a/lisp/startup.el	Mon Aug 12 12:12:28 1991 +0000
+++ b/lisp/startup.el	Mon Aug 12 13:15:12 1991 +0000
@@ -75,7 +75,7 @@
 
 (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
+The screen system uses this to open screens to display messages while
 Emacs loads the user's initialization file.")
 
 (defvar term-setup-hook nil
@@ -147,6 +147,9 @@
 	       (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
@@ -196,8 +199,7 @@
     ;; 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))
+  (run-hooks 'pre-init-hook)
 
   ;; Load that user's init file, or the default one, or none.
   (let ((debug-on-error init-file-debug)

--- a/lisp/subr.el	Mon Aug 12 12:12:28 1991 +0000
+++ b/lisp/subr.el	Mon Aug 12 13:15:12 1991 +0000
@@ -231,7 +231,7 @@
 	  (let ((tail (assoc (cdr function) (symbol-value hook))))
 	    (equal function tail))
 	(memq function (symbol-value hook)))
-      (set hook (cons function hook))))
+      (set hook (cons function (symbol-value hook)))))
 
 (defun momentary-string-display (string pos &optional exit-char message) 
   "Momentarily display STRING in the buffer at POS.