mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

(frame-initialize): Check for on' or true'

Browse Source 
as reverseVideo resource value.
This commit is contained in:
Richard M. Stallman 1993-08-14 09:23:46 +00:00
parent ec3b1a9bf9
commit 88bb5793b5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/frame.el
View File

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