Mercurial > emacs

changeset 91335:07ce8496076f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char-display): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Fri, 11 Jan 2008 04:16:14 +0000
parents ee57eaa96e8c
children 04716f23ac87
files lisp/descr-text.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)))