[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100618: * lisp/descr-text.el (describe-char): Avoid trailing whitespace. (Bug#6423),
Glenn Morris <=