From: Gustav Hållberg <gustav@gmail.com>
Date: Sat, 19 Jun 2010 02:39:04 +0000 (-0700)
Subject: * lisp/descr-text.el (describe-char): Avoid trailing whitespace.  (Bug#6423)
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~51^2~141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d148e8f9bb50a8e8998e9abe05f9e847263e2dbe;p=emacs.git

* lisp/descr-text.el (describe-char): Avoid trailing whitespace.  (Bug#6423)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 730cf65c8d5..f0e152d3ffe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-19  Gustav HÃ¥llberg  <gustav@gmail.com>  (tiny change)
+
+	* descr-text.el (describe-char): Avoid trailing whitespace.  (Bug#6423)
+
 2010-06-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/edebug.el (edebug-read-list):
diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 218f2a51d7f..735023ceb02 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -618,7 +618,7 @@ as well as widgets, buttons, overlays, and text properties."
               ,@(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 @@ as well as widgets, buttons, overlays, and text properties."
                               (window-width))
                       (insert "\n")
                       (indent-to (1+ max-width)))
-                    (insert " " clm)))
+                    (unless (zerop (length clm))
+                      (insert " " clm))))
                 (insert "\n"))))
 
           (when overlays