w32-find-bdf-fonts does not close file handles of files examined

[Michael Schierl <schierlm@gmx.de>]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:


Start with emacs -Q and run this code:

(let* ((tmpdir (make-temp-file "bugdir-" t))
       (tmpfile (expand-file-name "dummy.bdf" tmpdir)))
  (with-current-buffer (find-file-noselect tmpfile)
    (insert "STARTFONT 2.1\n")
    (save-buffer 0))
  (w32-find-bdf-fonts tmpdir)
  (delete-file tmpfile)
  (delete-directory tmpdir))

It will signal an error at delete-file because it cannot delete the
given file. When removing the w32-find-bdf-fonts call, everything works
as expected. This is annoying if you want to test new bdf fonts on
Windows, because if you do not like them you cannot delete them until
Emacs is closed (and Windows will close all file handles). It is okay to
keep the file open while in use, but it should IMHO be closed if not used.


In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/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: DEU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
M-x r e p o r t - e m a c s - b u g <return>

Recent messages:
("D:\\Progs\\emacs\\bin\\emacs.exe" "-Q")
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p.
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done