mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(create-fontset-from-x-resource):

Browse Source 
Handle the error of X resource more gracefully.
This commit is contained in:
Kenichi Handa 2008-04-03 04:06:55 +00:00
parent f2268dc056
commit 1c9992b7da
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/international/fontset.el
View File

@ -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)))))
;;