From c35f9044a5c7a28cfe0bc9d3ff5eaa805e047b59 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Wed, 27 Nov 1991 03:29:02 +0000 Subject: *** empty log message *** --- lisp/startup.el | 21 +++++++-------------- 1 file changed, 7 insertions(+), 14 deletions(-) (limited to 'lisp/startup.el') diff --git a/lisp/startup.el b/lisp/startup.el index 16386caffba..fa81e24b775 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -148,23 +148,16 @@ directory name of the directory where the `.emacs' file was looked for.") (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))) -- cgit v1.2.1