incorrect button highlighting

[Dan Nicolaescu <dann@ics.uci.edu>]

Evaluate this code:

(require 'cus-edit)

(defvar my-button-list 
  '((push-button
     :tag "prev"
     :help-echo "prev"
     :tag-glyph "prev-node"
     :action (lambda (widget &optional e) (ding)))
    (push-button
     :tag "next"
     :help-echo "next"
     :tag-glyph "next-node"
     :action (lambda (widget &optional e) (ding)))))

(defun test-buttons ()
  (interactive)
  (set (make-local-variable 'widget-button-pressed-face)
  custom-button-pressed)
  (mapc (lambda (arg) (widget-create arg)) my-button-list)
  (widget-setup))


And then do M-x test-buttons RET

No put the mouse over one of the 2 buttons that appear, and both will
be shown using the custom-button-pressed face instead of just the one
that is under the mouse cursor. 

Can someone please take a look at this? 

Thanks

        --dan