# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1200024974 0
# Node ID 07ce8496076f74d0539c4f57c0fa492a62d2489e
# Parent  ee57eaa96e8cc98a12262126654d22b68ef77530
(describe-char-display): Fix previous change.

diff -r ee57eaa96e8c -r 07ce8496076f lisp/descr-text.el
--- a/lisp/descr-text.el	Thu Jan 10 12:31:13 2008 +0000
+++ b/lisp/descr-text.el	Fri Jan 11 04:16:14 2008 +0000
@@ -336,11 +336,12 @@
 (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)))