procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Chong Yidong 2012-01-14 21:52:14 +08:00
parent 233ae90006
commit 301afadcbf
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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

2
lisp/startup.el
View file

@ -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)))))