diff options
author | Kenichi Handa <handa@m17n.org> | 2008-01-11 04:16:14 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2008-01-11 04:16:14 +0000 |
commit | 4761462ebb7a183711c41f5dadec58942215b763 (patch) | |
tree | ec53c4ead6553b8f9e55b40d9d561a5dccd7fde6 /lisp/descr-text.el | |
parent | e32218acdecbb11dbb6478abe18d516f85b6f021 (diff) | |
download | emacs-4761462ebb7a183711c41f5dadec58942215b763.tar.gz |
(describe-char-display): Fix previous change.
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r-- | lisp/descr-text.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 47d17664e67..dfa87308fbe 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -336,11 +336,12 @@ This function is semi-obsolete. Use `get-char-code-property'." (defun describe-char-display (pos char) (if (display-graphic-p (selected-frame)) (let ((char-font-info (internal-char-font pos char))) - (if (integerp (cdr char-font-info)) - (setcdr char-font-info (format "%02X" (cdr char-font-info))) - (setcdr char-font-info - (format "%04X%04X" - (cadr char-font-info) (cddr char-font-info)))) + (if char-font-info + (if (integerp (cdr char-font-info)) + (setcdr char-font-info (format "%02X" (cdr char-font-info))) + (setcdr char-font-info + (format "%04X%04X" + (cadr char-font-info) (cddr char-font-info))))) char-font-info) (let* ((coding (terminal-coding-system)) (encoded (encode-coding-char char coding))) |