# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 922817397 0
# Node ID 731dcf8c11dc1861426b1747d5453cb3ae5c1d28
# Parent  6f36bb11c7a54b3912915f112681c366579a4019
(widget-before-change): Signal text-read-only rather
than an ordinary error.

diff -r 6f36bb11c7a5 -r 731dcf8c11dc lisp/wid-edit.el
--- 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)