Mercurial > emacs
comparison lisp/descr-text.el @ 90958:119629f41ebb
(describe-char): Fix for the case that a component character is TAB.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 20 Jun 2007 12:07:32 +0000 |
| parents | dd7c098af727 |
| children | f55f9811f5d7 |
comparison
equal
deleted
inserted
replaced
| 90957:bf2e84efba99 | 90958:119629f41ebb |
|---|---|
| 583 (if (cadr composition) | 583 (if (cadr composition) |
| 584 (insert " with the following character(s) \"" | 584 (insert " with the following character(s) \"" |
| 585 (cadr composition) "\""))) | 585 (cadr composition) "\""))) |
| 586 (insert " by the rule:\n\t(" | 586 (insert " by the rule:\n\t(" |
| 587 (mapconcat (lambda (x) | 587 (mapconcat (lambda (x) |
| 588 (format (if (consp x) "%S" "?%c") x)) | 588 (if (consp x) (format "%S" x) |
| 589 (if (= x ?\t) | |
| 590 (single-key-description x) | |
| 591 (string ?? x)))) | |
| 589 (nth 2 composition) | 592 (nth 2 composition) |
| 590 " ") | 593 " ") |
| 591 ")") | 594 ")") |
| 592 (insert "\nThe component character(s) are displayed by ") | 595 (insert "\nThe component character(s) are displayed by ") |
| 593 (if (display-graphic-p (selected-frame)) | 596 (if (display-graphic-p (selected-frame)) |
| 594 (progn | 597 (progn |
| 595 (insert "these fonts (glyph codes):") | 598 (insert "these fonts (glyph codes):") |
| 596 (dolist (elt component-chars) | 599 (dolist (elt component-chars) |
| 597 (insert "\n " (car elt) ?: | 600 (if (/= (car elt) ?\t) |
| 598 (propertize " " 'display '(space :align-to 5)) | 601 (insert "\n " (car elt) ?: |
| 599 (if (cdr elt) | 602 (propertize " " 'display '(space :align-to 5)) |
| 600 (format "%s (#x%02X)" (cadr elt) (cddr elt)) | 603 (if (cdr elt) |
| 601 "-- no font --")))) | 604 (format "%s (#x%02X)" (cadr elt) (cddr elt)) |
| 605 "-- no font --"))))) | |
| 602 (insert "these terminal codes:") | 606 (insert "these terminal codes:") |
| 603 (dolist (elt component-chars) | 607 (dolist (elt component-chars) |
| 604 (insert "\n " (car elt) ":" | 608 (insert "\n " (car elt) ":" |
| 605 (propertize " " 'display '(space :align-to 5)) | 609 (propertize " " 'display '(space :align-to 4)) |
| 606 (or (cdr elt) "-- not encodable --")))) | 610 (or (cdr elt) "-- not encodable --")))) |
| 607 (insert "\nSee the variable `reference-point-alist' for " | 611 (insert "\nSee the variable `reference-point-alist' for " |
| 608 "the meaning of the rule.\n")) | 612 "the meaning of the rule.\n")) |
| 609 | 613 |
| 610 (if (not describe-char-unidata-list) | 614 (if (not describe-char-unidata-list) |