(display-splash-screen): Allow a prefix argument.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ec1f6dc1c3..8388c7af0ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-26  Kenichi Handa  <handa@m17n.org>
+
+        * startup.el (display-splash-screen): Allow a prefix argument.
+
 2006-09-25  Jason Rumney  <jasonr@gnu.org>
 
         * subr.el (shell-quote-argument): Use DOS logic for Windows
diff --git a/lisp/startup.el b/lisp/startup.el
index cd256f2ced0..664fd285754 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1626,8 +1626,9 @@ Type \\[describe-distribution] for information on getting the latest version."))
 (defun display-splash-screen (&optional hide-on-input)
   "Display splash screen according to display.
 Fancy splash screens are used on graphic displays,
-normal otherwise."
-  (interactive)
+normal otherwise.
+With a prefix argument, any user input hides the splash screen."
+  (interactive "P")
   (if (use-fancy-splash-screens-p)
       (fancy-splash-screens hide-on-input)
     (normal-splash-screen hide-on-input)))