Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
290 290
291 291
292 The following symbols have predefined meanings: 292 The following symbols have predefined meanings:
293 293
294 foreground The foreground color of the face. 294 foreground The foreground color of the face.
295 For valid instantiators, see `color-specifier-p'. 295 For valid instantiators, see `make-color-specifier'.
296 296
297 background The background color of the face. 297 background The background color of the face.
298 For valid instantiators, see `color-specifier-p'. 298 For valid instantiators, see `make-color-specifier'.
299 299
300 font The font used to display text covered by this face. 300 font The font used to display text covered by this face.
301 For valid instantiators, see `font-specifier-p'. 301 For valid instantiators, see `make-font-specifier'.
302 302
303 display-table The display table of the face. 303 display-table The display table of the face.
304 This should be a vector of 256 elements. 304 This should be a vector of 256 elements.
305 305
306 background-pixmap The pixmap displayed in the background of the face. 306 background-pixmap The pixmap displayed in the background of the face.
307 Only used by faces on X devices. 307 Only used by faces on X devices.
308 For valid instantiators, see `image-specifier-p'. 308 For valid instantiators, see `make-image-specifier'.
309 309
310 underline Underline all text covered by this face. 310 underline Underline all text covered by this face.
311 For valid instantiators, see `face-boolean-specifier-p'. 311 For valid instantiators, see `make-face-boolean-specifier'.
312 312
313 strikethru Draw a line through all text covered by this face. 313 strikethru Draw a line through all text covered by this face.
314 For valid instantiators, see `face-boolean-specifier-p'. 314 For valid instantiators, see `make-face-boolean-specifier'.
315 315
316 highlight Highlight all text covered by this face. 316 highlight Highlight all text covered by this face.
317 Only used by faces on TTY devices. 317 Only used by faces on TTY devices.
318 For valid instantiators, see `face-boolean-specifier-p'. 318 For valid instantiators, see `make-face-boolean-specifier'.
319 319
320 dim Dim all text covered by this face. 320 dim Dim all text covered by this face.
321 For valid instantiators, see `face-boolean-specifier-p'. 321 For valid instantiators, see `make-face-boolean-specifier'.
322 322
323 blinking Blink all text covered by this face. 323 blinking Blink all text covered by this face.
324 Only used by faces on TTY devices. 324 Only used by faces on TTY devices.
325 For valid instantiators, see `face-boolean-specifier-p'. 325 For valid instantiators, see `make-face-boolean-specifier'.
326 326
327 reverse Reverse the foreground and background colors. 327 reverse Reverse the foreground and background colors.
328 Only used by faces on TTY devices. 328 Only used by faces on TTY devices.
329 For valid instantiators, see `face-boolean-specifier-p'. 329 For valid instantiators, see `make-face-boolean-specifier'.
330 330
331 doc-string Description of what the face's normal use is. 331 doc-string Description of what the face's normal use is.
332 NOTE: This is not a specifier, unlike all 332 NOTE: This is not a specifier, unlike all
333 the other built-in properties, and cannot 333 the other built-in properties, and cannot
334 contain locale-specific values." 334 contain locale-specific values."
431 (defun set-face-font (face font &optional locale tag-set how-to-add) 431 (defun set-face-font (face font &optional locale tag-set how-to-add)
432 "Change the font of FACE to FONT in LOCALE. 432 "Change the font of FACE to FONT in LOCALE.
433 433
434 FACE may be either a face object or a symbol representing a face. 434 FACE may be either a face object or a symbol representing a face.
435 435
436 FONT should be an instantiator (see `font-specifier-p'), a list of 436 FONT should be an instantiator (see `make-font-specifier'), a list of
437 instantiators, an alist of specifications (each mapping a 437 instantiators, an alist of specifications (each mapping a
438 locale to an instantiator list), or a font specifier object. 438 locale to an instantiator list), or a font specifier object.
439 439
440 If FONT is an alist, LOCALE must be omitted. If FONT is a 440 If FONT is an alist, LOCALE must be omitted. If FONT is a
441 specifier object, LOCALE can be a locale, a locale type, 'all, 441 specifier object, LOCALE can be a locale, a locale type, 'all,
488 (defun set-face-foreground (face color &optional locale tag-set how-to-add) 488 (defun set-face-foreground (face color &optional locale tag-set how-to-add)
489 "Change the foreground color of FACE to COLOR in LOCALE. 489 "Change the foreground color of FACE to COLOR in LOCALE.
490 490
491 FACE may be either a face object or a symbol representing a face. 491 FACE may be either a face object or a symbol representing a face.
492 492
493 COLOR should be an instantiator (see `color-specifier-p'), a list of 493 COLOR should be an instantiator (see `make-color-specifier'), a list of
494 instantiators, an alist of specifications (each mapping a locale to 494 instantiators, an alist of specifications (each mapping a locale to
495 an instantiator list), or a color specifier object. 495 an instantiator list), or a color specifier object.
496 496
497 If COLOR is an alist, LOCALE must be omitted. If COLOR is a 497 If COLOR is an alist, LOCALE must be omitted. If COLOR is a
498 specifier object, LOCALE can be a locale, a locale type, 'all, 498 specifier object, LOCALE can be a locale, a locale type, 'all,
545 (defun set-face-background (face color &optional locale tag-set how-to-add) 545 (defun set-face-background (face color &optional locale tag-set how-to-add)
546 "Change the background color of FACE to COLOR in LOCALE. 546 "Change the background color of FACE to COLOR in LOCALE.
547 547
548 FACE may be either a face object or a symbol representing a face. 548 FACE may be either a face object or a symbol representing a face.
549 549
550 COLOR should be an instantiator (see `color-specifier-p'), a list of 550 COLOR should be an instantiator (see `make-color-specifier'), a list of
551 instantiators, an alist of specifications (each mapping a locale to 551 instantiators, an alist of specifications (each mapping a locale to
552 an instantiator list), or a color specifier object. 552 an instantiator list), or a color specifier object.
553 553
554 If COLOR is an alist, LOCALE must be omitted. If COLOR is a 554 If COLOR is an alist, LOCALE must be omitted. If COLOR is a
555 specifier object, LOCALE can be a locale, a locale type, 'all, 555 specifier object, LOCALE can be a locale, a locale type, 'all,
593 "Change the background pixmap of FACE to PIXMAP in LOCALE. 593 "Change the background pixmap of FACE to PIXMAP in LOCALE.
594 This property is only used on window system devices. 594 This property is only used on window system devices.
595 595
596 FACE may be either a face object or a symbol representing a face. 596 FACE may be either a face object or a symbol representing a face.
597 597
598 PIXMAP should be an instantiator (see `image-specifier-p'), a list 598 PIXMAP should be an instantiator (see `make-image-specifier'), a list
599 of instantiators, an alist of specifications (each mapping a locale 599 of instantiators, an alist of specifications (each mapping a locale
600 to an instantiator list), or an image specifier object. 600 to an instantiator list), or an image specifier object.
601 601
602 If PIXMAP is an alist, LOCALE must be omitted. If PIXMAP is a 602 If PIXMAP is an alist, LOCALE must be omitted. If PIXMAP is a
603 specifier object, LOCALE can be a locale, a locale type, 'all, 603 specifier object, LOCALE can be a locale, a locale type, 'all,
650 650
651 (defun set-face-underline-p (face underline-p &optional locale tag-set 651 (defun set-face-underline-p (face underline-p &optional locale tag-set
652 how-to-add) 652 how-to-add)
653 "Change the underline property of FACE to UNDERLINE-P. 653 "Change the underline property of FACE to UNDERLINE-P.
654 UNDERLINE-P is normally a face-boolean instantiator; see 654 UNDERLINE-P is normally a face-boolean instantiator; see
655 `face-boolean-specifier-p'. 655 `make-face-boolean-specifier'.
656 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 656 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
657 HOW-TO-ADD arguments." 657 HOW-TO-ADD arguments."
658 (interactive (face-interactive "underline-p" "underlined")) 658 (interactive (face-interactive "underline-p" "underlined"))
659 (set-face-property face 'underline underline-p locale tag-set how-to-add)) 659 (set-face-property face 'underline underline-p locale tag-set how-to-add))
660 660
665 665
666 (defun set-face-strikethru-p (face strikethru-p &optional locale tag-set 666 (defun set-face-strikethru-p (face strikethru-p &optional locale tag-set
667 how-to-add) 667 how-to-add)
668 "Change whether FACE is strikethru-d (i.e. struck through) in LOCALE. 668 "Change whether FACE is strikethru-d (i.e. struck through) in LOCALE.
669 STRIKETHRU-P is normally a face-boolean instantiator; see 669 STRIKETHRU-P is normally a face-boolean instantiator; see
670 `face-boolean-specifier-p'. 670 `make-face-boolean-specifier'.
671 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 671 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
672 HOW-TO-ADD arguments." 672 HOW-TO-ADD arguments."
673 (interactive (face-interactive "strikethru-p" "strikethru-d")) 673 (interactive (face-interactive "strikethru-p" "strikethru-d"))
674 (set-face-property face 'strikethru strikethru-p locale tag-set how-to-add)) 674 (set-face-property face 'strikethru strikethru-p locale tag-set how-to-add))
675 675
680 680
681 (defun set-face-highlight-p (face highlight-p &optional locale tag-set 681 (defun set-face-highlight-p (face highlight-p &optional locale tag-set
682 how-to-add) 682 how-to-add)
683 "Change whether FACE is highlighted in LOCALE (TTY locales only). 683 "Change whether FACE is highlighted in LOCALE (TTY locales only).
684 HIGHLIGHT-P is normally a face-boolean instantiator; see 684 HIGHLIGHT-P is normally a face-boolean instantiator; see
685 `face-boolean-specifier-p'. 685 `make-face-boolean-specifier'.
686 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 686 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
687 HOW-TO-ADD arguments." 687 HOW-TO-ADD arguments."
688 (interactive (face-interactive "highlight-p" "highlighted")) 688 (interactive (face-interactive "highlight-p" "highlighted"))
689 (set-face-property face 'highlight highlight-p locale tag-set how-to-add)) 689 (set-face-property face 'highlight highlight-p locale tag-set how-to-add))
690 690
694 (face-property-instance face 'dim domain default no-fallback)) 694 (face-property-instance face 'dim domain default no-fallback))
695 695
696 (defun set-face-dim-p (face dim-p &optional locale tag-set how-to-add) 696 (defun set-face-dim-p (face dim-p &optional locale tag-set how-to-add)
697 "Change whether FACE is dimmed in LOCALE. 697 "Change whether FACE is dimmed in LOCALE.
698 DIM-P is normally a face-boolean instantiator; see 698 DIM-P is normally a face-boolean instantiator; see
699 `face-boolean-specifier-p'. 699 `make-face-boolean-specifier'.
700 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 700 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
701 HOW-TO-ADD arguments." 701 HOW-TO-ADD arguments."
702 (interactive (face-interactive "dim-p" "dimmed")) 702 (interactive (face-interactive "dim-p" "dimmed"))
703 (set-face-property face 'dim dim-p locale tag-set how-to-add)) 703 (set-face-property face 'dim dim-p locale tag-set how-to-add))
704 704
709 709
710 (defun set-face-blinking-p (face blinking-p &optional locale tag-set 710 (defun set-face-blinking-p (face blinking-p &optional locale tag-set
711 how-to-add) 711 how-to-add)
712 "Change whether FACE is blinking in LOCALE (TTY locales only). 712 "Change whether FACE is blinking in LOCALE (TTY locales only).
713 BLINKING-P is normally a face-boolean instantiator; see 713 BLINKING-P is normally a face-boolean instantiator; see
714 `face-boolean-specifier-p'. 714 `make-face-boolean-specifier'.
715 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 715 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
716 HOW-TO-ADD arguments." 716 HOW-TO-ADD arguments."
717 (interactive (face-interactive "blinking-p" "blinking")) 717 (interactive (face-interactive "blinking-p" "blinking"))
718 (set-face-property face 'blinking blinking-p locale tag-set how-to-add)) 718 (set-face-property face 'blinking blinking-p locale tag-set how-to-add))
719 719
723 (face-property-instance face 'reverse domain default no-fallback)) 723 (face-property-instance face 'reverse domain default no-fallback))
724 724
725 (defun set-face-reverse-p (face reverse-p &optional locale tag-set how-to-add) 725 (defun set-face-reverse-p (face reverse-p &optional locale tag-set how-to-add)
726 "Change whether FACE is reversed in LOCALE (TTY locales only). 726 "Change whether FACE is reversed in LOCALE (TTY locales only).
727 REVERSE-P is normally a face-boolean instantiator; see 727 REVERSE-P is normally a face-boolean instantiator; see
728 `face-boolean-specifier-p'. 728 `make-face-boolean-specifier'.
729 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and 729 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
730 HOW-TO-ADD arguments." 730 HOW-TO-ADD arguments."
731 (interactive (face-interactive "reverse-p" "reversed")) 731 (interactive (face-interactive "reverse-p" "reversed"))
732 (set-face-property face 'reverse reverse-p locale tag-set how-to-add)) 732 (set-face-property face 'reverse reverse-p locale tag-set how-to-add))
733 733