changeset 4621:859d97b0f5bd

(frame-initialize): Handle reverseVideo x-resource.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Aug 1993 08:39:25 +0000
parents 5474175de175
children a55b9c08e4af
files lisp/frame.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Sat Aug 14 07:54:59 1993 +0000
+++ b/lisp/frame.el	Sat Aug 14 08:39:25 1993 +0000
@@ -111,7 +111,9 @@
 		    (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