Mercurial > emacs

changeset 32376:267a06bd1387

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-set-background-mode): Only do anything if the bg-mode or display-type has actually changed. Use `dolist'.
author Miles Bader <miles@gnu.org>
date Wed, 11 Oct 2000 10:00:09 +0000
parents b9b7ecbf8925
children a7019406d2ee
files lisp/faces.el
diffstat 1 files changed, 40 insertions(+), 36 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Wed Oct 11 09:46:28 2000 +0000
+++ b/lisp/faces.el	Wed Oct 11 10:00:09 2000 +0000
@@ -1308,42 +1308,46 @@
   (let* ((bg-resource
 	  (and window-system
 	       (x-get-resource ".backgroundMode" "BackgroundMode")))
-	 (bg-mode (cond (frame-background-mode)
-			((null window-system)
-			 ;; No way to determine this automatically (?).
-			 'dark)
-			(bg-resource
-			 (intern (downcase bg-resource)))
-			((< (apply '+ (x-color-values
-				       (frame-parameter frame 'background-color)
-				       frame))
-			    ;; Just looking at the screen, colors whose
-			    ;; values add up to .6 of the white total
-			    ;; still look dark to me.
-			    (* (apply '+ (x-color-values "white" frame)) .6))
-			 'dark)
-			(t 'light)))
-	 (display-type (cond ((null window-system)
-			      (if (tty-display-color-p frame) 'color 'mono))
-			     ((x-display-color-p frame)
-			      'color)
-			     ((x-display-grayscale-p frame)
-			      'grayscale)
-			     (t 'mono))))
-    (modify-frame-parameters frame
-			     (list (cons 'background-mode bg-mode)
-				   (cons 'display-type display-type))))
-  
-  ;; For all named faces, choose face specs matching the new frame
-  ;; parameters.
-  (let ((face-list (face-list)))
-    (while face-list
-      (let* ((face (car face-list))
-	     (spec (or (get face 'saved-face)
-		       (get face 'face-defface-spec))))
-	(when spec
-	  (face-spec-set face spec frame))
-      (setq face-list (cdr face-list))))))
+	 (bg-mode
+	  (cond (frame-background-mode)
+		((null window-system)
+		 ;; No way to determine this automatically (?).
+		 'dark)
+		(bg-resource
+		 (intern (downcase bg-resource)))
+		((< (apply '+ (x-color-values
+			       (frame-parameter frame 'background-color)
+			       frame))
+		    ;; Just looking at the screen, colors whose
+		    ;; values add up to .6 of the white total
+		    ;; still look dark to me.
+		    (* (apply '+ (x-color-values "white" frame)) .6))
+		 'dark)
+		(t 'light)))
+	 (display-type
+	  (cond ((null window-system)
+		 (if (tty-display-color-p frame) 'color 'mono))
+		((x-display-color-p frame)
+		 'color)
+		((x-display-grayscale-p frame)
+		 'grayscale)
+		(t 'mono)))
+	 (old-bg-mode
+	  (frame-parameter frame 'background-mode))
+	 (old-display-type
+	  (frame-parameter frame 'display-type)))
+
+    (unless (and (eq bg-mode old-bg-mode) (eq display-type old-display-type))
+      (modify-frame-parameters frame
+			       (list (cons 'background-mode bg-mode)
+				     (cons 'display-type display-type)))
+      ;; For all named faces, choose face specs matching the new frame
+      ;; parameters.
+      (dolist (face (face-list))
+	(let ((spec (or (get face 'saved-face)
+			(get face 'face-defface-spec))))
+	  (when spec
+	    (face-spec-set face spec frame)))))))