diff lisp/wid-edit.el @ 213:78f53ef88e17 r20-4b5

Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 78478c60bfcd
children 262b8bb4a523
line wrap: on
line diff
--- a/lisp/wid-edit.el	Mon Aug 13 10:05:53 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 10:06:47 2007 +0200
@@ -1414,6 +1414,13 @@
 	     ;; The change begins in one fields, and ends in another one.
 	     (add-hook 'post-command-hook 'widget-add-change nil t)
 	     (error "Change should be restricted to a single field"))
+	    ((or (and from-field
+		      (get-char-property from 'widget-inactive))
+		 (and to-field
+		      (get-char-property to 'widget-inactive)))
+	     ;; Trying to change an inactive editable field.
+	     (add-hook 'post-command-hook 'widget-add-change nil t)
+	     (error "Attempt to change an inactive field"))
 	    (widget-field-use-before-change
 	     ;; #### Bletch!  This loses because XEmacs get confused
 	     ;; if before-change-functions change the contents of