Mercurial > emacs
comparison lisp/faces.el @ 8011:1bb462fc29fc
(make-face): Return the face name, not the vector.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 22 Jun 1994 21:28:17 +0000 |
| parents | 6d0a448be1ec |
| children | 0885b28decc6 |
comparison
equal
deleted
inserted
replaced
| 8010:e199eda519b5 | 8011:1bb462fc29fc |
|---|---|
| 228 (setq frames (cdr frames))) | 228 (setq frames (cdr frames))) |
| 229 (setq global-face-data (cons (cons name face) global-face-data))) | 229 (setq global-face-data (cons (cons name face) global-face-data))) |
| 230 ;; when making a face after frames already exist | 230 ;; when making a face after frames already exist |
| 231 (if (eq window-system 'x) | 231 (if (eq window-system 'x) |
| 232 (make-face-x-resource-internal face)) | 232 (make-face-x-resource-internal face)) |
| 233 face))) | 233 face)) |
| 234 name) | |
| 234 | 235 |
| 235 ;; Fill in a face by default based on X resources, for all existing frames. | 236 ;; Fill in a face by default based on X resources, for all existing frames. |
| 236 ;; This has to be done when a new face is made. | 237 ;; This has to be done when a new face is made. |
| 237 (defun make-face-x-resource-internal (face &optional frame set-anyway) | 238 (defun make-face-x-resource-internal (face &optional frame set-anyway) |
| 238 (cond ((null frame) | 239 (cond ((null frame) |