Mercurial > emacs
comparison lisp/faces.el @ 17950:4ef122a60b5a
(x-create-frame-with-faces): Don't call frame-set-background-mode
until after handling the reverse-video parameter.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 May 1997 01:30:07 +0000 |
| parents | 057ea7eaaff3 |
| children | 89a58c1d8d2c |
comparison
equal
deleted
inserted
replaced
| 17949:3b0f71e1661d | 17950:4ef122a60b5a |
|---|---|
| 1204 (setq frame (x-create-frame parameters)) | 1204 (setq frame (x-create-frame parameters)) |
| 1205 (frame-set-background-mode frame)) | 1205 (frame-set-background-mode frame)) |
| 1206 (let* ((visibility-spec (assq 'visibility parameters)) | 1206 (let* ((visibility-spec (assq 'visibility parameters)) |
| 1207 success faces rest) | 1207 success faces rest) |
| 1208 (setq frame (x-create-frame (cons '(visibility . nil) parameters))) | 1208 (setq frame (x-create-frame (cons '(visibility . nil) parameters))) |
| 1209 (frame-set-background-mode frame) | |
| 1210 (unwind-protect | 1209 (unwind-protect |
| 1211 (progn | 1210 (progn |
| 1212 | 1211 |
| 1213 ;; Copy the face alist, copying the face vectors | 1212 ;; Copy the face alist, copying the face vectors |
| 1214 ;; and emptying out their attributes. | 1213 ;; and emptying out their attributes. |
| 1244 (modify-frame-parameters frame | 1243 (modify-frame-parameters frame |
| 1245 (list (cons 'mouse-color fg)))) | 1244 (list (cons 'mouse-color fg)))) |
| 1246 (if (equal bg (cdr (assq 'cursor-color params))) | 1245 (if (equal bg (cdr (assq 'cursor-color params))) |
| 1247 (modify-frame-parameters frame | 1246 (modify-frame-parameters frame |
| 1248 (list (cons 'cursor-color fg)))))) | 1247 (list (cons 'cursor-color fg)))))) |
| 1248 | |
| 1249 (frame-set-background-mode frame) | |
| 1249 | 1250 |
| 1250 ;; Set up faces from the defface information | 1251 ;; Set up faces from the defface information |
| 1251 (mapcar (lambda (symbol) | 1252 (mapcar (lambda (symbol) |
| 1252 (let ((spec (or (get symbol 'saved-face) | 1253 (let ((spec (or (get symbol 'saved-face) |
| 1253 (get symbol 'face-defface-spec)))) | 1254 (get symbol 'face-defface-spec)))) |