emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r100618: * lisp/descr-text.el (descri


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r100618: * lisp/descr-text.el (describe-char): Avoid trailing whitespace. (Bug#6423)
Date: Fri, 18 Jun 2010 19:39:04 -0700
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 100618
author: Gustav HÃ¥llberg <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2010-06-18 19:39:04 -0700
message:
  * lisp/descr-text.el (describe-char): Avoid trailing whitespace.  (Bug#6423)
modified:
  lisp/ChangeLog
  lisp/descr-text.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-18 14:05:43 +0000
+++ b/lisp/ChangeLog    2010-06-19 02:39:04 +0000
@@ -1,3 +1,7 @@
+2010-06-19  Gustav HÃ¥llberg  <address@hidden>  (tiny change)
+
+       * descr-text.el (describe-char): Avoid trailing whitespace.  (Bug#6423)
+
 2010-06-18  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/edebug.el (edebug-read-list):

=== modified file 'lisp/descr-text.el'
--- a/lisp/descr-text.el        2010-06-03 15:34:35 +0000
+++ b/lisp/descr-text.el        2010-06-19 02:39:04 +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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]