diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-27 00:14:20 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-27 00:14:20 +0000 |
commit | f9e3fedf086acd1d8b4e2c5678a176306d8cdf64 (patch) | |
tree | f9bd3008c2ccac31ed3bded8eb7894c14fb74ae4 /lisp/gnus-cus.el | |
parent | 226d73b00d3966b572ef78b4029d29b6f9f60b8c (diff) | |
download | emacs-f9e3fedf086acd1d8b4e2c5678a176306d8cdf64.tar.gz |
(gnus-make-face, custom-declare): Rename custom-asis to custom:asis.
Diffstat (limited to 'lisp/gnus-cus.el')
-rw-r--r-- | lisp/gnus-cus.el | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index c4328331c7b..9bf51b126f5 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 'custom-asis 'custom-asis 'custom-asis)) + (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 - 'custom-asis)) + 'custom:asis)) (list "Subject" nil (custom-face-lookup - "pink" nil nil t t 'custom-asis)) + "pink" nil nil t t 'custom:asis)) (list "Newsgroups:.*," nil (custom-face-lookup - "yellow" nil nil t t 'custom-asis)) + "yellow" nil nil t t 'custom:asis)) (list "" (custom-face-lookup - "cyan" nil nil t 'custom-asis 'custom-asis) + "cyan" nil nil t 'custom:asis 'custom:asis) (custom-face-lookup "forestgreen" - nil nil 'custom-asis t 'custom-asis)))) + nil nil 'custom:asis t 'custom:asis)))) (t (list (list "From" nil (custom-face-lookup "RoyalBlue" - nil nil t t 'custom-asis)) + nil nil t t 'custom:asis)) (list "Subject" nil (custom-face-lookup "firebrick" - nil nil t t 'custom-asis)) + nil nil t t 'custom:asis)) (list "Newsgroups:.*," nil (custom-face-lookup - "indianred" nil nil t t 'custom-asis)) + "indianred" nil nil t t 'custom:asis)) (list "" (custom-face-lookup "DarkGreen" - nil nil t 'custom-asis 'custom-asis) + nil nil t 'custom:asis 'custom:asis) (custom-face-lookup "DarkGreen" - nil nil nil t 'custom-asis)))))) + nil nil nil t 'custom:asis)))))) (data ((type . repeat) (header . nil) (data (type . list) @@ -450,64 +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 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (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 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (custom-face-lookup "SkyBlue" nil nil 'custom:asis t 'custom:asis)) (cons '(= mark gnus-ancient-mark) - (custom-face-lookup "SkyBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (custom-face-lookup "white" nil nil 'custom:asis t 'custom:asis)) (cons '(= mark gnus-unread-mark) - (custom-face-lookup "white" nil nil 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (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 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (custom-face-lookup "RoyalBlue" nil nil 'custom:asis t 'custom:asis)) (cons '(= mark gnus-ancient-mark) - (custom-face-lookup "RoyalBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) + (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 'custom-asis 'custom-asis)) + (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 'custom-asis t 'custom-asis)) + (custom-face-lookup "DarkGreen" nil nil 'custom:asis t 'custom:asis)) (cons '(/= mark gnus-unread-mark) - (custom-face-lookup "DarkGreen" nil nil 'custom-asis 'custom-asis 'custom-asis)) - + (custom-face-lookup "DarkGreen" nil nil 'custom:asis 'custom:asis 'custom:asis)) (cons '(> score default) 'bold) (cons '(< score default) 'italic))))) (data ((type . repeat) |