Mercurial > emacs
changeset 26884:8063bfbd8b08
(what-cursor-position): Show "(composed)" if the
character is composed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Dec 1999 00:39:33 +0000 |
| parents | c1e6932eea92 |
| children | c151d3ae1794 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 9 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Dec 15 00:38:58 1999 +0000 +++ b/lisp/simple.el Wed Dec 15 00:39:33 1999 +0000 @@ -513,33 +513,26 @@ "..." (concat (encoded-string-description encoded coding) - (if (cmpcharp char) "..." "")))) + (if (nth 2 (find-composition (point))) + " (composed)" "")))) (format "(0%o, %d, 0x%x)" char char char)))) (if detail ;; We show the detailed information of CHAR. - (let ((internal - (if (cmpcharp char) - ;; For a composite character, we show the - ;; components only. - (concat "(composed \"" - (decompose-composite-char char) - "\")") - (split-char char)))) - (message "Char: %s %s %s" - (if (< char 256) - (single-key-description char) - (buffer-substring (point) (1+ (point)))) - encoding-msg internal)) + (message "Char: %s %s %s" + (if (< char 256) + (single-key-description char) + (buffer-substring-no-properties (point) (1+ (point)))) + encoding-msg (split-char char)) (if (or (/= beg 1) (/= end (1+ total))) (message "Char: %s %s point=%d of %d(%d%%) <%d - %d> column %d %s" (if (< char 256) (single-key-description char) - (buffer-substring (point) (1+ (point)))) + (buffer-substring-no-properties (point) (1+ (point)))) encoding-msg pos total percent beg end col hscroll) (message "Char: %s %s point=%d of %d(%d%%) column %d %s" (if (< char 256) (single-key-description char) - (buffer-substring (point) (1+ (point)))) + (buffer-substring-no-properties (point) (1+ (point)))) encoding-msg pos total percent col hscroll))))))) (defvar read-expression-map (cons 'keymap minibuffer-local-map)