popup-menu in windows needs time to accept new call

[Miguel Frasson]

Symptoms:

Hi.

I am dealing with popup-menus. Under windows, I realized that if I
call popup menus with a time interval roughly less than 1 second, the
function just returns nil and do nothing.

The following code reproduces the bug

;; defining foo variables for the menu
(setq foo 1)

;; defining a simple menu keymap
(setq my-menu-keymap
      '(keymap
      (a menu-item "a" (lambda nil (interactive) (setq foo 1))
         :button (:radio eq foo 1))
         (b menu-item "b" (lambda nil (interactive) (setq foo 2))
            :button (:radio eq foo 2))))

;; here, message just returns too fast and I see only one menu
(dotimes (i 3)
  (popup-menu my-menu-keymap)
  (message "a"))

;; here, it often shows 3 menus
(dotimes (i 3)
  (popup-menu my-menu-keymap)
  (read-from-minibuffer "say something and press RET: "))

;; more interesting examples come varying the time from 0.3 to 3 s.
;; here, 0.5 displays 1 menu and 1 displays sometimes 2 or 3, and 3
;; sec displays 3 menus.
(dotimes (i 3)
  (popup-menu my-menu-keymap)
  (sleep-for 0.5))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

In GNU Emacs 21.3.50.1 (i386-mingw-nt5.1.2600)
 of 2004-07-09 on FARIBA
configured using `configure --with-gcc (3.2) --cflags
 -I/home/fariba_soleymani/dev/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: 1033
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  file-name-shadow-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  tool-bar-mode: t
  encoded-kbd-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<home> <return> ; <up> <tab> ( ) <left> m e s s g a
e SPC " " <left> a <end> ) C-x C-e <down-mouse-1> <mouse-1>
a <right> <right> <right> <backspace> <backspace> e
<end> C-] C-] <up> C-x C-e <home> <delete> <tab> ;
<down> <up> <tab> <down> <up> C-_ <backspace> ; <down>
<end> <home> <delete> <end> C-x C-e g f d g <return>
h g j g j <return> j g h j <return> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
1
nil
Entering debugger...
Quit [2 times]
a [3 times]
nil
Loading newcomment...done
Undo!
nil
Loading emacsbug...done