Mercurial > emacs
changeset 7936:a64f4117dc04
(x-create-frame-with-faces): Set the cursor color last.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Jun 1994 13:39:14 +0000 |
| parents | f15e1a058e93 |
| children | bf963799d8be |
| files | lisp/faces.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Fri Jun 17 13:35:53 1994 +0000 +++ b/lisp/faces.el Fri Jun 17 13:39:14 1994 +0000 @@ -811,8 +811,10 @@ (list (cons 'foreground-color (cdr (assq 'background-color params))) (cons 'background-color (cdr (assq 'foreground-color params))) (cons 'mouse-color (cdr (assq 'background-color params))) - (cons 'cursor-color (cdr (assq 'background-color params))) - (cons 'border-color (cdr (assq 'background-color params))))))) + (cons 'border-color (cdr (assq 'background-color params))))) + (modify-frame-parameters + frame + (list (cons 'cursor-color (cdr (assq 'background-color params))))))) ;; Copy the vectors that represent the faces. ;; Also fill them in from X resources.