Mercurial > emacs
comparison lisp/descr-text.el @ 55543:7b6cb8aae6f3
Require quail at comile time.
(describe-char): If an input method is on and it supports the
character, show how to input it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 12 May 2004 02:36:01 +0000 |
| parents | 79abf8a72f5a |
| children | bdbbd721cc67 |
comparison
equal
deleted
inserted
replaced
| 55542:09bfbc6e6c82 | 55543:7b6cb8aae6f3 |
|---|---|
| 26 | 26 |
| 27 ;;; Describe-Text Mode. | 27 ;;; Describe-Text Mode. |
| 28 | 28 |
| 29 ;;; Code: | 29 ;;; Code: |
| 30 | 30 |
| 31 (eval-when-compile (require 'button)) | 31 (eval-when-compile (require 'button) (require 'quail)) |
| 32 | 32 |
| 33 (defun describe-text-done () | 33 (defun describe-text-done () |
| 34 "Delete the current window or bury the current buffer." | 34 "Delete the current window or bury the current buffer." |
| 35 (interactive) | 35 (interactive) |
| 36 (if (> (count-windows) 1) | 36 (if (> (count-windows) 1) |
| 522 (when props | 522 (when props |
| 523 (while props | 523 (while props |
| 524 (push (format "%s:" (pop props)) ps) | 524 (push (format "%s:" (pop props)) ps) |
| 525 (push (format "%s;" (pop props)) ps)) | 525 (push (format "%s;" (pop props)) ps)) |
| 526 (list (cons "Properties" (nreverse ps))))) | 526 (list (cons "Properties" (nreverse ps))))) |
| 527 ("to input" | |
| 528 ,@(let ((key-list (and current-input-method | |
| 529 (quail-find-key char)))) | |
| 530 (if (consp key-list) | |
| 531 (list "type" | |
| 532 (mapconcat #'(lambda (x) (concat "\"" x "\"")) | |
| 533 key-list " or "))))) | |
| 527 ("buffer code" | 534 ("buffer code" |
| 528 ,(encoded-string-description | 535 ,(encoded-string-description |
| 529 (string-as-unibyte (char-to-string char)) nil)) | 536 (string-as-unibyte (char-to-string char)) nil)) |
| 530 ("file code" | 537 ("file code" |
| 531 ,@(let* ((coding buffer-file-coding-system) | 538 ,@(let* ((coding buffer-file-coding-system) |