Don't handle reverseVideo X resource specially

* lisp/term/x-win.el (window-system-initialization): Don't handle
reverseVideo specially (bug#32921).

diff --git a/etc/NEWS b/etc/NEWS
index 81b34a1643f40f05f34309bfa705e51efcaa85da..8103ac0d67f2c458771ba19db4e62ba4ca739dd6 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -151,6 +151,14 @@ of 'user-emacs-directory'.
 \f
 * Incompatible changes in Emacs 29.1
 
+---
+** Previously, the X reverseVideo value at startup was heeded for all frames.
+This meant that if you had a reverseVideo resource on the initial
+display, and then opened up a new frame on a display without any
+explicit reverseVideo setting, it would get heeded there, too.  (This
+included terminal frames.)  In Emacs 29, the reverseVideo X resource
+is handled like all the other X resources, and set on a per-frame basis.
+
 +++
 ** 'E' in 'query-replace' now edits the replacement with exact case.
 Previously, this command did the same as 'e'.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 1f29b24ef2084a76da771acdbd17c85c78acd803..31fc3ba534d3343c26c0420d299d928af25a0ac1 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1291,14 +1291,6 @@ This returns an error if any Emacs frames are X frames."
                    (cons (cons 'width (cdr (assq 'width parsed)))
                          default-frame-alist))))))
 
-  ;; Check the reverseVideo resource.
-  (let ((case-fold-search t))
-    (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
-      (if (and rv
-              (string-match "^\\(true\\|yes\\|on\\)$" rv))
-         (setq default-frame-alist
-               (cons '(reverse . t) default-frame-alist)))))
-
   ;; Set x-selection-timeout, measured in milliseconds.
   (let ((res-selection-timeout (x-get-resource "selectionTimeout"
                                               "SelectionTimeout")))