bug#4902: 23.1; directory-abbrev-alist is not handled early enough

[David Biesack]

Start emacs -q on a Windows system

In *scratch* buffer, evaluate

(setq directory-abbrev-alist '(("^/mount/" . "//uncpath/mount/")))

Even after setting this value, it is not honored on Windows.
Lower level functions appear to ignore directory-abbrev-alist,
so find-file and find-file-noselect etc. end up with "true" filenames that
contain drive letters:

(file-truename "/mount/somefile.x")
=> "c:/mount/somefile.x"

(expand-file-name "/mount/somefile.x")
=> "c:/mount/somefile.x"

(c:/mount does not exist, but //uncpath/mount/ does)



In GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600)
 of 2009-07-30 on SOFT-MJASON
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (4.4)'

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
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  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
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <down-mouse-1>
<mouse-1> C-x b <return> C-y C-p C-p C-p C-p C-p C-p
C-p C-p C-p C-e M-x e v a - <backspace> l - p r i SPC
SPC <return> q <down-mouse-1> <mouse-1> <down-mouse-1>
<mouse-1> C-j SPC q SPC SPC SPC ( C-b ' C-n C-b <backspace>
SPC SPC SPC C-n C-n C-p C-a SPC SPC C-e ) M-x e v a
l - p r SPC <return> C-p C-k C-p C-e M-x e v a l -
p r SPC SPC SPC <return> C-n <down-mouse-1> <mouse-1>
C-x h C-w <down-mouse-1> <mouse-1> C-y C-p C-p C-p
C-p C-p C-p C-p C-p C-p C-e M-x e v a l - c SPC SPC
SPC <return> C-n C-n C-n C-a C-k C-p C-e M-x e v a
l - p r SPC <return> C-n C-k C-k C-e M-x e v a l -
p r SPC SPC <return> C-k C-k C-k C-k C-k C-SPC C-p
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-w M-x r e p o
r t - e SPC SPC SPC <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Mark set
Entering debugger...
Back to top level.
Entering debugger...
Back to top level.