From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Sun, 15 Jun 1997 15:25:57 +0000 (+0000)
Subject: Use booleans.
X-Git-Tag: emacs-20.1~1689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9432de85b71b2bfd752d801e34b24011a036ad22;p=emacs.git

Use booleans.
---

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 773dbccd8d8..3662f296baa 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -63,22 +63,22 @@
 ;;; Font Attributes.
 
 (defconst custom-face-attributes
-  '((:bold (toggle :format "%[Bold%]: %v\n"
-		   :help-echo "Control whether a bold font should be used.")
+  '((:bold (boolean :tag "Bold"
+		    :help-echo "Control whether a bold font should be used.")
 	   set-face-bold-p
 	   face-bold-p)
-    (:italic (toggle :format "%[Italic%]: %v\n"
-		     :help-echo "\
+    (:italic (boolean :tag "Italic"
+		      :help-echo "\
 Control whether an italic font should be used.")
 	     set-face-italic-p
 	     face-italic-p)
-    (:underline (toggle :format "%[Underline%]: %v\n"
-			:help-echo "\
+    (:underline (boolean :tag "Underline"
+			 :help-echo "\
 Control whether the text should be underlined.")
 		set-face-underline-p
 		face-underline-p)
-    (:inverse-video (toggle :format "%[Inverse-Video%]: %v\n"
-			:help-echo "\
+    (:inverse-video (boolean :tag "Inverse Video"
+			     :help-echo "\
 Control whether the text should be in inverse video.")
 		set-face-inverse-video-p
 		face-inverse-video-p)