Re: Problem with expand-file-name ?

[Thien-Thi Nguyen]

() Dmitry Antipov <address@hidden>
() Fri, 31 Aug 2007 16:17:47 +0400

   Note 'lisp/lisp' here - probably this is a strange
   thing done by expand-file-name.

the following patch fixes this problem.  light testing w/ "make
compile" in lisp/ doesn't show any problems so i will install it
in a couple days unless there are objections in the meantime.

thi

______________________________________________________________
*** bytecomp.el 27 Aug 2007 04:00:15 -0000      2.207
--- bytecomp.el 31 Aug 2007 14:59:56 -0000
***************
*** 1552,1558 ****
      ;; compilation-mode copies value of default-directory.
      (unless (eq major-mode 'compilation-mode)
        (compilation-mode))
!     (let ((directories (list (expand-file-name directory)))
          (default-directory default-directory)
          (skip-count 0)
          (fail-count 0)
--- 1552,1558 ----
      ;; compilation-mode copies value of default-directory.
      (unless (eq major-mode 'compilation-mode)
        (compilation-mode))
!     (let ((directories (list default-directory))
          (default-directory default-directory)
          (skip-count 0)
          (fail-count 0)