# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1207195615 0
# Node ID ed9ff03f156c9053c6d80af939a308129a0d3b84
# Parent  7303db4cd998fe8c60beb576b5583f2898c60ea4
(create-fontset-from-x-resource):
Handle the error of X resource more gracefully.

diff -r 7303db4cd998 -r ed9ff03f156c lisp/international/fontset.el
--- a/lisp/international/fontset.el	Thu Apr 03 04:06:48 2008 +0000
+++ b/lisp/international/fontset.el	Thu Apr 03 04:06:55 2008 +0000
@@ -944,7 +944,9 @@
 	fontset-spec)
     (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
 					      (format "Fontset-%d" idx)))
-      (create-fontset-from-fontset-spec fontset-spec t 'noerror)
+      (condition-case nil
+	  (create-fontset-from-fontset-spec fontset-spec t 'noerror)
+	(error (message "Fontset-%d: invalid specification in X resource" idx)))
       (setq idx (1+ idx)))))
 
 ;;