Mercurial > emacs
comparison lisp/cus-face.el @ 17401:83ce353473ec
Don't add custom-initialize-frame to after-make-frame-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 11 Apr 1997 19:54:36 +0000 |
| parents | 3fe0d505b101 |
| children | 30a567b89fb6 |
comparison
equal
deleted
inserted
replaced
| 17400:55e7f9ff6456 | 17401:83ce353473ec |
|---|---|
| 542 (setq frame (car (frame-list)))) | 542 (setq frame (car (frame-list)))) |
| 543 (unless (equal (custom-get-frame-properties) | 543 (unless (equal (custom-get-frame-properties) |
| 544 (custom-get-frame-properties frame)) | 544 (custom-get-frame-properties frame)) |
| 545 (custom-initialize-faces frame))) | 545 (custom-initialize-faces frame))) |
| 546 | 546 |
| 547 ;; Enable. This should go away when bundled with Emacs. | |
| 548 (unless (string-match "XEmacs" emacs-version) | |
| 549 (add-hook 'after-make-frame-hook 'custom-initialize-frame)) | |
| 550 | |
| 551 ;;; Initializing. | 547 ;;; Initializing. |
| 552 | 548 |
| 553 (and (fboundp 'make-face) | 549 (and (fboundp 'make-face) |
| 554 (make-face 'custom-face-empty)) | 550 (make-face 'custom-face-empty)) |
| 555 | 551 |