From: Karl Heuer Date: Tue, 30 Mar 1999 18:09:57 +0000 (+0000) Subject: (widget-before-change): Signal text-read-only rather X-Git-Tag: emacs-20.4~417 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=808bcfd2c7c582208f2d73f639ae4c927d71af13;p=emacs.git (widget-before-change): Signal text-read-only rather than an ordinary error. --- diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 43e756b977e..4dbd7e6b089 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1243,10 +1243,12 @@ Unlike (get-char-property POS 'field) this, works with empty fields too." (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)