Commit 88046be2 authored by Jim Blandy's avatar Jim Blandy
Browse files

* term/x-win.el: Check the reverseVideo/ReverseVideo resource,

	correctly distinguish between "on" and "off" values, and put a
	parameter in default-frame-alist.
	* frame.el (frame-initialize): Don't call x-get-resource here.
parent d4f70b76
......@@ -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
......
......@@ -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")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment