Mercurial > emacs

changeset 95174:0626142129fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-show-log): New function.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 May 2008 02:05:18 +0000
parents aa6446d89833
children 7880ee795931
files lisp/international/mule-diag.el
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Thu May 22 02:04:33 2008 +0000
+++ b/lisp/international/mule-diag.el	Thu May 22 02:05:18 2008 +0000
@@ -1293,6 +1293,21 @@
 				      (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