diff options
| author | Richard M. Stallman <[email protected]> | 1993-05-25 02:28:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-05-25 02:28:39 +0000 |
| commit | 36fc9c9f18c1322d70957b72c8f572bd11a3f138 (patch) | |
| tree | 8568169c3b8804db5d80c9d2a9412005a619620c | |
| parent | 1dd6d2a2dd22fa69f0d3be1112c908889fd83aa9 (diff) | |
(frame-initialize): Handle `reverse' as parameter.
| -rw-r--r-- | lisp/frame.el | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 93971344a5..98f08cba16 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -94,9 +94,21 @@ These supercede the values given in `default-frame-alist'.") ;; it has a minibuffer, but let initial-frame-alist omit the ;; minibuffer spec. (or (delq terminal-frame (minibuffer-frame-list)) - (setq default-minibuffer-frame - (setq frame-initial-frame - (new-frame initial-frame-alist)))) + (progn + (setq default-minibuffer-frame + (setq frame-initial-frame + (new-frame initial-frame-alist))) + ;; Handle `reverse' as a parameter. + (if (cdr (or (assq 'reverse initial-frame-alist) + (assq 'reverse default-frame-alist))) + (let ((params (frame-parameters frame-initial-frame))) + (modify-frame-parameters + frame-initial-frame + (list (cons 'foreground-color (cdr (assq 'background-color params))) + (cons 'background-color (cdr (assq 'foreground-color params))) + (cons 'mouse-color (cdr (assq 'background-color params))) + (cons 'cursor-color (cdr (assq 'background-color params))) + (cons 'border-color (cdr (assq 'background-color params))))))))) ;; At this point, we know that we have a frame open, so we ;; can delete the terminal frame. |