Mercurial > emacs

changeset 14602:830d54a0d39b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `as-is' parameters to `custom-face-lookup'.
author Karl Heuer <kwzh@gnu.org>
date Tue, 20 Feb 1996 19:15:28 +0000
parents dc00c671ed30
children b9daaf52fc01
files lisp/gnus-cus.el
diffstat 1 files changed, 32 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus-cus.el	Tue Feb 20 19:13:05 1996 +0000
+++ b/lisp/gnus-cus.el	Tue Feb 20 19:15:28 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 nil nil nil))
+  (custom-face-lookup color nil nil 'as-is 'as-is 'as-is))
 
 (defvar gnus-face-light-name-list
   '("light blue" "light cyan" "light yellow" "light pink"
@@ -329,38 +329,39 @@
 				     ((eq gnus-background-mode 'dark)
 				      (list (list "From" nil 
 						  (custom-face-lookup 
-						   "dark blue" nil nil t t nil))
+						   "dark blue" nil nil t t 
+						   'as-is))
 					    (list "Subject" nil 
 						  (custom-face-lookup
-						   "pink" nil nil t t nil))
+						   "pink" nil nil t t 'as-is))
 					    (list "Newsgroups:.*," nil
 						  (custom-face-lookup
-						   "yellow" nil nil t t nil))
+						   "yellow" nil nil t t 'as-is))
 					    (list "" 
 						  (custom-face-lookup
-						   "cyan" nil nil t nil nil)
+						   "cyan" nil nil t 'as-is 'as-is)
 						  (custom-face-lookup
 						   "forestgreen"
-						   nil nil nil t nil))))
+						   nil nil 'as-is t 'as-is))))
 				     (t
 				      (list (list "From" nil 
 						  (custom-face-lookup
 						   "RoyalBlue"
-						   nil nil t t nil))
+						   nil nil t t 'as-is))
 					    (list "Subject" nil 
 						  (custom-face-lookup
 						   "firebrick"
-						   nil nil t t nil))
+						   nil nil t t 'as-is))
 					    (list "Newsgroups:.*," nil
 						  (custom-face-lookup
-						   "indianred" nil nil t t nil))
+						   "indianred" nil nil t t 'as-is))
 					    (list ""
 						  (custom-face-lookup
 						   "DarkGreen"
-						   nil nil t nil nil)
+						   nil nil t 'as-is 'as-is)
 						  (custom-face-lookup
 						   "DarkGreen"
-						   nil nil nil t nil))))))
+						   nil nil nil t 'as-is))))))
 		  (data ((type . repeat)
 			 (header . nil)
 			 (data (type . list)
@@ -449,63 +450,63 @@
 					((< score default) . italic)))
 				     ((eq gnus-background-mode 'dark)
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil nil nil nil))
+						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil t nil nil))
+						  (custom-face-lookup "pink" nil nil t 'as 'as))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil nil t nil))
+						  (custom-face-lookup "pink" nil nil 'as t 'as))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "pink" nil nil nil nil nil))
+						  (custom-face-lookup "pink" nil nil 'as 'as 'as))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "dark blue" nil nil t nil nil))
+						  (custom-face-lookup "dark blue" nil nil t 'as 'as))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "SkyBlue" nil nil nil t nil))
+						  (custom-face-lookup "SkyBlue" nil nil 'as t 'as))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "SkyBlue" nil nil nil nil nil))
+						  (custom-face-lookup "SkyBlue" nil nil 'as 'as 'as))
 
 					    (cons '(and (> score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil t nil nil))
+						  (custom-face-lookup "white" nil nil t 'as 'as))
 					    (cons '(and (< score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil nil t nil))
+						  (custom-face-lookup "white" nil nil 'as t 'as))
 					    (cons '(= mark gnus-unread-mark)
-						  (custom-face-lookup "white" nil nil nil nil nil))
+						  (custom-face-lookup "white" nil nil 'as 'as 'as))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))
 				     (t
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil nil nil nil))
+						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil t nil nil))
+						  (custom-face-lookup "firebrick" nil nil t 'as 'as))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil nil t nil))
+						  (custom-face-lookup "firebrick" nil nil 'as t 'as))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "firebrick" nil nil nil nil nil))
+						  (custom-face-lookup "firebrick" nil nil 'as 'as 'as))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil t nil nil))
+						  (custom-face-lookup "RoyalBlue" nil nil t 'as 'as))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil nil t nil))
+						  (custom-face-lookup "RoyalBlue" nil nil 'as t 'as))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "RoyalBlue" nil nil nil nil nil))
+						  (custom-face-lookup "RoyalBlue" nil nil 'as 'as 'as))
 
 					    (cons '(and (> score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil t nil nil))
+						  (custom-face-lookup "DarkGreen" nil nil t 'as 'as))
 					    (cons '(and (< score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil nil t nil))
+						  (custom-face-lookup "DarkGreen" nil nil 'as t 'as))
 					    (cons '(/= mark gnus-unread-mark)
-						  (custom-face-lookup "DarkGreen" nil nil nil nil nil))
+						  (custom-face-lookup "DarkGreen" nil nil 'as 'as 'as))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))))