[Emacs-diffs] /srv/bzr/emacs/trunk r106865: * startup.el (command-line): Fix X resource class for cursorColor.

[Chong Yidong]

------------------------------------------------------------
revno: 106865
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-14 21:52:14 +0800
message:
  * startup.el (command-line): Fix X resource class for cursorColor.
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-14 07:09:15 +0000
+++ b/lisp/ChangeLog    2012-01-14 13:52:14 +0000
@@ -1,3 +1,7 @@
+2012-01-14  Chong Yidong  <address@hidden>
+
+       * startup.el (command-line): Fix X resource class for cursorColor.
+
 2012-01-14  Paul Eggert  <address@hidden>
 
        * epg.el (epg--make-temp-file): Avoid permission race condition

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2012-01-05 09:46:05 +0000
+++ b/lisp/startup.el   2012-01-14 13:52:14 +0000
@@ -910,7 +910,7 @@
            (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)))))