Commit 301afadc authored by Chong Yidong's avatar Chong Yidong
Browse files

* startup.el (command-line): Fix X resource class for cursorColor.

parent 233ae900
2012-01-14 Chong Yidong <cyd@gnu.org>
* startup.el (command-line): Fix X resource class for cursorColor.
2012-01-14 Paul Eggert <eggert@cs.ucla.edu>
* epg.el (epg--make-temp-file): Avoid permission race condition
......
......@@ -910,7 +910,7 @@ opening the first frame (e.g. open a connection to an X server).")
(setq no-blinking-cursor t)))
;; If the cursorColor X resource exists, alter the `cursor' face
;; spec, but mark it as changed outside of Customize.
(let ((color (x-get-resource "cursorColor" "CursorColor")))
(let ((color (x-get-resource "cursorColor" "Foreground")))
(when color
(put 'cursor 'theme-face
`((changed ((t :background ,color)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment