Mercurial > emacs
comparison lisp/descr-text.el @ 90275:50eb9e2ff05f
(describe-char): Fix for sync with HEAD.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 20 Jan 2006 02:03:51 +0000 |
| parents | 7beb78bc1f8e |
| children | f12f7e75abbe |
comparison
equal
deleted
inserted
replaced
| 90274:b2784209ad3c | 90275:50eb9e2ff05f |
|---|---|
| 504 'escape-glyph))))) | 504 'escape-glyph))))) |
| 505 (if face (list (list "hardcoded face" | 505 (if face (list (list "hardcoded face" |
| 506 `(insert-text-button | 506 `(insert-text-button |
| 507 ,(symbol-name face) | 507 ,(symbol-name face) |
| 508 'type 'help-face 'help-args '(,face)))))) | 508 'type 'help-face 'help-args '(,face)))))) |
| 509 ,@(let ((unicodedata (and unicode | 509 ,@(let ((unicodedata (describe-char-unicode-data char))) |
| 510 (describe-char-unicode-data unicode)))) | |
| 511 (if unicodedata | 510 (if unicodedata |
| 512 (cons (list "Unicode data" " ") unicodedata))))) | 511 (cons (list "Unicode data" " ") unicodedata))))) |
| 513 (setq max-width (apply #'max (mapcar #'(lambda (x) | 512 (setq max-width (apply #'max (mapcar #'(lambda (x) |
| 514 (if (cadr x) (length (car x)) 0)) | 513 (if (cadr x) (length (car x)) 0)) |
| 515 item-list))) | 514 item-list))) |