find-directory-p always returns nil in locate-mode on windows xp

[Peter Lee]

After doing M-x locate and then pressing 'V' in the *Locate* buffer I
would always receive the message:

Directory no longer exists; run `updatedb' to update database

I narrowed the problem down to file-directory-p returning nil even
when the directory was valid (but only when the active buffer was the
locate buffer).

Evaling (file-directory-p "d:/cygwin/usr/share/doc/antiword-0.34/")
__when the *Locate* buffer is active__ results in nil.

Evaling the same expression in any other buffer returns t.


I'm getting around this by getting rid of the check altogether in a
hook.

(add-hook 'locate-mode-hook
          '(lambda () 
             (defalias 'locate-find-directory 
               '(lambda () 
                  (interactive)
                  (let ((directory-name (locate-get-dirname)))
                    (dired directory-name))))))
 

In GNU Emacs 21.3.50.1 (i386-mingw-nt5.1.2600)
 of 2004-04-30 on YADDAYADDA
configured using `configure --with-gcc (3.2)'

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: ENU
  locale-coding-system: utf-8-dos
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  cua-mode: t
  iswitchb-mode: t
  show-paren-mode: t
  global-auto-revert-mode: t
  which-function-mode: t
  display-time-mode: t
  file-name-shadow-mode: t
  auto-image-file-mode: t
  mouse-wheel-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
o C-s C-s C-a C-n C-n C-n C-n C-n C-n C-n C-l C-n C-l 
C-n C-l C-\ 2 C-x C-f . e m <tab> <return> C-x d b 
l a h <return> C-x k C-h f l o c a t e SPC f i n d 
SPC d i r <return> C-x o C-e M-b <return> C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-SPC C-p C-p C-p C-p C-p C-p 
C-p C-p C-p M-w C-\ 3 C-\ 2 C-\ 3 C-\ 4 C-x b . e m 
<return> M-x r e p o r t SPC <return>

Recent messages:
Scanning buffer for index ( 15%)
Scanning buffer for index ( 26%)
Scanning buffer for index ( 36%)
Scanning buffer for index ( 42%)
Scanning buffer for index ( 49%)
Scanning buffer for index ( 63%)
Scanning buffer for index ( 69%)
Scanning buffer for index (100%)
Mark set
Loading emacsbug...done