comparison lisp/international/mule-diag.el @ 95200:fd38f2fd3d08

(font-show-log): Limit each listing to 20 items.

95199:aa04b6d24b33

      (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)

95200:fd38f2fd3d08

      (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))
	    (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)))))))


(provide 'mule-diag)