X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lisp%2Fautoload.el;h=9911d822370353c652f5ed141733b137c6e1dd6d;hb=21db8709c0c2dcedbd278c7fe571290d5ce80a71;hp=195885ddce02ab122c6d7075d907b6030c6dd949;hpb=02f4d2761a98c5cb9d5b423d2361160a5d8c9ee4;p=chise%2Fxemacs-chise.git

diff --git a/lisp/autoload.el b/lisp/autoload.el
index 195885d..9911d82 100644
--- a/lisp/autoload.el
+++ b/lisp/autoload.el
@@ -509,7 +509,7 @@ The directory to which the auto-autoloads.el file must be the first parameter
 on the command line."
   (unless noninteractive
     (error "batch-update-autoloads is to be used only with -batch"))
-  (let ((defdir default-directory)
+  (let ((defdir (directory-file-name default-directory))
 	(enable-local-eval nil))	; Don't query in batch mode.
     ;; (message "Updating autoloads in %s..." generated-autoload-file)
     (dolist (arg command-line-args-left)