diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-01-24 02:01:19 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-01-24 02:01:19 +0000 |
| commit | 3424774b11f2e258d6173fa8c6c4c2ef32f770e1 (patch) | |
| tree | 8fb52a6f45908203f69605a49f0a495ff0e05e28 /lisp/descr-text.el | |
| parent | c40d33655c3e1d202400ac27144178cc6c2ba5e9 (diff) | |
| download | emacs-3424774b11f2e258d6173fa8c6c4c2ef32f770e1.tar.gz | |
(describe-char): Use insert-text-button instead of
widget-create for "customize what to show" button.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 599ee7ffeb3..ba1365cfc43 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -617,11 +617,11 @@ as well as widgets, buttons, overlays, and text properties." (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)) |