() Thien-Thi Nguyen <[EMAIL PROTECTED]>
() Sat, 02 Aug 2008 15:18:35 +0200

   Good catch!  Since dvc-autoloads.el is written in `default-directory',
   anyway, the `expand-file-name' is indeed superfluous.

Oops, looks like i spoke too soon.  Here's a log fragment:

 |-*- mode: compilation; default-directory: "~/build/MISC/dvc.b/lisp/" -*-
 |Compilation started at Sat Aug  2 17:42:02
 |
 |cd ~/build/MISC/dvc.b/lisp ; touch /home/ttn/build/MISC/dvc/lisp/xhg-core.el 
; make
 |srcdir=../../dvc/lisp otherdirs="/x /y /z" emacs -batch -q --no-site-file -l 
../../dvc/lisp/dvc-build.el -f dvc-build-autoloads ../../dvc/lisp
 |Loading cus-dep...
 |Directory ../../dvc/lisp
 |Generating cus-load.el...
 |Wrote /home/ttn/build/MISC/dvc.b/lisp/cus-load.el
 |Generating cus-load.el...done
 |Generating autoloads for ../../../MISC/dvc/lisp/xhg-core.el...
 |Generating autoloads for ../../../MISC/dvc/lisp/xhg-core.el...done
 |Saving file /home/ttn/build/GNU/emacs/lisp/dvc-autoloads.el...
||Wrote /home/ttn/build/GNU/emacs/lisp/dvc-autoloads.el
 |Merging cus-load.el into dvc-autoloads.el 
(/home/ttn/build/MISC/dvc.b/lisp/)...
 |Compiling dvc-autoloads.el...
 |Wrote /home/ttn/build/MISC/dvc.b/lisp/dvc-autoloads.elc

Note the emphasized (double-pipe) line: Apparently, dvc-autoloads.el
is NOT actually being written in default directory.  Luckily, the following
small patch, which reintroduces `expand-file-name' at file-generation time,
seems to DTRT.  Probably more testing is a good idea...

thi


___________________________________________________________
 lisp/dvc-build.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/dvc-build.el b/lisp/dvc-build.el
index ce0d0ec..c8fb0af 100644
--- a/lisp/dvc-build.el
+++ b/lisp/dvc-build.el
@@ -340,7 +340,7 @@ (defun dvc-build-autoloads ()
                           t nil))
             ad-do-it))
         (put 'define-derived-mode 'doc-string-elt 3))
-      (let ((generated-autoload-file --autoloads-filename)
+      (let ((generated-autoload-file (expand-file-name --autoloads-filename))
             (make-backup-files nil)
             (autoload-package-name "dvc"))
         (if (featurep 'xemacs)

_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev

Reply via email to