Mercurial > emacs
changeset 24532:731dcf8c11dc
(widget-before-change): Signal text-read-only rather
than an ordinary error.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 30 Mar 1999 18:09:57 +0000 |
| parents | 6f36bb11c7a5 |
| children | 32a7344ac2e7 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Tue Mar 30 18:07:16 1999 +0000 +++ b/lisp/wid-edit.el Tue Mar 30 18:09:57 1999 +0000 @@ -1243,10 +1243,12 @@ (to-field (widget-field-find to))) (cond ((not (eq from-field to-field)) (add-hook 'post-command-hook 'widget-add-change nil t) - (error "Change should be restricted to a single field")) + (signal 'text-read-only + '("Change should be restricted to a single field"))) ((null from-field) (add-hook 'post-command-hook 'widget-add-change nil t) - (error "Attempt to change text outside editable field")) + (signal 'text-read-only + '("Attempt to change text outside editable field"))) (widget-field-use-before-change (condition-case nil (widget-apply from-field :notify from-field)