GNU bug report logs - #6423
[describe-char PATCH 2/2] describe-char: remove superfluous space at end of "Unicode data" line

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Gustav Hållberg <gustav <at> gmail.com>
Subject: bug#6423: closed (Re: bug#6423: [describe-char PATCH 2/2]
 describe-char: remove superfluous space at end of "Unicode data" line)
Date: Sat, 19 Jun 2010 02:41:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#6423: [describe-char PATCH 2/2] describe-char: remove superfluous space at end of "Unicode data" line

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 6423 <at> debbugs.gnu.org.

-- 
6423: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6423
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Glenn Morris <rgm <at> gnu.org>
To: 6423-done <at> debbugs.gnu.org
Subject: Re: bug#6423: [describe-char PATCH 2/2] describe-char: remove
	superfluous space at end of "Unicode data" line
Date: Fri, 18 Jun 2010 22:40:28 -0400

OK; applied.

[Message part 3 (message/rfc822, inline)]

From: Gustav Hållberg <gustav <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: [describe-char PATCH 2/2] describe-char: remove superfluous space
	at end of "Unicode data" line
Date: Mon, 14 Jun 2010 14:23:50 +0200

This prevents annoying markup if the trailing-whitespace face is used.
---
 lisp/descr-text.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 51f7a77..d66aa88 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.