andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Gustav Hållberg 2010-06-18 19:39:04 -07:00 • committed by Glenn Morris
parent b1a03ef6bf
commit d148e8f9bb
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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):

5
lisp/descr-text.el
View file

@ -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