mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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.
This commit is contained in:
Jim Blandy 1993-07-03 10:17:56 +00:00
parent d4f70b769d
commit 88046be2ad
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/frame.el
View file

@ -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