Mercurial > hg > xemacs-beta

diff lisp/faces.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 3d3049ae1304
line wrap: on
line diff
--- a/lisp/faces.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/faces.el	Mon Aug 13 11:37:21 2007 +0200
@@ -1636,7 +1636,7 @@
 If the optional FRAME argument is provided, change only
 in that frame; otherwise change each frame."
   (while (not (find-face face))
-    (setq face (signal 'wrong-type-argument (list 'facep face))))
+    (setq face (wrong-type-argument 'facep face)))
   (let ((bitmap-path (ecase (console-type)
 		       (x         x-bitmap-file-path)
 		       (mswindows mswindows-bitmap-file-path)))
@@ -1661,8 +1661,7 @@
 		   (and (listp pixmap) (= (length pixmap) 3)))))
 	(setq pixmap (signal 'wrong-type-argument
 			     (list 'stipple-pixmap-p pixmap)))))
-    (while (and frame (not (framep frame)))
-      (setq frame (signal 'wrong-type-argument (list 'framep frame))))
+    (check-type frame (or null frame))
     (set-face-background-pixmap face instantiator frame)))