diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-03 05:50:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-03 05:50:43 +0000 |
| commit | 949d4ac78ebf71380c79269c221e118290607c51 (patch) | |
| tree | 53c63372655572092c21fa0f722be3d7b68205f1 | |
| parent | 82ee0df472da19512c7e588bfc05e169d364e9d6 (diff) | |
| download | emacs-949d4ac78ebf71380c79269c221e118290607c51.tar.gz | |
(frame-initialize): Set cursor-color last.
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index a255c586401..f4e5e09eddf 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -116,10 +116,12 @@ These supercede the values given in `default-frame-alist'.") (let ((params (frame-parameters frame-initial-frame))) (modify-frame-parameters frame-initial-frame - (list (cons 'foreground-color (cdr (assq 'background-color params))) + ;; Must set cursor-color after background color. + ;; So put it first. + (list (cons 'cursor-color (cdr (assq 'background-color params))) + (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))))))))) ;; At this point, we know that we have a frame open, so we |