Changeset 3341

Show
Ignore:
Timestamp:
07/11/04 07:32:47 (4 years ago)
Author:
miyoshi
Message:

(fancy-splash-check-screen): Improve the condition to
stop splashing.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.00/lisp/ChangeLog.Meadow

    r3338 r3341  
     12004-07-11  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * startup.el (fancy-splash-check-screen): Improve the condition to 
     4        stop splashing. 
     5 
    162004-07-10  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    27 

  • branches/2.00/lisp/startup.el

    r3319 r3341  
    11811181(defun fancy-splash-check-screen (buffer) 
    11821182  "Check if the current buffer is for splash screens."  
    1183   (unless (eq (current-buffer) buffer) 
     1183  (unless (or (eq (current-buffer) buffer) 
     1184              (eq (current-buffer) (get-buffer "*scratch*"))) 
    11841185    (throw 'stop-splashing nil))) 
    11851186