From fa071a47b6b068f7000f7b1094d6272cb629cb79 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 11 Jan 2002 21:35:14 +0000 Subject: [PATCH] (initial-scratch-message): Fix custom type, add group. --- lisp/startup.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.5