diff options
| author | Richard M. Stallman | 1994-06-17 13:39:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-17 13:39:14 +0000 |
| commit | 2dd60dfd18b3149493c04315964c1a8e14260810 (patch) | |
| tree | 10926ee53d13aa9de7ae2a021422ccdcc6fc861a | |
| parent | 11dd3d61d572fa5b1afc36601b2c0043fb430eee (diff) | |
| download | emacs-2dd60dfd18b3149493c04315964c1a8e14260810.tar.gz emacs-2dd60dfd18b3149493c04315964c1a8e14260810.zip | |
(x-create-frame-with-faces): Set the cursor color last.
| -rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 36336f9b360..cfed0a65d26 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -811,8 +811,10 @@ selected frame." | |||
| 811 | (list (cons 'foreground-color (cdr (assq 'background-color params))) | 811 | (list (cons 'foreground-color (cdr (assq 'background-color params))) |
| 812 | (cons 'background-color (cdr (assq 'foreground-color params))) | 812 | (cons 'background-color (cdr (assq 'foreground-color params))) |
| 813 | (cons 'mouse-color (cdr (assq 'background-color params))) | 813 | (cons 'mouse-color (cdr (assq 'background-color params))) |
| 814 | (cons 'cursor-color (cdr (assq 'background-color params))) | 814 | (cons 'border-color (cdr (assq 'background-color params))))) |
| 815 | (cons 'border-color (cdr (assq 'background-color params))))))) | 815 | (modify-frame-parameters |
| 816 | frame | ||
| 817 | (list (cons 'cursor-color (cdr (assq 'background-color params))))))) | ||
| 816 | 818 | ||
| 817 | ;; Copy the vectors that represent the faces. | 819 | ;; Copy the vectors that represent the faces. |
| 818 | ;; Also fill them in from X resources. | 820 | ;; Also fill them in from X resources. |