Mercurial > emacs
changeset 3966:dcf86f82f2c8
* term/x-win.el: Check the reverseVideo/ReverseVideo resource,
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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 03 Jul 1993 10:17:56 +0000 |
| parents | b292a011b5f4 |
| children | 42932adb7074 |
| files | lisp/frame.el lisp/term/x-win.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sat Jul 03 07:22:04 1993 +0000 +++ b/lisp/frame.el Sat Jul 03 10:17:56 1993 +0000 @@ -112,9 +112,7 @@ (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
--- a/lisp/term/x-win.el Sat Jul 03 07:22:04 1993 +0000 +++ b/lisp/term/x-win.el Sat Jul 03 10:17:56 1993 +0000 @@ -529,6 +529,13 @@ (setq initial-frame-alist (append initial-frame-alist (x-parse-geometry res-geometry))))) +;; Check the reverseVideo resource. +(if (assoc + (x-get-resource "reverseVideo" + "ReverseVideo") + '("True" "true" "Yes" "yes")) + (setq default-frame-alist (cons '(reverse . t) default-frame-alist))) + ;; Set x-selection-timeout, measured in milliseconds. (let ((res-selection-timeout (x-get-resource "selectionTimeout" "SelectionTimeout")))