Mercurial > emacs
changeset 3050:8e2472cd4409
(frame-initialize): Handle `reverse' as parameter.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 May 1993 02:28:39 +0000 |
| parents | 314cb8d34dcd |
| children | 413a5d7f00b0 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Tue May 25 02:28:03 1993 +0000 +++ b/lisp/frame.el Tue May 25 02:28:39 1993 +0000 @@ -94,9 +94,21 @@ ;; 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.