diff options
| author | Kenichi Handa | 2006-01-24 02:01:19 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2006-01-24 02:01:19 +0000 |
| commit | 3424774b11f2e258d6173fa8c6c4c2ef32f770e1 (patch) | |
| tree | 8fb52a6f45908203f69605a49f0a495ff0e05e28 | |
| parent | c40d33655c3e1d202400ac27144178cc6c2ba5e9 (diff) | |
| download | emacs-3424774b11f2e258d6173fa8c6c4c2ef32f770e1.tar.gz emacs-3424774b11f2e258d6173fa8c6c4c2ef32f770e1.zip | |
(describe-char): Use insert-text-button instead of
widget-create for "customize what to show" button.
| -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." | |||
| 617 | (if (not describe-char-unidata-list) | 617 | (if (not describe-char-unidata-list) |
| 618 | (insert "\nCharacter code properties are not shown: ") | 618 | (insert "\nCharacter code properties are not shown: ") |
| 619 | (insert "\nCharacter code properties: ")) | 619 | (insert "\nCharacter code properties: ")) |
| 620 | (widget-create 'link | 620 | (insert-text-button |
| 621 | :notify (lambda (&rest ignore) | 621 | "customize what to show" |
| 622 | (customize-variable | 622 | 'action (lambda (&rest ignore) |
| 623 | 'describe-char-unidata-list)) | 623 | (customize-variable |
| 624 | "customize what to show") | 624 | 'describe-char-unidata-list))) |
| 625 | (insert "\n") | 625 | (insert "\n") |
| 626 | (dolist (elt describe-char-unidata-list) | 626 | (dolist (elt describe-char-unidata-list) |
| 627 | (let ((val (get-char-code-property char elt)) | 627 | (let ((val (get-char-code-property char elt)) |