Mercurial > emacs

comparison lisp/frame.el @ 3183:c7ae5e66a98c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-initialize): Handle reverseVideo resource.
author Richard M. Stallman <rms@gnu.org>
date Thu, 27 May 1993 23:50:38 +0000
parents 8e2472cd4409
children 2f5a9b79edf7
comparison
equal deleted inserted replaced
3182:d38749acdf27 3183:c7ae5e66a98c
98 (setq default-minibuffer-frame 98 (setq default-minibuffer-frame
99 (setq frame-initial-frame 99 (setq frame-initial-frame
100 (new-frame initial-frame-alist))) 100 (new-frame initial-frame-alist)))
101 ;; Handle `reverse' as a parameter. 101 ;; Handle `reverse' as a parameter.
102 (if (cdr (or (assq 'reverse initial-frame-alist) 102 (if (cdr (or (assq 'reverse initial-frame-alist)
103 (assq 'reverse default-frame-alist))) 103 (assq 'reverse default-frame-alist)
104 (cons nil
105 (x-get-resource "reverseVideo" "Reversevideo"))))
104 (let ((params (frame-parameters frame-initial-frame))) 106 (let ((params (frame-parameters frame-initial-frame)))
105 (modify-frame-parameters 107 (modify-frame-parameters
106 frame-initial-frame 108 frame-initial-frame
107 (list (cons 'foreground-color (cdr (assq 'background-color params))) 109 (list (cons 'foreground-color (cdr (assq 'background-color params)))
108 (cons 'background-color (cdr (assq 'foreground-color params))) 110 (cons 'background-color (cdr (assq 'foreground-color params)))