summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-08-14 09:23:46 +0000
committerRichard M. Stallman <rms@gnu.org>1993-08-14 09:23:46 +0000
commit88bb5793b5f89b68eec849e5278c2aea7c096896 (patch)
tree9fedb000ec7379b5e1062e6b55e6ec58ba438740 /lisp/frame.el
parentec3b1a9bf9bcea0e3a0703f2f47787cb7eaba8c4 (diff)
downloademacs-88bb5793b5f89b68eec849e5278c2aea7c096896.tar.gz
(frame-initialize): Check for `on' or `true'
as reverseVideo resource value.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index ab41eb39621..ac4304dc09f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -113,7 +113,8 @@ These supersede the values given in `default-frame-alist'.")
(if (cdr (or (assq 'reverse initial-frame-alist)
(assq 'reverse default-frame-alist)
(cons nil
- (x-get-resource "reverseVideo" "ReverseVideo"))))
+ (member (x-get-resource "reverseVideo" "ReverseVideo")
+ '("on" "true")))))
(let ((params (frame-parameters frame-initial-frame)))
(modify-frame-parameters
frame-initial-frame