From 1c9992b7da199ef2f57adf1d870db1b75c57c0d8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 3 Apr 2008 04:06:55 +0000 Subject: [PATCH] (create-fontset-from-x-resource): Handle the error of X resource more gracefully. --- lisp/international/fontset.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index b8c4a964b82..7fa9761ef07 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -944,7 +944,9 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") 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))))) ;; -- 2.39.5