aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-03-21 11:33:52 +0000
committerRichard M. Stallman1996-03-21 11:33:52 +0000
commitc87b46a08b497ea977ccf30b8e3c8d3a59c6044e (patch)
tree5f930c6f21c8df060e9c4d69d19272c600f04029
parent0b2d6b61ab08f108182d063b31c1080318fc7109 (diff)
downloademacs-c87b46a08b497ea977ccf30b8e3c8d3a59c6044e.tar.gz
emacs-c87b46a08b497ea977ccf30b8e3c8d3a59c6044e.zip
(custom-declare): Change `as' to `as-is'.
-rw-r--r--lisp/gnus-cus.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 32e0c0c431b..18a293212d8 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -450,63 +450,63 @@ mark: The article's mark.")
450 ((< score default) . italic))) 450 ((< score default) . italic)))
451 ((eq gnus-background-mode 'dark) 451 ((eq gnus-background-mode 'dark)
452 (list (cons '(= mark gnus-canceled-mark) 452 (list (cons '(= mark gnus-canceled-mark)
453 (custom-face-lookup "yellow" "black" nil 'as 'as 'as)) 453 (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is))
454 (cons '(and (> score default) 454 (cons '(and (> score default)
455 (or (= mark gnus-dormant-mark) 455 (or (= mark gnus-dormant-mark)
456 (= mark gnus-ticked-mark))) 456 (= mark gnus-ticked-mark)))
457 (custom-face-lookup "pink" nil nil t 'as 'as)) 457 (custom-face-lookup "pink" nil nil t 'as-is 'as-is))
458 (cons '(and (< score default) 458 (cons '(and (< score default)
459 (or (= mark gnus-dormant-mark) 459 (or (= mark gnus-dormant-mark)
460 (= mark gnus-ticked-mark))) 460 (= mark gnus-ticked-mark)))
461 (custom-face-lookup "pink" nil nil 'as t 'as)) 461 (custom-face-lookup "pink" nil nil 'as-is t 'as-is))
462 (cons '(or (= mark gnus-dormant-mark) 462 (cons '(or (= mark gnus-dormant-mark)
463 (= mark gnus-ticked-mark)) 463 (= mark gnus-ticked-mark))
464 (custom-face-lookup "pink" nil nil 'as 'as 'as)) 464 (custom-face-lookup "pink" nil nil 'as-is 'as-is 'as-is))
465 465
466 (cons '(and (> score default) (= mark gnus-ancient-mark)) 466 (cons '(and (> score default) (= mark gnus-ancient-mark))
467 (custom-face-lookup "dark blue" nil nil t 'as 'as)) 467 (custom-face-lookup "dark blue" nil nil t 'as-is 'as-is))
468 (cons '(and (< score default) (= mark gnus-ancient-mark)) 468 (cons '(and (< score default) (= mark gnus-ancient-mark))
469 (custom-face-lookup "SkyBlue" nil nil 'as t 'as)) 469 (custom-face-lookup "SkyBlue" nil nil 'as-is t 'as-is))
470 (cons '(= mark gnus-ancient-mark) 470 (cons '(= mark gnus-ancient-mark)
471 (custom-face-lookup "SkyBlue" nil nil 'as 'as 'as)) 471 (custom-face-lookup "SkyBlue" nil nil 'as-is 'as-is 'as-is))
472 472
473 (cons '(and (> score default) (= mark gnus-unread-mark)) 473 (cons '(and (> score default) (= mark gnus-unread-mark))
474 (custom-face-lookup "white" nil nil t 'as 'as)) 474 (custom-face-lookup "white" nil nil t 'as-is 'as-is))
475 (cons '(and (< score default) (= mark gnus-unread-mark)) 475 (cons '(and (< score default) (= mark gnus-unread-mark))
476 (custom-face-lookup "white" nil nil 'as t 'as)) 476 (custom-face-lookup "white" nil nil 'as-is t 'as-is))
477 (cons '(= mark gnus-unread-mark) 477 (cons '(= mark gnus-unread-mark)
478 (custom-face-lookup "white" nil nil 'as 'as 'as)) 478 (custom-face-lookup "white" nil nil 'as-is 'as-is 'as-is))
479 479
480 (cons '(> score default) 'bold) 480 (cons '(> score default) 'bold)
481 (cons '(< score default) 'italic))) 481 (cons '(< score default) 'italic)))
482 (t 482 (t
483 (list (cons '(= mark gnus-canceled-mark) 483 (list (cons '(= mark gnus-canceled-mark)
484 (custom-face-lookup "yellow" "black" nil 'as 'as 'as)) 484 (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is))
485 (cons '(and (> score default) 485 (cons '(and (> score default)
486 (or (= mark gnus-dormant-mark) 486 (or (= mark gnus-dormant-mark)
487 (= mark gnus-ticked-mark))) 487 (= mark gnus-ticked-mark)))
488 (custom-face-lookup "firebrick" nil nil t 'as 'as)) 488 (custom-face-lookup "firebrick" nil nil t 'as-is 'as-is))
489 (cons '(and (< score default) 489 (cons '(and (< score default)
490 (or (= mark gnus-dormant-mark) 490 (or (= mark gnus-dormant-mark)
491 (= mark gnus-ticked-mark))) 491 (= mark gnus-ticked-mark)))
492 (custom-face-lookup "firebrick" nil nil 'as t 'as)) 492 (custom-face-lookup "firebrick" nil nil 'as-is t 'as-is))
493 (cons '(or (= mark gnus-dormant-mark) 493 (cons '(or (= mark gnus-dormant-mark)
494 (= mark gnus-ticked-mark)) 494 (= mark gnus-ticked-mark))
495 (custom-face-lookup "firebrick" nil nil 'as 'as 'as)) 495 (custom-face-lookup "firebrick" nil nil 'as-is 'as-is 'as-is))
496 496
497 (cons '(and (> score default) (= mark gnus-ancient-mark)) 497 (cons '(and (> score default) (= mark gnus-ancient-mark))
498 (custom-face-lookup "RoyalBlue" nil nil t 'as 'as)) 498 (custom-face-lookup "RoyalBlue" nil nil t 'as-is 'as-is))
499 (cons '(and (< score default) (= mark gnus-ancient-mark)) 499 (cons '(and (< score default) (= mark gnus-ancient-mark))
500 (custom-face-lookup "RoyalBlue" nil nil 'as t 'as)) 500 (custom-face-lookup "RoyalBlue" nil nil 'as-is t 'as-is))
501 (cons '(= mark gnus-ancient-mark) 501 (cons '(= mark gnus-ancient-mark)
502 (custom-face-lookup "RoyalBlue" nil nil 'as 'as 'as)) 502 (custom-face-lookup "RoyalBlue" nil nil 'as-is 'as-is 'as-is))
503 503
504 (cons '(and (> score default) (/= mark gnus-unread-mark)) 504 (cons '(and (> score default) (/= mark gnus-unread-mark))
505 (custom-face-lookup "DarkGreen" nil nil t 'as 'as)) 505 (custom-face-lookup "DarkGreen" nil nil t 'as-is 'as-is))
506 (cons '(and (< score default) (/= mark gnus-unread-mark)) 506 (cons '(and (< score default) (/= mark gnus-unread-mark))
507 (custom-face-lookup "DarkGreen" nil nil 'as t 'as)) 507 (custom-face-lookup "DarkGreen" nil nil 'as-is t 'as-is))
508 (cons '(/= mark gnus-unread-mark) 508 (cons '(/= mark gnus-unread-mark)
509 (custom-face-lookup "DarkGreen" nil nil 'as 'as 'as)) 509 (custom-face-lookup "DarkGreen" nil nil 'as-is 'as-is 'as-is))
510 510
511 (cons '(> score default) 'bold) 511 (cons '(> score default) 'bold)
512 (cons '(< score default) 'italic))))) 512 (cons '(< score default) 'italic)))))