(fancy-splash-screens): Set tab-width in correct buffer.
authorRichard M. Stallman <rms@gnu.org>
Thu, 10 Jan 2002 00:49:24 +0000 (00:49 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 10 Jan 2002 00:49:24 +0000 (00:49 +0000)
lisp/startup.el

index ef609e0..cc2de6c 100644 (file)
@@ -1224,13 +1224,13 @@ where FACE is a valid face specification, as it can be used with
 (defun fancy-splash-screens ()
   "Display fancy splash screens when Emacs starts."
   (setq fancy-splash-help-echo (startup-echo-area-message))
-  (setq tab-width 20)
   (let ((old-hourglass display-hourglass)
        (fancy-splash-outer-buffer (current-buffer))
        splash-buffer
        (old-minor-mode-map-alist minor-mode-map-alist)
        timer)
     (switch-to-buffer "GNU Emacs")
+    (setq tab-width 20)
     (setq splash-buffer (current-buffer))
     (catch 'stop-splashing
       (unwind-protect