[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/05/22 02:05:18

Index: mule-diag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -b -r1.110 -r1.111
--- mule-diag.el        6 May 2008 04:18:14 -0000       1.110
+++ mule-diag.el        22 May 2008 02:05:18 -0000      1.111
@@ -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