[Bug: 21.5-b27] read-file-name in XEmacs/Win32

[Marcus Harnisch]

"Vin Shelton" <acs at alumni.princeton.edu> writes:

> FWIW, there is also a newer setup kit available here:
> http://ftp.xemacs.org/windows/testing/XEmacs_Setup_21.5-2008-01-24.exe

Tried that, no success :-(

Tracing the function calls it seems that `make-dialog-box' gets called
properly. The underlying function `make-dialog-box-internal' seems
to ignore the `:initial-directory' part.

,----
| 1 -> read-file-name: prompt="Save MIME part to: " dir="c:\\Documents and Settings\\mh\\Downloads\\" default=nil must-match=nil initial-contents="xxxxxxxxxxxxxxxxx.xxx" history=nil
| | 2 -> read-file-name-1: type=file history=file-name-history prompt="Save MIME part to: " dir="c:\\Documents and Settings\\mh\\Downloads\\" default="~\\Downloads\\xxxxxxxxxxxxxxxxx.xxx" must-match=nil initial-contents="xxxxxxxxxxxxxxxxx.xxx" completer=read-file-name-internal
| | | 3 -> make-dialog-box: type=file cl-keys=(:title "Save Mime Part to" :initial-directory "c:\\Documents and Settings\\mh\\Downloads\\" :file-must-exist nil :initial-filename "xxxxxxxxxxxxxxxxx.xxx")
`----

Try evaluating this and observe what happens:

(make-dialog-box-internal 'file '(:title "Save Mime Part to"
     :initial-directory "c:\\Foo"
     :file-must-exist nil :initial-filename "bar"))

Best regards
Marcus