From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 May 2008 02:05:44 +0000 (+0000)
Subject: (font-show-log): New function.
X-Git-Tag: emacs-pretest-23.0.90~5378
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/fa5ee88925d75d2128c67ce500513e34d5cfab8d?ds=sidebyside

(font-show-log): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2fc1351434..40fd69bd08 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-05-22  Kenichi Handa  <handa@m17n.org>
+
+	* international/mule-diag.el (font-show-log): New function.
+
+	* international/fontset.el (script-representative-chars): Add more
+	chars for latin.  Add data for symbol.
+	(setup-default-fontset): Add entries for phonetic, armenian, and
+	symbol.
+
 2008-05-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* minibuffer.el (completion-all-sorted-completions): New var.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8aa038a7ad..4f83774308 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1293,6 +1293,21 @@ character)")
 				      (string (string-to-number
 					       (nth 13 fields) 16)))))))))))
 
+;;;###autoload
+(defun font-show-log ()
+  (interactive)
+  (if (eq font-log t)
+      (message "Font logging is currently suppressed")
+    (with-output-to-temp-buffer "*Help*"
+      (set-buffer standard-output)
+      (dolist (elt (reverse font-log))
+	(insert (format "%s: %s\n" (car elt) (cadr elt)))
+	(setq elt (nth 2 elt))
+	(if (or (vectorp elt) (listp elt))
+	    (mapc #'(lambda (x) (insert (format "  %s\n" x))) elt)
+	  (insert (format "  %s\n" elt)))))))
+
+
 (provide 'mule-diag)
 
 ;; arch-tag: cd3b607c-2893-45a0-a4fa-a6535754dbee