Commit 1e068e8f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(frame-initialize): Handle reverseVideo x-resource.

parent 3eec84bf
......@@ -111,7 +111,9 @@ These supersede the values given in `default-frame-alist'.")
(frame-remove-geometry-params initial-frame-alist))
;; Handle `reverse' as a parameter.
(if (cdr (or (assq 'reverse initial-frame-alist)
(assq 'reverse default-frame-alist)))
(assq 'reverse default-frame-alist)
(cons nil
(x-get-resource "reverseVideo" "ReverseVideo"))))
(let ((params (frame-parameters frame-initial-frame)))
(modify-frame-parameters
frame-initial-frame
......
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