mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(create-default-fontset): New function.

Browse source 
(create-fontset-from-x-resource): Use display-warning instead of
message.
This commit is contained in:
Kenichi Handa 2009-03-19 00:55:36 +00:00
parent 8458d4c169
commit 4bd4e5bcbe
1 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/international/fontset.el
View file

@ -579,6 +579,16 @@
(set-fontset-font "fontset-default" '(#xE000 . #xF8FF) nil))
(defun create-default-fontset ()
"Create the default fontset.
Internal use only. Should be called at startup time."
(condition-case err
(setup-default-fontset)
(error (display-warning
'initialization
(format "Creation of the default fontsets failed: %s" err)
:error))))
;; These are the registered registries/encodings from
;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01
@ -1049,8 +1059,11 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
(format "Fontset-%d" idx)))
(condition-case nil
(create-fontset-from-fontset-spec fontset-spec t 'noerror)
(error (message "Fontset-%d: invalid specification in X resource" idx)))
(create-fontset-from-fontset-spec fontset-spec t)
(error (display-warning
'initialization
(format "Fontset-%d: invalid specification in X resource" idx)
:warning)))
(setq idx (1+ idx)))))
;;