Mercurial > emacs
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))