emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 94d76adde1: Don't handle reverseVideo X resource specially


From: Lars Ingebrigtsen
Subject: master 94d76adde1: Don't handle reverseVideo X resource specially
Date: Sun, 19 Jun 2022 09:29:36 -0400 (EDT)

branch: master
commit 94d76adde1b4b2bd86168f8d703241f60d1749b2
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Don't handle reverseVideo X resource specially
    
    * lisp/term/x-win.el (window-system-initialization): Don't handle
    reverseVideo specially (bug#32921).
---
 etc/NEWS           | 8 ++++++++
 lisp/term/x-win.el | 8 --------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 81b34a1643..8103ac0d67 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -151,6 +151,14 @@ of 'user-emacs-directory'.
 
 * 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 1f29b24ef2..31fc3ba534 100644
--- 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")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]