Problem with expand-file-name ?

Problem with expand-file-name ?

[Dmitry Antipov]

After a fresh bootstrap, try (from 'src' subdirectory of the tree):

$ ./emacs --no-site-file --no-init-file -batch -f batch-byte-recompile-directory ../lisp
Checking /home/user/tmp/Emacs/emacs/lisp...
Checking /home/user/tmp/Emacs/emacs/lisp/calc...
Checking /home/user/tmp/Emacs/emacs/lisp/calendar...
Checking /home/user/tmp/Emacs/emacs/lisp/emacs-lisp...
Checking /home/user/tmp/Emacs/emacs/lisp/emulation...
Checking /home/user/tmp/Emacs/emacs/lisp/erc...
Checking /home/user/tmp/Emacs/emacs/lisp/eshell...
Checking /home/user/tmp/Emacs/emacs/lisp/gnus...
Checking /home/user/tmp/Emacs/emacs/lisp/international...
Checking /home/user/tmp/Emacs/emacs/lisp/language...
Checking /home/user/tmp/Emacs/emacs/lisp/mail...
Checking /home/user/tmp/Emacs/emacs/lisp/mh-e...
Checking /home/user/tmp/Emacs/emacs/lisp/net...
Checking /home/user/tmp/Emacs/emacs/lisp/obsolete...
Checking /home/user/tmp/Emacs/emacs/lisp/play...
Checking /home/user/tmp/Emacs/emacs/lisp/progmodes...
Checking /home/user/tmp/Emacs/emacs/lisp/term...
Checking /home/user/tmp/Emacs/emacs/lisp/textmodes...
Checking /home/user/tmp/Emacs/emacs/lisp/toolbar...
Checking /home/user/tmp/Emacs/emacs/lisp/url...
Done (Total of 0 files compiled)

That's OK. But:

$ ./emacs --no-site-file --no-init-file -batch -f batch-byte-recompile-directory ../lisp/textmodes
Checking /home/user/tmp/Emacs/emacs/lisp/lisp/textmodes...
Error: Opening directory: no such file or directory, /home/user/tmp/Emacs/emacs/lisp/lisp/textmodes
Done (Total of 0 files compiled)

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

Dmitry

Re: Problem with expand-file-name ?

[Thien-Thi Nguyen]

() Dmitry Antipov <dmantipov@yandex.ru>
() 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)