Mercurial > emacs
comparison lisp/faces.el @ 9622:14e1032a7ae7
(make-face): Add new face to Face menu on creation. -- Bng
| author | Boris Goldowsky <boris@gnu.org> |
|---|---|
| date | Thu, 20 Oct 1994 18:11:27 +0000 |
| parents | b36d5e88cccc |
| children | ca4418b4e8ec |
comparison
equal
deleted
inserted
replaced
| 9621:4246725d9759 | 9622:14e1032a7ae7 |
|---|---|
| 271 (setq frames (cdr frames))) | 271 (setq frames (cdr frames))) |
| 272 (setq global-face-data (cons (cons name face) global-face-data))) | 272 (setq global-face-data (cons (cons name face) global-face-data))) |
| 273 ;; when making a face after frames already exist | 273 ;; when making a face after frames already exist |
| 274 (if (eq window-system 'x) | 274 (if (eq window-system 'x) |
| 275 (make-face-x-resource-internal face)) | 275 (make-face-x-resource-internal face)) |
| 276 ;; add to menu | |
| 277 (if (fboundp 'facemenu-add-new-face) | |
| 278 (facemenu-add-new-face name)) | |
| 276 face)) | 279 face)) |
| 277 name) | 280 name) |
| 278 | 281 |
| 279 ;; Fill in a face by default based on X resources, for all existing frames. | 282 ;; Fill in a face by default based on X resources, for all existing frames. |
| 280 ;; This has to be done when a new face is made. | 283 ;; This has to be done when a new face is made. |