(custom-declare): Change `as' to `as-is'.

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 32e0c0c431bf8b2a3cf9dd6e1f16aa833c9248b7..18a293212d8f05db7dc76b2d02ef8cbfff74ddbc 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -450,63 +450,63 @@ mark:    The article's mark.")
                                        ((< 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)))))