[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 12:49:37

Index: mule-diag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -b -r1.111 -r1.112
--- mule-diag.el        22 May 2008 02:05:18 -0000      1.111
+++ mule-diag.el        22 May 2008 12:49:36 -0000      1.112
@@ -1304,7 +1304,16 @@
        (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)
+           (let ((limit 20)
+                 (i 0))
+             (catch 'tag
+               (mapc #'(lambda (x)
+                         (setq i (1+ i))
+                         (when (= i 20)
+                           (insert "  ...\n")
+                           (throw 'tag nil))
+                         (insert (format "  %s\n" x)))
+                     elt)))
          (insert (format "  %s\n" elt)))))))