changeset 90284:f12f7e75abbe

(describe-char): Use insert-text-button instead of widget-create for "customize what to show" button.
author Kenichi Handa <handa@m17n.org>
date Tue, 24 Jan 2006 02:01:19 +0000
parents 9970a9645ad9
children 5251b70632c4
files lisp/descr-text.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))