Mercurial > hg > xemacs-beta
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