From 301afadcbf1dca3b78e11d2c8781d904aa00abea Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 14 Jan 2012 21:52:14 +0800 Subject: [PATCH] * startup.el (command-line): Fix X resource class for cursorColor. --- lisp/ChangeLog | 4 ++++ lisp/startup.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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))))) -- 2.39.2