From: Jim Blandy <jimb@redhat.com>
Date: Sun, 4 Jul 1993 01:46:30 +0000 (+0000)
Subject: * faces.el (make-face-bold, make-face-italic,
X-Git-Tag: emacs-19.34~11882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eacaa9905ac00841083d791995a50633ce713688;p=emacs.git

* faces.el (make-face-bold, make-face-italic,
	make-face-bold-italic, make-face-unbold, make-face-unitalic):
	Properly pass noerror argument to recursive calls.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 9d84a3dd85e..a9481f30ad8 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -498,7 +498,7 @@ If NOERROR is non-nil, return nil on failure."
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (make-face-bold face (car frames))
+	    (make-face-bold face (car frames) noerror)
 	    (setq frames (cdr frames))))
       (setq face (internal-get-face face frame))
       (setq font (or (face-font face frame)
@@ -522,7 +522,7 @@ If NOERROR is non-nil, return nil on failure."
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (make-face-italic face (car frames))
+	    (make-face-italic face (car frames) noerror)
 	    (setq frames (cdr frames))))
       (setq face (internal-get-face face frame))
       (setq font (or (face-font face frame)
@@ -546,7 +546,7 @@ If NOERROR is non-nil, return nil on failure."
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (make-face-bold-italic face (car frames))
+	    (make-face-bold-italic face (car frames) noerror)
 	    (setq frames (cdr frames))))
       (setq face (internal-get-face face frame))
       (setq font (or (face-font face frame)
@@ -586,7 +586,7 @@ If NOERROR is non-nil, return nil on failure."
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (make-face-unbold face (car frames))
+	    (make-face-unbold face (car frames) noerror)
 	    (setq frames (cdr frames))))
       (setq face (internal-get-face face frame))
       (setq font1 (or (face-font face frame)
@@ -608,7 +608,7 @@ If NOERROR is non-nil, return nil on failure."
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (make-face-unitalic face (car frames))
+	    (make-face-unitalic face (car frames) noerror)
 	    (setq frames (cdr frames))))
       (setq face (internal-get-face face frame))
       (setq font1 (or (face-font face frame)