diff options
| author | Gustav Hållberg <gustav@gmail.com> | 2010-06-18 19:39:04 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-06-18 19:39:04 -0700 |
| commit | d148e8f9bb50a8e8998e9abe05f9e847263e2dbe (patch) | |
| tree | bb7c832bbd37ddebfe91622135cd41e404ed4303 /lisp/descr-text.el | |
| parent | b1a03ef6bfba4296dddc3df1e8f9d54aba3e45e3 (diff) | |
| download | emacs-d148e8f9bb50a8e8998e9abe05f9e847263e2dbe.tar.gz | |
* lisp/descr-text.el (describe-char): Avoid trailing whitespace. (Bug#6423)
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | 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 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 |