Changeset 3340

Show
Ignore:
Timestamp:
2004年07月11日 07時31分50秒 (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/ASAGAO_emacs-21_3/lisp/ChangeLog.Meadow

    r3339 r3340  
     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/ASAGAO_emacs-21_3/lisp/startup.el

    r3320 r3340  
    11901190(defun fancy-splash-check-screen (buffer) 
    11911191  "Check if the current buffer is for splash screens."  
    1192   (unless (eq (current-buffer) buffer) 
     1192  (unless (or (eq (current-buffer) buffer) 
     1193              (eq (current-buffer) (get-buffer "*scratch*"))) 
    11931194    (throw 'stop-splashing nil))) 
    11941195