diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-21 11:33:52 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-21 11:33:52 +0000 |
commit | c87b46a08b497ea977ccf30b8e3c8d3a59c6044e (patch) | |
tree | 5f930c6f21c8df060e9c4d69d19272c600f04029 /lisp/gnus-cus.el | |
parent | 0b2d6b61ab08f108182d063b31c1080318fc7109 (diff) | |
download | emacs-c87b46a08b497ea977ccf30b8e3c8d3a59c6044e.tar.gz |
(custom-declare): Change `as' to `as-is'.
Diffstat (limited to 'lisp/gnus-cus.el')
-rw-r--r-- | lisp/gnus-cus.el | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index 32e0c0c431b..18a293212d8 100644 --- 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))))) |