Mercurial > hg > xemacs-beta
comparison lisp/x-faces.el @ 265:8efd647ea9ca r20-5b31
Import from CVS: tag r20-5b31
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:25:37 +0200 |
| parents | 727739f917cb |
| children | b2472a1930f2 |
comparison
equal
deleted
inserted
replaced
| 264:682d2a9d41a5 | 265:8efd647ea9ca |
|---|---|
| 543 face) | 543 face) |
| 544 locale | 544 locale |
| 545 x-tag-set) | 545 x-tag-set) |
| 546 (set-face-background-pixmap face bgp locale nil append)) | 546 (set-face-background-pixmap face bgp locale nil append)) |
| 547 (when ulp | 547 (when ulp |
| 548 (remove-specifier-specs-matching-tag-set-cdrs (face-underline-p face) | 548 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 549 face 'underline) | |
| 549 locale | 550 locale |
| 550 tty-tag-set) | 551 tty-tag-set) |
| 551 (set-face-underline-p face ulp locale nil append)) | 552 (set-face-underline-p face ulp locale nil append)) |
| 552 (when stp | 553 (when stp |
| 553 (remove-specifier-specs-matching-tag-set-cdrs (face-strikethru-p face) | 554 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 555 face 'strikethru) | |
| 554 locale | 556 locale |
| 555 tty-tag-set) | 557 tty-tag-set) |
| 556 (set-face-strikethru-p face stp locale nil append)) | 558 (set-face-strikethru-p face stp locale nil append)) |
| 557 (when hp | 559 (when hp |
| 558 (remove-specifier-specs-matching-tag-set-cdrs (face-highlight-p face) | 560 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 561 face 'highlight) | |
| 559 locale | 562 locale |
| 560 tty-tag-set) | 563 tty-tag-set) |
| 561 (set-face-highlight-p face hp locale nil append)) | 564 (set-face-highlight-p face hp locale nil append)) |
| 562 (when dp | 565 (when dp |
| 563 (remove-specifier-specs-matching-tag-set-cdrs (face-dim-p face) | 566 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 567 face 'dim) | |
| 564 locale | 568 locale |
| 565 tty-tag-set) | 569 tty-tag-set) |
| 566 (set-face-dim-p face dp locale nil append)) | 570 (set-face-dim-p face dp locale nil append)) |
| 567 (when bp | 571 (when bp |
| 568 (remove-specifier-specs-matching-tag-set-cdrs (face-blinking-p face) | 572 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 573 face 'blinking) | |
| 569 locale | 574 locale |
| 570 tty-tag-set) | 575 tty-tag-set) |
| 571 (set-face-blinking-p face bp locale nil append)) | 576 (set-face-blinking-p face bp locale nil append)) |
| 572 (when rp | 577 (when rp |
| 573 (remove-specifier-specs-matching-tag-set-cdrs (face-reverse-p face) | 578 (remove-specifier-specs-matching-tag-set-cdrs (face-property |
| 579 face 'reverse) | |
| 574 locale | 580 locale |
| 575 tty-tag-set) | 581 tty-tag-set) |
| 576 (set-face-reverse-p face rp locale nil append)) | 582 (set-face-reverse-p face rp locale nil append)) |
| 577 )) | 583 )) |
| 578 | 584 |