Mercurial > emacs

changeset 102641:507916bdf147

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call create-defualt-fontset, not setup-default-fontset. Call create-fontset-from-fontset-spec within condition-case.
author Kenichi Handa <handa@m17n.org>
date Thu, 19 Mar 2009 00:57:57 +0000
parents 9b74238fc6c2
children 818e8197353e
files lisp/term/ns-win.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/ns-win.el	Thu Mar 19 00:57:20 2009 +0000
+++ b/lisp/term/ns-win.el	Thu Mar 19 00:57:57 2009 +0000
@@ -1179,9 +1179,14 @@
 (if (fboundp 'new-fontset)
     (progn
       ;; Setup the default fontset.
-      (setup-default-fontset)
+      (create-default-fontset)
       ;; Create the standard fontset.
-      (create-fontset-from-fontset-spec ns-standard-fontset-spec t)))
+      (condition-case err
+	  (create-fontset-from-fontset-spec ns-standard-fontset-spec t)
+	(error (display-warning 
+		'initialization
+		(format "Creation of the standard fontset failed: %s" err)
+		:error)))))
 
 ;;(push (cons 'font "-ns-*-*-*-*-*-10-*-*-*-*-*-fontset-standard")
 ;;      default-frame-alist)