diff options
| author | Jim Blandy <[email protected]> | 1993-07-03 10:17:56 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1993-07-03 10:17:56 +0000 |
| commit | 88046be2adb17f7f874f694d2ec9e74c2343b606 (patch) | |
| tree | 253ed6d67ae6c67757e8553d48dc632a2d3c0d3a /lisp/term | |
| parent | d4f70b769dccab81890ea584c24b93159ff7dbfa (diff) | |
* 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.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 4d3dda600e..263a0a06d8 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -529,6 +529,13 @@ This returns ARGS with the arguments that have been processed removed." (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"))) |