diff options
| -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'." | |||
| 336 | (defun describe-char-display (pos char) | 336 | (defun describe-char-display (pos char) |
| 337 | (if (display-graphic-p (selected-frame)) | 337 | (if (display-graphic-p (selected-frame)) |
| 338 | (let ((char-font-info (internal-char-font pos char))) | 338 | (let ((char-font-info (internal-char-font pos char))) |
| 339 | (if (integerp (cdr char-font-info)) | 339 | (if char-font-info |
| 340 | (setcdr char-font-info (format "%02X" (cdr char-font-info))) | 340 | (if (integerp (cdr char-font-info)) |
| 341 | (setcdr char-font-info | 341 | (setcdr char-font-info (format "%02X" (cdr char-font-info))) |
| 342 | (format "%04X%04X" | 342 | (setcdr char-font-info |
| 343 | (cadr char-font-info) (cddr char-font-info)))) | 343 | (format "%04X%04X" |
| 344 | (cadr char-font-info) (cddr char-font-info))))) | ||
| 344 | char-font-info) | 345 | char-font-info) |
| 345 | (let* ((coding (terminal-coding-system)) | 346 | (let* ((coding (terminal-coding-system)) |
| 346 | (encoded (encode-coding-char char coding))) | 347 | (encoded (encode-coding-char char coding))) |