Mercurial > emacs
comparison lisp/gnus-cus.el @ 14889:acc4f62dbeb0
(gnus-make-face, custom-declare): Rename custom-asis to custom:asis.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 27 Mar 1996 00:14:20 +0000 |
parents | 4166cc2986ab |
children | 530d0d516a42 |
comparison
equal
deleted
inserted
replaced
14888:b256ebb2110a | 14889:acc4f62dbeb0 |
---|---|
32 | 32 |
33 ;; The following is just helper functions and data, not ment to be set | 33 ;; The following is just helper functions and data, not ment to be set |
34 ;; by the user. | 34 ;; by the user. |
35 (defun gnus-make-face (color) | 35 (defun gnus-make-face (color) |
36 ;; Create entry for face with COLOR. | 36 ;; Create entry for face with COLOR. |
37 (custom-face-lookup color nil nil 'custom-asis 'custom-asis 'custom-asis)) | 37 (custom-face-lookup color nil nil 'custom:asis 'custom:asis 'custom:asis)) |
38 | 38 |
39 (defvar gnus-face-light-name-list | 39 (defvar gnus-face-light-name-list |
40 '("light blue" "light cyan" "light yellow" "light pink" | 40 '("light blue" "light cyan" "light yellow" "light pink" |
41 "pale green" "beige" "orange" "magenta" "violet" "medium purple" | 41 "pale green" "beige" "orange" "magenta" "violet" "medium purple" |
42 "turquoise")) | 42 "turquoise")) |
328 '(("" bold italic))) | 328 '(("" bold italic))) |
329 ((eq gnus-background-mode 'dark) | 329 ((eq gnus-background-mode 'dark) |
330 (list (list "From" nil | 330 (list (list "From" nil |
331 (custom-face-lookup | 331 (custom-face-lookup |
332 "dark blue" nil nil t t | 332 "dark blue" nil nil t t |
333 'custom-asis)) | 333 'custom:asis)) |
334 (list "Subject" nil | 334 (list "Subject" nil |
335 (custom-face-lookup | 335 (custom-face-lookup |
336 "pink" nil nil t t 'custom-asis)) | 336 "pink" nil nil t t 'custom:asis)) |
337 (list "Newsgroups:.*," nil | 337 (list "Newsgroups:.*," nil |
338 (custom-face-lookup | 338 (custom-face-lookup |
339 "yellow" nil nil t t 'custom-asis)) | 339 "yellow" nil nil t t 'custom:asis)) |
340 (list "" | 340 (list "" |
341 (custom-face-lookup | 341 (custom-face-lookup |
342 "cyan" nil nil t 'custom-asis 'custom-asis) | 342 "cyan" nil nil t 'custom:asis 'custom:asis) |
343 (custom-face-lookup | 343 (custom-face-lookup |
344 "forestgreen" | 344 "forestgreen" |
345 nil nil 'custom-asis t 'custom-asis)))) | 345 nil nil 'custom:asis t 'custom:asis)))) |
346 (t | 346 (t |
347 (list (list "From" nil | 347 (list (list "From" nil |
348 (custom-face-lookup | 348 (custom-face-lookup |
349 "RoyalBlue" | 349 "RoyalBlue" |
350 nil nil t t 'custom-asis)) | 350 nil nil t t 'custom:asis)) |
351 (list "Subject" nil | 351 (list "Subject" nil |
352 (custom-face-lookup | 352 (custom-face-lookup |
353 "firebrick" | 353 "firebrick" |
354 nil nil t t 'custom-asis)) | 354 nil nil t t 'custom:asis)) |
355 (list "Newsgroups:.*," nil | 355 (list "Newsgroups:.*," nil |
356 (custom-face-lookup | 356 (custom-face-lookup |
357 "indianred" nil nil t t 'custom-asis)) | 357 "indianred" nil nil t t 'custom:asis)) |
358 (list "" | 358 (list "" |
359 (custom-face-lookup | 359 (custom-face-lookup |
360 "DarkGreen" | 360 "DarkGreen" |
361 nil nil t 'custom-asis 'custom-asis) | 361 nil nil t 'custom:asis 'custom:asis) |
362 (custom-face-lookup | 362 (custom-face-lookup |
363 "DarkGreen" | 363 "DarkGreen" |
364 nil nil nil t 'custom-asis)))))) | 364 nil nil nil t 'custom:asis)))))) |
365 (data ((type . repeat) | 365 (data ((type . repeat) |
366 (header . nil) | 366 (header . nil) |
367 (data (type . list) | 367 (data (type . list) |
368 (compact . t) | 368 (compact . t) |
369 (data ((type . string) | 369 (data ((type . string) |
448 (calculate . (cond ((not (eq gnus-display-type 'color)) | 448 (calculate . (cond ((not (eq gnus-display-type 'color)) |
449 '(((> score default) . bold) | 449 '(((> score default) . bold) |
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 'custom-asis 'custom-asis 'custom-asis)) | 453 (custom-face-lookup "yellow" "black" nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 457 (custom-face-lookup "pink" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 461 (custom-face-lookup "pink" nil nil 'custom:asis t 'custom:asis)) |
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 'custom-asis 'custom-asis 'custom-asis)) | 464 (custom-face-lookup "pink" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 467 (custom-face-lookup "dark blue" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 469 (custom-face-lookup "SkyBlue" nil nil 'custom:asis t 'custom:asis)) |
470 (cons '(= mark gnus-ancient-mark) | 470 (cons '(= mark gnus-ancient-mark) |
471 (custom-face-lookup "SkyBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) | 471 (custom-face-lookup "SkyBlue" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 474 (custom-face-lookup "white" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 476 (custom-face-lookup "white" nil nil 'custom:asis t 'custom:asis)) |
477 (cons '(= mark gnus-unread-mark) | 477 (cons '(= mark gnus-unread-mark) |
478 (custom-face-lookup "white" nil nil 'custom-asis 'custom-asis 'custom-asis)) | 478 (custom-face-lookup "white" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis 'custom-asis)) | 484 (custom-face-lookup "yellow" "black" nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 488 (custom-face-lookup "firebrick" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 492 (custom-face-lookup "firebrick" nil nil 'custom:asis t 'custom:asis)) |
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 'custom-asis 'custom-asis 'custom-asis)) | 495 (custom-face-lookup "firebrick" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 498 (custom-face-lookup "RoyalBlue" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 500 (custom-face-lookup "RoyalBlue" nil nil 'custom:asis t 'custom:asis)) |
501 (cons '(= mark gnus-ancient-mark) | 501 (cons '(= mark gnus-ancient-mark) |
502 (custom-face-lookup "RoyalBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) | 502 (custom-face-lookup "RoyalBlue" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
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 'custom-asis 'custom-asis)) | 505 (custom-face-lookup "DarkGreen" nil nil t 'custom:asis 'custom:asis)) |
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 'custom-asis t 'custom-asis)) | 507 (custom-face-lookup "DarkGreen" nil nil 'custom:asis t 'custom:asis)) |
508 (cons '(/= mark gnus-unread-mark) | 508 (cons '(/= mark gnus-unread-mark) |
509 (custom-face-lookup "DarkGreen" nil nil 'custom-asis 'custom-asis 'custom-asis)) | 509 (custom-face-lookup "DarkGreen" nil nil 'custom:asis 'custom:asis 'custom:asis)) |
510 | |
511 (cons '(> score default) 'bold) | 510 (cons '(> score default) 'bold) |
512 (cons '(< score default) 'italic))))) | 511 (cons '(< score default) 'italic))))) |
513 (data ((type . repeat) | 512 (data ((type . repeat) |
514 (header . nil) | 513 (header . nil) |
515 (data (type . pair) | 514 (data (type . pair) |