Mercurial > emacs

diff lisp/descr-text.el @ 109412:9557b86a556a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 20 Jun 2010 22:46:22 +0000
parents 8d29522e59d4
children 60516122d066
line wrap: on
line diff
--- a/lisp/descr-text.el	Thu Jun 17 22:50:31 2010 +0000
+++ b/lisp/descr-text.el	Sun Jun 20 22:46:22 2010 +0000
@@ -618,7 +618,7 @@
               ,@(if (not eight-bit-p)
                     (let ((unicodedata (describe-char-unicode-data char)))
                       (if unicodedata
-                          (cons (list "Unicode data" " ") unicodedata))))))
+                          (cons (list "Unicode data" "") unicodedata))))))
       (setq max-width (apply 'max (mapcar (lambda (x)
                                             (if (cadr x) (length (car x)) 0))
                                           item-list)))
@@ -642,7 +642,8 @@
                               (window-width))
                       (insert "\n")
                       (indent-to (1+ max-width)))
-                    (insert " " clm)))
+                    (unless (zerop (length clm))
+                      (insert " " clm))))
                 (insert "\n"))))
 
           (when overlays