(fancy-splash-delay, fancy-splash-image): Add

version.
(fancy-splash-screen): Defgroup.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5598ff181f3b0ac4f8b3ce9549f779d77eadb7bd..15486ebc471373ec5fb3923c6d150c3dc38905e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-09-19  Gerd Moellmann  <gerd@gnu.org>
 
+       * startup.el (fancy-splash-delay, fancy-splash-image): Add
+       :version.
+       (fancy-splash-screen): Defgroup.
+
        * add-log.el (change-log-font-lock-keywords): Match names
        more exactly for the case that font-lock-constant-face is
        underlined.

diff --git a/lisp/startup.el b/lisp/startup.el
index bb2bb667be33a0b709c17ca2950ae7d4c7d76320..8d7f62319a1510e82253f7fd1aec09acdca81629 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -873,15 +873,22 @@ Each element in the list should be a list of strings or pairs
 `:face FACE', like `fancy-splash-insert' accepts them.")
 
 
+(defgroup 'fancy-splash-screen
+  "Fancy splash screen when Emacs starts."
+  :group 'initialization)
+
+
 (defcustom fancy-splash-delay 5
   "Delay in seconds between splash screens."
-  :group 'splash-screen
+  :group 'fancy-splash-screen
+  :version "21.1"
   :type 'integer)
 
 
 (defcustom fancy-splash-image "splash.xpm"
   "The image to show in the splash screens."
-  :group 'splash-screen
+  :group 'fancy-splash-screen
+  :version "21.1"
   :type 'file)