# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827408032 0
# Node ID b65bb6d88e90d17dceefef7d833d872cf4a7c9b4
# Parent  ee6ea46b8e724506cd60f554bdbb5116eb17fc62
(custom-declare): Change `as' to `as-is'.

diff -r ee6ea46b8e72 -r b65bb6d88e90 lisp/gnus-cus.el
--- a/lisp/gnus-cus.el	Thu Mar 21 11:22:00 1996 +0000
+++ b/lisp/gnus-cus.el	Thu Mar 21 11:33:52 1996 +0000
@@ -450,63 +450,63 @@
 					((< score default) . italic)))
 				     ((eq gnus-background-mode 'dark)
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
+						  (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil t 'as 'as))
+						  (custom-face-lookup "pink" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil 'as t 'as))
+						  (custom-face-lookup "pink" nil nil 'as-is t 'as-is))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "pink" nil nil 'as 'as 'as))
+						  (custom-face-lookup "pink" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "dark blue" nil nil t 'as 'as))
+						  (custom-face-lookup "dark blue" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "SkyBlue" nil nil 'as t 'as))
+						  (custom-face-lookup "SkyBlue" nil nil 'as-is t 'as-is))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "SkyBlue" nil nil 'as 'as 'as))
+						  (custom-face-lookup "SkyBlue" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(and (> score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil t 'as 'as))
+						  (custom-face-lookup "white" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil 'as t 'as))
+						  (custom-face-lookup "white" nil nil 'as-is t 'as-is))
 					    (cons '(= mark gnus-unread-mark)
-						  (custom-face-lookup "white" nil nil 'as 'as 'as))
+						  (custom-face-lookup "white" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))
 				     (t
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
+						  (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil t 'as 'as))
+						  (custom-face-lookup "firebrick" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil 'as t 'as))
+						  (custom-face-lookup "firebrick" nil nil 'as-is t 'as-is))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "firebrick" nil nil 'as 'as 'as))
+						  (custom-face-lookup "firebrick" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil t 'as 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil 'as t 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil 'as-is t 'as-is))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "RoyalBlue" nil nil 'as 'as 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(and (> score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil t 'as 'as))
+						  (custom-face-lookup "DarkGreen" nil nil t 'as-is 'as-is))
 					    (cons '(and (< score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil 'as t 'as))
+						  (custom-face-lookup "DarkGreen" nil nil 'as-is t 'as-is))
 					    (cons '(/= mark gnus-unread-mark)
-						  (custom-face-lookup "DarkGreen" nil nil 'as 'as 'as))
+						  (custom-face-lookup "DarkGreen" nil nil 'as-is 'as-is 'as-is))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))))