(describe-char-display): Fix previous change.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 47d17664e672d022ed2531d9cc3dde74b61d1a4a..dfa87308fbe06dcb8415a8072c83a6a1242be7d7 100644 (file)
--- 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)))