Mercurial > emacs

changeset 14867:4166cc2986ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use custom-asis instead of as-is.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Mar 1996 14:39:14 +0000
parents caa2ed202328
children cca4562fbafd
files lisp/gnus-cus.el
diffstat 1 files changed, 31 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus-cus.el	Sat Mar 23 14:38:37 1996 +0000
+++ b/lisp/gnus-cus.el	Sat Mar 23 14:39:14 1996 +0000
@@ -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 @@
 				      (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 @@
 					((< 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)))))