# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776589111 0
# Node ID 3043fef029a7cd93afa0aed216f82279812a9160
# Parent  66866be86727fcecd4b58c01b42afa8cdf52c3be
(copy-face): Ignore errors in set-face-font.

diff -r 66866be86727 -r 3043fef029a7 lisp/faces.el
--- a/lisp/faces.el	Thu Aug 11 03:47:40 1994 +0000
+++ b/lisp/faces.el	Thu Aug 11 07:11:51 1994 +0000
@@ -323,7 +323,13 @@
       (setq old-face (internal-get-face old-face frame))
       (setq new-face (or (internal-find-face new-face new-frame)
 			 (make-face new-face)))
-      (set-face-font new-face (face-font old-face frame) new-frame)
+      (condition-case nil
+	  ;; A face that has a global symbolic font modifier such as `bold'
+	  ;; might legitimately get an error here.
+	  ;; Use the frame's default font in that case.
+	  (set-face-font new-face (face-font old-face frame) new-frame)
+	(error
+	 (set-face-font new-face nil new-frame)))
       (set-face-foreground new-face (face-foreground old-face frame) new-frame)
       (set-face-background new-face (face-background old-face frame) new-frame)
 ;;;      (set-face-background-pixmap