Mercurial > emacs

changeset 437:be739cb3c0fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 27 Nov 1991 03:29:02 +0000
parents 6e0a136fca4f
children 8b54ee2c82d6
files lisp/startup.el
diffstat 1 files changed, 7 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Tue Nov 26 05:14:58 1991 +0000
+++ b/lisp/startup.el	Wed Nov 27 03:29:02 1991 +0000
@@ -148,23 +148,16 @@
 	   (setq version-control 'never))))
 
   ;; Choose a good default value for split-window-keep-point.
-  (setq split-window-keep-point (> (baud-rate) 2400))
+  (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)
-			"-win")
-		;; Every window system should have a startup file;
-		;; barf if we can't find it.
-		nil t)
-	(error
-	 (let ((standard-output 'external-debugging-output))
-	   (princ "Error initializing window system: ")
-	   (prin1 data)
-	   (terpri)
-	   (kill-emacs)))))
+      (load (concat term-file-prefix
+		    (symbol-name window-system)
+		    "-win")
+	    ;; Every window system should have a startup file;
+	    ;; barf if we can't find it.
+	    nil t))
 
   (let ((done nil)
 	(args (cdr command-line-args)))