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 | a6bbf9f489e6704a9c082eaa702479e86c8827ef (patch) | |
| tree | f173f1e1a31242322f91a2a801d57e12b674fad8 /lisp/descr-text.el | |
| parent | cc07ec4a357ad1f234046c8bd5811e6ed4c88665 (diff) | |
| download | emacs-a6bbf9f489e6704a9c082eaa702479e86c8827ef.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))) |