No refresh of buffer before popup-menu

[Lennart Borgman (gmail)]

There still seems to be some problems with refreshing buffer contents. 
In the example below the buffer gets refreshed before the first popup 
menu, but not before the second popup menu.

Do

  emacs -Q

Paste the code into *scratch* and eval it:

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
(defun temp-test1()
  (interactive)
  (goto-char (point-max))
  (insert ";; SOME STRING 1\n")
  (sit-for 0)
  (let ((pop-map (make-sparse-keymap "Temp map 1")))
    (define-key pop-map [pop-map-test]
      (list 'menu-item
            "This 1"
            'temp-test2
            ))
    (popup-menu pop-map)))

(defun temp-test2()
  (interactive)
  (goto-char (point-max))
  (insert ";; SOME STRING 2\n")
  (sit-for 0)
  (let ((pop-map (make-sparse-keymap "Temp map 2")))
    (define-key pop-map [pop-map-test]
      (list 'menu-item
            "This 2"
            (lambda()
              (interactive)
              (message "This is 2!"))))
    (popup-menu pop-map)))
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Then first do

   M-x temp-test1

Note that the text SOME STRING 1 gets insert into the buffer before the 
first popup menu is shown. However the second string SOME STRING 2 does 
not get inserted before the second popup menu.

Then do

  M-x temp-test2

Now SOME STRING 2 gets insert inserted in the buffer before the popup menu.

So there seem to be a problem with refresh and 2 popup menus in a row.


In GNU Emacs 22.0.93.1 (i386-mingw-nt5.1.2600)
 of 2007-02-19 on LENNART-69DE564