diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/frame.el | 4 | ||||
| -rw-r--r-- | lisp/term/x-win.el | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 5902e262de7..a9385ff9c6c 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -112,9 +112,7 @@ These supersede the values given in `default-frame-alist'.") (setq tail (cdr tail)))) ;; Handle `reverse' as a parameter. (if (cdr (or (assq 'reverse initial-frame-alist) - (assq 'reverse default-frame-alist) - (cons nil - (x-get-resource "reverseVideo" "ReverseVideo")))) + (assq 'reverse default-frame-alist))) (let ((params (frame-parameters frame-initial-frame))) (modify-frame-parameters frame-initial-frame diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 4d3dda600e3..263a0a06d86 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -529,6 +529,13 @@ This returns ARGS with the arguments that have been processed removed." (setq initial-frame-alist (append initial-frame-alist (x-parse-geometry res-geometry))))) +;; Check the reverseVideo resource. +(if (assoc + (x-get-resource "reverseVideo" + "ReverseVideo") + '("True" "true" "Yes" "yes")) + (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"))) |