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. |