# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1138068079 0
# Node ID f12f7e75abbee71d912bca9d82f0d27738ee1e8b
# Parent  9970a9645ad94caa07a652e7da3a62fc0d9b1956
(describe-char): Use insert-text-button instead of
widget-create for "customize what to show" button.

diff -r 9970a9645ad9 -r f12f7e75abbe lisp/descr-text.el
--- a/lisp/descr-text.el	Sat Jan 21 06:45:38 2006 +0000
+++ b/lisp/descr-text.el	Tue Jan 24 02:01:19 2006 +0000
@@ -617,11 +617,11 @@
 	(if (not describe-char-unidata-list)
 	    (insert "\nCharacter code properties are not shown: ")
 	  (insert "\nCharacter code properties: "))
-	(widget-create 'link
-		       :notify (lambda (&rest ignore)
-				 (customize-variable
-				  'describe-char-unidata-list))
-		       "customize what to show")
+	(insert-text-button
+	 "customize what to show"
+	 'action (lambda (&rest ignore)
+		   (customize-variable
+		    'describe-char-unidata-list)))
 	(insert "\n")
 	(dolist (elt describe-char-unidata-list)
 	  (let ((val (get-char-code-property char elt))