Mercurial > emacs
comparison lisp/faces.el @ 66717:5271a20d9255
* font-lock.el: Don't deal with font-lock-face-attributes here,
move the code ...
* startup.el (command-line): ... here. Use face-spec-set instead
of custom-declare-face.
* faces.el (face-spec-set): Reset the face if spec is not nil.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 05 Nov 2005 07:29:45 +0000 |
| parents | 56a63119fa20 |
| children | 35ab5e34fdf5 693e794b57bf |
comparison
equal
deleted
inserted
replaced
| 66716:25ad3e63f2a1 | 66717:5271a20d9255 |
|---|---|
| 1446 "Set FACE's attributes according to the first matching entry in SPEC. | 1446 "Set FACE's attributes according to the first matching entry in SPEC. |
| 1447 FRAME is the frame whose frame-local face is set. FRAME nil means | 1447 FRAME is the frame whose frame-local face is set. FRAME nil means |
| 1448 do it on all frames. See `defface' for information about SPEC. | 1448 do it on all frames. See `defface' for information about SPEC. |
| 1449 If SPEC is nil, do nothing." | 1449 If SPEC is nil, do nothing." |
| 1450 (let ((attrs (face-spec-choose spec frame))) | 1450 (let ((attrs (face-spec-choose spec frame))) |
| 1451 (when attrs | 1451 (when spec |
| 1452 (face-spec-reset-face face frame)) | 1452 (face-spec-reset-face face frame)) |
| 1453 (while attrs | 1453 (while attrs |
| 1454 (let ((attribute (car attrs)) | 1454 (let ((attribute (car attrs)) |
| 1455 (value (car (cdr attrs)))) | 1455 (value (car (cdr attrs)))) |
| 1456 ;; Support some old-style attribute names and values. | 1456 ;; Support some old-style attribute names and values. |