From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 27 Dec 2005 23:48:05 +0000 (+0000)
Subject: (glasses-face): More specific custom type.
X-Git-Tag: emacs-pretest-22.0.90~5027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2926b5fba66a3e0d8ab67c4a85e63f9dfc56b52d;p=emacs.git

(glasses-face): More specific custom type.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 560f00341f5..12770cefadb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-12-27  Richard M. Stallman  <rms@gnu.org>
 
+	* progmodes/glasses.el (glasses-face): More specific custom type.
+
 	* files.el (set-visited-file-name): Doc fix.
 
 	* textmodes/flyspell.el (flyspell-external-point-words):
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index 2733cb407a4..18f744e81c8 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -82,7 +82,7 @@ For example, you can set `glasses-separator' to an empty string and
 `glasses-face' to `bold'.  Then unreadable identifiers will have no separators,
 but will have their capitals in bold."
   :group 'glasses
-  :type 'symbol
+  :type '(choice face (const nil))
   :set 'glasses-custom-set
   :initialize 'custom-initialize-default)