mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): Check for on' or true'

Browse Source 
as reverseVideo resource value.
This commit is contained in:
Richard M. Stallman 1993-08-14 09:23:24 +00:00
parent 476731da98
commit ec3b1a9bf9
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/faces.el
View File

@ -876,7 +876,8 @@ selected frame."
(if (cdr (or (assq 'reverse parameters)
(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)))
(modify-frame-parameters
frame