summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-08-14 08:39:25 +0000
committerRichard M. Stallman <rms@gnu.org>1993-08-14 08:39:25 +0000
commit7e738e5e7899ee6217631252b64b2e64561bb39d (patch)
tree31ef103e919379d8de0c3ec3c6d80404b548b2a7 /lisp/frame.el
parentad4c598d6082d72e2476bef4dccc986b766cf18e (diff)
downloademacs-7e738e5e7899ee6217631252b64b2e64561bb39d.tar.gz
(frame-initialize): Handle reverseVideo x-resource.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 4e7581e3b76..ab41eb39621 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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