mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(custom-declare): Change as' to as-is'.

Browse source
This commit is contained in:
Richard M. Stallman 1996-03-21 11:33:52 +00:00
parent 0b2d6b61ab
commit c87b46a08b
1 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/gnus-cus.el
View file

@ -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)))))