[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/02/04 12:17:02

Index: mule-diag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -b -r1.106 -r1.107
--- mule-diag.el        1 Feb 2008 16:01:18 -0000       1.106
+++ mule-diag.el        4 Feb 2008 12:17:00 -0000       1.107
@@ -876,6 +876,8 @@
 
     ;; Insert a requested font name.
     (dolist (elt val)
+      (if (not elt)
+         (insert "\n    -- inhibit fallback fonts --")
       (let ((requested (car elt)))
        (if (stringp requested)
            (insert "\n    " requested)
@@ -913,7 +915,7 @@
       ;; Insert opened font names (if any).
       (if (and (boundp 'print-opened) (symbol-value 'print-opened))
          (dolist (opened (cdr elt))
-           (insert "\n\t[" opened "]"))))))
+             (insert "\n\t[" opened "]")))))))
 
 (defun print-fontset (fontset &optional print-opened)
   "Print information about FONTSET.