Mercurial > emacs

changeset 3049:314cb8d34dcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-create-frame-with-faces): Handle `reverse' as parameter.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 May 1993 02:28:03 +0000
parents 96ff8e5744b2
children 8e2472cd4409
files lisp/faces.el
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue May 25 02:18:33 1993 +0000
+++ b/lisp/faces.el	Tue May 25 02:28:03 1993 +0000
@@ -724,6 +724,17 @@
 	   (rest faces))
       (set-frame-face-alist frame faces)
 
+      (if (cdr (or (assq 'reverse parameters)
+		   (assq 'reverse default-frame-alist)))
+	  (let ((params (frame-parameters frame)))
+	    (modify-frame-parameters
+	     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)))))))
+
       ;; Copy the vectors that represent the faces.
       ;; Also fill them in from X resources.
       (while rest