From 579cc65bd74f9215c585dd03905545201de0e179 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Mar 1996 14:39:14 +0000 Subject: Use custom-asis instead of as-is. --- lisp/gnus-cus.el | 62 ++++++++++++++++++++++++++++---------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index 18a293212d8..c4328331c7b 100644 --- a/lisp/gnus-cus.el +++ b/lisp/gnus-cus.el @@ -34,7 +34,7 @@ ;; by the user. (defun gnus-make-face (color) ;; Create entry for face with COLOR. - (custom-face-lookup color nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup color nil nil 'custom-asis 'custom-asis 'custom-asis)) (defvar gnus-face-light-name-list '("light blue" "light cyan" "light yellow" "light pink" @@ -330,38 +330,38 @@ alone.") (list (list "From" nil (custom-face-lookup "dark blue" nil nil t t - 'as-is)) + 'custom-asis)) (list "Subject" nil (custom-face-lookup - "pink" nil nil t t 'as-is)) + "pink" nil nil t t 'custom-asis)) (list "Newsgroups:.*," nil (custom-face-lookup - "yellow" nil nil t t 'as-is)) + "yellow" nil nil t t 'custom-asis)) (list "" (custom-face-lookup - "cyan" nil nil t 'as-is 'as-is) + "cyan" nil nil t 'custom-asis 'custom-asis) (custom-face-lookup "forestgreen" - nil nil 'as-is t 'as-is)))) + nil nil 'custom-asis t 'custom-asis)))) (t (list (list "From" nil (custom-face-lookup "RoyalBlue" - nil nil t t 'as-is)) + nil nil t t 'custom-asis)) (list "Subject" nil (custom-face-lookup "firebrick" - nil nil t t 'as-is)) + nil nil t t 'custom-asis)) (list "Newsgroups:.*," nil (custom-face-lookup - "indianred" nil nil t t 'as-is)) + "indianred" nil nil t t 'custom-asis)) (list "" (custom-face-lookup "DarkGreen" - nil nil t 'as-is 'as-is) + nil nil t 'custom-asis 'custom-asis) (custom-face-lookup "DarkGreen" - nil nil nil t 'as-is)))))) + nil nil nil t 'custom-asis)))))) (data ((type . repeat) (header . nil) (data (type . list) @@ -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-is 'as-is 'as-is)) + (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) - (custom-face-lookup "pink" nil nil t 'as-is 'as-is)) + (custom-face-lookup "pink" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) - (custom-face-lookup "pink" nil nil 'as-is t 'as-is)) + (custom-face-lookup "pink" nil nil 'custom-asis t 'custom-asis)) (cons '(or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)) - (custom-face-lookup "pink" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "pink" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (= mark gnus-ancient-mark)) - (custom-face-lookup "dark blue" nil nil t 'as-is 'as-is)) + (custom-face-lookup "dark blue" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (= mark gnus-ancient-mark)) - (custom-face-lookup "SkyBlue" nil nil 'as-is t 'as-is)) + (custom-face-lookup "SkyBlue" nil nil 'custom-asis t 'custom-asis)) (cons '(= mark gnus-ancient-mark) - (custom-face-lookup "SkyBlue" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "SkyBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (= mark gnus-unread-mark)) - (custom-face-lookup "white" nil nil t 'as-is 'as-is)) + (custom-face-lookup "white" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (= mark gnus-unread-mark)) - (custom-face-lookup "white" nil nil 'as-is t 'as-is)) + (custom-face-lookup "white" nil nil 'custom-asis t 'custom-asis)) (cons '(= mark gnus-unread-mark) - (custom-face-lookup "white" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "white" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(> score default) 'bold) (cons '(< score default) 'italic))) (t (list (cons '(= mark gnus-canceled-mark) - (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) - (custom-face-lookup "firebrick" nil nil t 'as-is 'as-is)) + (custom-face-lookup "firebrick" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) - (custom-face-lookup "firebrick" nil nil 'as-is t 'as-is)) + (custom-face-lookup "firebrick" nil nil 'custom-asis t 'custom-asis)) (cons '(or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)) - (custom-face-lookup "firebrick" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "firebrick" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (= mark gnus-ancient-mark)) - (custom-face-lookup "RoyalBlue" nil nil t 'as-is 'as-is)) + (custom-face-lookup "RoyalBlue" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (= mark gnus-ancient-mark)) - (custom-face-lookup "RoyalBlue" nil nil 'as-is t 'as-is)) + (custom-face-lookup "RoyalBlue" nil nil 'custom-asis t 'custom-asis)) (cons '(= mark gnus-ancient-mark) - (custom-face-lookup "RoyalBlue" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "RoyalBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(and (> score default) (/= mark gnus-unread-mark)) - (custom-face-lookup "DarkGreen" nil nil t 'as-is 'as-is)) + (custom-face-lookup "DarkGreen" nil nil t 'custom-asis 'custom-asis)) (cons '(and (< score default) (/= mark gnus-unread-mark)) - (custom-face-lookup "DarkGreen" nil nil 'as-is t 'as-is)) + (custom-face-lookup "DarkGreen" nil nil 'custom-asis t 'custom-asis)) (cons '(/= mark gnus-unread-mark) - (custom-face-lookup "DarkGreen" nil nil 'as-is 'as-is 'as-is)) + (custom-face-lookup "DarkGreen" nil nil 'custom-asis 'custom-asis 'custom-asis)) (cons '(> score default) 'bold) (cons '(< score default) 'italic))))) -- cgit v1.2.1