Mercurial > emacs
comparison lisp/descr-text.el @ 89963:c355a39d02c5
(describe-char): Fix for the case CODE is a cons of integers.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 17 Aug 2004 12:12:57 +0000 |
| parents | 4c90ffeb71c5 |
| children | 0796fc36c2bd |
comparison
equal
deleted
inserted
replaced
| 89962:77df4a7f419a | 89963:c355a39d02c5 |
|---|---|
| 492 char char char)) | 492 char char char)) |
| 493 ("preferred charset" | 493 ("preferred charset" |
| 494 ,(symbol-name charset) | 494 ,(symbol-name charset) |
| 495 ,(format "(%s)" (charset-description charset))) | 495 ,(format "(%s)" (charset-description charset))) |
| 496 ("code point" | 496 ("code point" |
| 497 ,(format (if (< code 256) "0x%02X" "0x%04X") code)) | 497 ,(if (integerp code) |
| 498 (format (if (< code 256) "0x%02X" "0x%04X") code) | |
| 499 (format "0x%04X%04X" (car code) (cdr code)))) | |
| 498 ("syntax" | 500 ("syntax" |
| 499 ,(let ((syntax (syntax-after pos))) | 501 ,(let ((syntax (syntax-after pos))) |
| 500 (with-temp-buffer | 502 (with-temp-buffer |
| 501 (internal-describe-syntax-value syntax) | 503 (internal-describe-syntax-value syntax) |
| 502 (buffer-string)))) | 504 (buffer-string)))) |