From a01bb1db13758f6fb457a506fbd0ab4a02d6615a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 19 Sep 2000 15:00:29 +0000 Subject: [PATCH] (fancy-splash-delay, fancy-splash-image): Add version. (fancy-splash-screen): Defgroup. --- lisp/ChangeLog | 4 ++++ lisp/startup.el | 11 +++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5598ff181f3..15486ebc471 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2000-09-19 Gerd Moellmann + * 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 bb2bb667be3..8d7f62319a1 100644 --- 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) -- 2.39.2