From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Jan 2002 21:35:14 +0000 (+0000)
Subject: (initial-scratch-message): Fix custom type, add group.
X-Git-Tag: ttn-vms-21-2-B4~17212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa071a47b6b068f7000f7b1094d6272cb629cb79;p=emacs.git

(initial-scratch-message): Fix custom type, add group.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index cc2de6cd516..75cbc15d07f 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1024,7 +1024,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 ")
   "Initial message displayed in *scratch* buffer at startup.
 If this is nil, no message will be displayed."
-  :type 'string)
+  :type '(choice (text :tag "Message")
+		 (const :tag "none" nil))
+  :group 'initialization)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;