From: Chong Yidong Date: Sat, 14 Jan 2012 13:52:14 +0000 (+0800) Subject: * startup.el (command-line): Fix X resource class for cursorColor. X-Git-Tag: emacs-pretest-24.0.93~97^2~17^2~7 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=301afadcbf1dca3b78e11d2c8781d904aa00abea;p=emacs.git * startup.el (command-line): Fix X resource class for cursorColor. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 968e2f91996..81556de8934 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-01-14 Chong Yidong + + * startup.el (command-line): Fix X resource class for cursorColor. + 2012-01-14 Paul Eggert * epg.el (epg--make-temp-file): Avoid permission race condition diff --git a/lisp/startup.el b/lisp/startup.el index 1cbf2f74c14..44e0708e3a9 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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)))))