Mercurial > hg > xemacs-beta

diff lisp/mule/mule-debug.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents e45d5e7c476e
children
line wrap: on
line diff
--- a/lisp/mule/mule-debug.el	Mon Aug 13 10:10:03 2007 +0200
+++ b/lisp/mule/mule-debug.el	Mon Aug 13 10:10:54 2007 +0200
@@ -43,11 +43,11 @@
     (princ
      "NAME                 REGISTRY        BYTES CHARS FINAL GRAPHIC DIR\n")
     (princ
-     "--------------------------------------------------------------------")
+     "--------------------------------------------------------------------\n")
     (dolist (charset (charset-list))
       (setq charset (get-charset charset))
       (princ (format
-	      "%20s %15s %5d %5d %5d %7d %s\n"
+	      "%-20.20s %-15.15s %5d %5d %5d %-7d %s\n"
 	      (charset-name charset)
 	      (charset-registry  charset)
 	      (charset-dimension charset)
@@ -56,7 +56,7 @@
 	      (charset-graphic   charset)
 	      (charset-direction charset)))
       (princ "        ")
-      (princ "%s\n" (charset-doc-string charset)))))
+      (princ (format "%s\n" (charset-doc-string charset))))))
 
 ;    (princ "## CCL PROGRAM TO CONVERT INTERNAL TO EXTERNAL CODE\n")
 ;    (princ "NAME                 CCL-PROGRAMS\n")