bug#6256: 24.0.50; read-event in `repeat' command

["Drew Adams" <drew.adams@oracle.com>]

> If you want to test for yourself, then:
> 
> 1. Load the Bookmark+ files (see below).

Forgot to mention that you will need to uncomment this code in bookmark+-1.el:

;;   (define-key bookmark-map (vector (list mouse-wheel-up-event))
;;     'bmkp-next-bookmark-this-buffer-repeat)
;;   (define-key bookmark-map (vector (list mouse-wheel-down-event))
;;     'bmkp-previous-bookmark-this-buffer-repeat)

> 2. Use C-x p RET at several places in a file to create some bookmarks.
> 3. Use C-x p <up> <up> <up>... (or <down> <down>...) to cycle 
> among the bookmarks.  You will see a message showing the position at 
> each bookmark visited.
> 
> 4. Now try C-x p followed by repeated mouse-wheel down or up 
> movements.  You should see the same movement to each bookmark
> in turn, and the same position messages.  With your code the wheel
> repetition does not work.  With the code I sent it does work.
> This is the `while' condition I sent (again):
> 
> (while (let ((evt  (read-event)))
>          (and (equal (event-basic-type evt)
>                      (event-basic-type repeat-repeat-char))
>               (equal (event-modifiers evt)
>                      (event-modifiers repeat-repeat-char))))
> 
> The Bookmark+ files are these (load in this order, after 
> loading std library bookmark.el):
> 
> bookmark+-mac.el
> bookmark+-bmu.el
> bookmark+-1.el
> bookmark+-lit.el
> bookmark+.el
> 
> You can find the Bookmark+ files here (Emacs Wiki Elisp area):
>
http://www.emacswiki.org/cgi-bin/wiki?action=index;match=%5C.(el%7Ctar)(%5C.gz)%
3F%24