changeset 93576:ed9ff03f156c

(create-fontset-from-x-resource): Handle the error of X resource more gracefully.
author Kenichi Handa <handa@m17n.org>
date Thu, 03 Apr 2008 04:06:55 +0000
parents 7303db4cd998
children bac2b63b476f
files lisp/international/fontset.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))))
 
 ;;