Mercurial > emacs

changeset 11464:4921121fbdc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-face-background): Handle FRAME = nil directly so stipple colors work in that case.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Apr 1995 04:09:48 +0000
parents 7a4512fba8bc
children 9fa2f8b87890
files lisp/faces.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Apr 16 03:20:40 1995 +0000
+++ b/lisp/faces.el	Sun Apr 16 04:09:48 1995 +0000
@@ -137,7 +137,14 @@
 	   (not (x-display-color-p frame))
 	   (not (x-display-grayscale-p frame)))
       (set-face-stipple face color frame)
-    (internal-set-face-1 face 'background color 5 frame)))
+    (if (null frame)
+	(let ((frames (frame-list)))
+	  (while frames
+	    (set-face-background (face-name face) color (car frames))
+	    (setq frames (cdr frames)))
+	  (set-face-background face color t)
+	  color)
+      (internal-set-face-1 face 'background color 5 frame))))
 
 (defun set-face-stipple (face name &optional frame)
   "Change the stipple pixmap of face FACE to PIXMAP.