# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1137722631 0
# Node ID 50eb9e2ff05f54da891c6b385855dd0788c55b13
# Parent  b2784209ad3c4c257d58a3875b2b57514912fb25
(describe-char): Fix for sync with HEAD.

diff -r b2784209ad3c -r 50eb9e2ff05f lisp/descr-text.el
--- a/lisp/descr-text.el	Thu Jan 19 07:42:21 2006 +0000
+++ b/lisp/descr-text.el	Fri Jan 20 02:03:51 2006 +0000
@@ -506,8 +506,7 @@
 				     `(insert-text-button
 				       ,(symbol-name face)
 				       'type 'help-face 'help-args '(,face))))))
-	    ,@(let ((unicodedata (and unicode
-				      (describe-char-unicode-data unicode))))
+	    ,@(let ((unicodedata (describe-char-unicode-data char)))
 		(if unicodedata
 		    (cons (list "Unicode data" " ") unicodedata)))))
     (setq max-width (apply #'max (mapcar #'(lambda (x)