--- a/lisp/wid-edit.el	Mon Aug 13 11:00:13 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 11:01:07 2007 +0200
@@ -439,7 +439,7 @@
 
 ;; For inactiveness to work on complex structures, it is not
 ;; sufficient to keep track of whether a button/field/glyph is
-;; inactive or not -- we must know how many time it was deactivated
+;; inactive or not -- we must know how many times it was deactivated
 ;; (inactiveness level).  Successive deactivations of the same button
 ;; increment its inactive-count, and activations decrement it.  When
 ;; inactive-count reaches 0, the button/field/glyph is reactivated.
@@ -512,14 +512,16 @@
 
 (defun widget-specify-active (widget)
   "Make WIDGET active for user modifications."
-  (let ((inactive (widget-get widget :inactive)))
+  (let ((inactive (widget-get widget :inactive))
+        (from (widget-get widget :from))
+        (to (widget-get widget :to)))
     (when (and inactive (not (extent-detached-p inactive)))
       ;; Reactivate the buttons and fields covered by the extent.
       (map-extents 'widget-activation-widget-mapper
-		   inactive nil nil :activate nil 'button-or-field)
+                   nil from to :activate nil 'button-or-field)
       ;; Reactivate the glyphs.
       (map-extents 'widget-activation-glyph-mapper
-		   inactive nil nil :activate nil 'end-glyph)
+                   nil from to :activate nil 'end-glyph)
       (delete-extent inactive)
       (widget-put widget :inactive nil))))