# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871673167 0
# Node ID e2131e9d3bf6f196a3f22aa5be919db172bc024a
# Parent  239b86c13fc3fabd0dd528a028dbf700177b6ccd
(widget-before-change): Obey `inhibit-read-only'.

diff -r 239b86c13fc3 -r e2131e9d3bf6 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Fri Aug 15 19:24:41 1997 +0000
+++ b/lisp/wid-edit.el	Fri Aug 15 19:26:07 1997 +0000
@@ -1276,18 +1276,19 @@
 (defun widget-before-change (from to)
   ;; This is how, for example, a variable changes its state to `modified'.
   ;; when it is being edited.
-  (let ((from-field (widget-field-find from))
-	(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"))
-	  ((null from-field)
-	   (add-hook 'post-command-hook 'widget-add-change nil t)
-	   (error "Attempt to change text outside editable field"))
-	  (widget-field-use-before-change
-	   (condition-case nil
-	       (widget-apply from-field :notify from-field)
-	     (error (debug "Before Change")))))))
+  (unless inhibit-read-only
+    (let ((from-field (widget-field-find from))
+	  (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"))
+	    ((null from-field)
+	     (add-hook 'post-command-hook 'widget-add-change nil t)
+	     (error "Attempt to change text outside editable field"))
+	    (widget-field-use-before-change
+	     (condition-case nil
+		 (widget-apply from-field :notify from-field)
+	       (error (debug "Before Change"))))))))
 
 (defun widget-add-change ()
   (make-local-hook 'post-command-hook)