Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c87b46a0
Commit
c87b46a0
authored
Mar 21, 1996
by
Richard M. Stallman
Browse files
(custom-declare): Change `as' to `as-is'.
parent
0b2d6b61
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
20 deletions
+20
-20
lisp/gnus-cus.el
lisp/gnus-cus.el
+20
-20
No files found.
lisp/gnus-cus.el
View file @
c87b46a0
...
...
@@ -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
'a
s))
(custom-face-lookup "
yellow
" "
black
" nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default)
(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)))
(custom-face-lookup "
pink
" nil nil t 'as
'a
s))
(custom-face-lookup "
pink
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
pink
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default) (= mark gnus-ancient-mark))
(custom-face-lookup "
dark
blue
" nil nil t 'as
'a
s))
(custom-face-lookup "
dark
blue
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
SkyBlue
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default) (= mark gnus-unread-mark))
(custom-face-lookup "
white
" nil nil t 'as
'a
s))
(custom-face-lookup "
white
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
white
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(> score default) 'bold)
(cons '(< score default) 'italic)))
(t
(list (cons '(= mark gnus-canceled-mark)
(custom-face-lookup "
yellow
" "
black
" nil 'as 'as
'a
s))
(custom-face-lookup "
yellow
" "
black
" nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default)
(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)))
(custom-face-lookup "
firebrick
" nil nil t 'as
'a
s))
(custom-face-lookup "
firebrick
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
firebrick
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default) (= mark gnus-ancient-mark))
(custom-face-lookup "
RoyalBlue
" nil nil t 'as
'a
s))
(custom-face-lookup "
RoyalBlue
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
RoyalBlue
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(and (> score default) (/= mark gnus-unread-mark))
(custom-face-lookup "
DarkGreen
" nil nil t 'as
'a
s))
(custom-face-lookup "
DarkGreen
" nil nil t 'as
-is 'as-i
s))
(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
'a
s))
(custom-face-lookup "
DarkGreen
" nil nil 'as
-is
'as
-is 'as-i
s))
(cons '(> score default) 'bold)
(cons '(< score default) 'italic)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment