Description of problem:

If you use the window close button on a requester then XEmacs crashes


Version-Release number of selected component (if applicable):

xemacs-common-21.5.27-8.fc6
xemacs-packages-base-20060510-3.fc6
xemacs-packages-extra-20060510-4.fc6
xemacs-21.5.27-8.fc6


How reproducible: Always


Steps to Reproduce:

1. (shell)  ls >test.txt
2. (xemacs) CTRL-X + F + ~/test.txt
3. (shell)  ls >test.txt
4. (xemacs) menu File -> Open..., select ~/test.txt
5. (xemacs) Requestor opens:

          Question
          File test.txt changed on disk. Reread from disk?
          Yes    No   (empty???)  Cancel

6. (xemacs) press window close button

 
Actual results: xemacs crashes with backtrace (see below)


Expected results: window should close


Additional info: xemacs output

Fatal error: assertion failed, file lwlib-Xaw.c, line 606, abort()

Fatal error (6).

...

Lisp backtrace follows:

  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (inhibit-quit)
  next-event()
  byte-code("..." [id event next-event eval-event-p event-function
internal-make-dialog-box-exit event-object throw --cl-block-nil-- (nil)
dispatch-event] 3)
  # (catch --cl-block-nil-- ...)
  # bind (id sym)
  byte-code("..." [thunk frames id sym eval gensym lambda (did) when eq quote
(did) mapc (quote enable-frame) (enqueue-eval-event (quote
internal-make-dialog-box-exit) did) remove-hook (quote delete-dialog-box-hook)
framep add-hook delete-frame-hook delete-dialog-box-hook disable-frame
--cl-block-nil-- (byte-code "��!�!��aǀȀ�"�!)\\" [id event next-event
eval-event-p event-function internal-make-dialog-box-exit event-object throw
--cl-block-nil-- (nil) dispatch-event] 3)] 11)
  # (catch internal-dialog-box-finish ...)
  # bind (frames thunk)
  dialog-box-modal-loop((make-dialog-box-internal (quote question) (quote
(:question "File test.txt changed on disk.  Reread from disk? " :buttons (["Yes"
(dialog-box-finish t)] ["No" (dialog-box-finish nil)] nil ["Cancel"
(dialog-box-cancel)])))))
  # bind (cl-modal)
  # (unwind-protect ...)
  # bind (--letf-save--101735 --letf-bound--101736 cl-keys type)
  make-dialog-box(question :question "File test.txt changed on disk.  Reread
from disk? " :modal t :buttons (["Yes" (dialog-box-finish t)] ["No"
(dialog-box-finish nil)] nil ["Cancel" (dialog-box-cancel)]))
  # (unwind-protect ...)
  # bind (ssf101732 prompt)
  yes-or-no-p-dialog-box("File test.txt changed on disk.  Reread from disk? ")
  # bind (prompt)
  yes-or-no-p("File test.txt changed on disk.  Reread from disk? ")
  # bind (number truename buf wildcards rawfile nowarn filename)
  find-file-noselect("~/test.txt" nil nil t)
  # bind (wildcards codesys filename)
  #<compiled-function (filename &optional codesys wildcards) "...(77)"
[wildcards filename coding-system-for-read codesys bufname value
get-coding-system find-file-noselect nil file-exists-p buffer-file-name
local-variable-p buffer-file-coding-system switch-to-buffer mapcar] 6 1143343
(list (read-file-name "Find file: ") (and current-prefix-arg (read-coding-system
"Coding system: ")) t)>("~/test.txt" nil t)
  call-interactively(find-file)
  # (condition-case ... . error)
  # (catch top-level ...)