Mercurial > emacs
comparison lisp/descr-text.el @ 109023:8d29522e59d4
* lisp/descr-text.el (describe-char): Avoid trailing whitespace. (Bug#6423)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 18 Jun 2010 19:39:04 -0700 |
| parents | b465aa3255ed |
| children | 60516122d066 |
comparison
equal
deleted
inserted
replaced
| 109022:bd9d982851e0 | 109023:8d29522e59d4 |
|---|---|
| 616 'type 'help-face | 616 'type 'help-face |
| 617 'help-args '(,face)))))) | 617 'help-args '(,face)))))) |
| 618 ,@(if (not eight-bit-p) | 618 ,@(if (not eight-bit-p) |
| 619 (let ((unicodedata (describe-char-unicode-data char))) | 619 (let ((unicodedata (describe-char-unicode-data char))) |
| 620 (if unicodedata | 620 (if unicodedata |
| 621 (cons (list "Unicode data" " ") unicodedata)))))) | 621 (cons (list "Unicode data" "") unicodedata)))))) |
| 622 (setq max-width (apply 'max (mapcar (lambda (x) | 622 (setq max-width (apply 'max (mapcar (lambda (x) |
| 623 (if (cadr x) (length (car x)) 0)) | 623 (if (cadr x) (length (car x)) 0)) |
| 624 item-list))) | 624 item-list))) |
| 625 (set-buffer src-buf) | 625 (set-buffer src-buf) |
| 626 (help-setup-xref (list 'describe-char pos buffer) | 626 (help-setup-xref (list 'describe-char pos buffer) |
| 640 (string-width clm)) | 640 (string-width clm)) |
| 641 1) | 641 1) |
| 642 (window-width)) | 642 (window-width)) |
| 643 (insert "\n") | 643 (insert "\n") |
| 644 (indent-to (1+ max-width))) | 644 (indent-to (1+ max-width))) |
| 645 (insert " " clm))) | 645 (unless (zerop (length clm)) |
| 646 (insert " " clm)))) | |
| 646 (insert "\n")))) | 647 (insert "\n")))) |
| 647 | 648 |
| 648 (when overlays | 649 (when overlays |
| 649 (save-excursion | 650 (save-excursion |
| 650 (goto-char (point-min)) | 651 (goto-char (point-min)) |