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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 968e2f91996933b7d9729586975c1c7247ecf830..81556de8934917b0b48de391364dfa04b28b7acd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/startup.el b/lisp/startup.el
index 1cbf2f74c14374585df3e26465820f24c6172931..44e0708e3a9a4d5c2d197e376466ec00f6b5692b 100644 (file)
--- 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)))))