bug#11141: 24.0.94; crash with `x-popup-dialog'

[Drew Adams]

100% reproducible, from emacs -Q.
 
(defun titi (event)
  (interactive "e")
  (let ((choice (x-popup-dialog
                 event
                 '("ABC"
                   "DEF"
                   ("OK" . bar)))))
    (and choice (call-interactively choice))))
 
(defun bar () (interactive) t)
 
(global-set-key [double-mouse-2] 'titi)
(global-set-key [mouse-2] nil)
 
Then double-click mouse-2.  Note that if you remove the string "DEF"
there is no crash.
 
In GNU Emacs 24.0.94.1 (i386-mingw-nt5.1.2600)
 of 2012-03-19 on MARVIN
Windowing system distributor `Microsoft Corp.', version 5.1.2600
Configured using:
 `configure --with-gcc (4.6) --no-opt --enable-checking --cflags
 -ID:/devel/emacs/libs/libXpm-3.5.8/include
 -ID:/devel/emacs/libs/libXpm-3.5.8/src
 -ID:/devel/emacs/libs/libpng-dev_1.4.3-1/include
 -ID:/devel/emacs/libs/zlib-dev_1.2.5-2/include
 -ID:/devel/emacs/libs/giflib-4.1.4-1/include
 -ID:/devel/emacs/libs/jpeg-6b-4/include
 -ID:/devel/emacs/libs/tiff-3.8.2-1/include
 -ID:/devel/emacs/libs/gnutls-3.0.9/include'