X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmake-docfile.el;h=e67fdbf89ef6b94c7b52711ec9cb4c9bdbe9cf78;hp=1f56feb6eb8e6c710ea0b037918535314c7af996;hb=refs%2Fremotes%2Forigin%2Funlabeled-1.1.1;hpb=8b0299e2a613ab99d6e4dc2423e77ff93b715adc

diff --git a/lisp/make-docfile.el b/lisp/make-docfile.el
index 1f56feb..e67fdbf 100644
--- a/lisp/make-docfile.el
+++ b/lisp/make-docfile.el
@@ -51,9 +51,9 @@
 		 (string-equal arg "-a") ; Append to DOC file
 		 (string-equal arg "-d")) ; Set working directory
 	     (if (string-equal arg "-o")
-		 (setq docfile (car (cdr command-line-args))))
+		 (setq docfile (expand-file-name (car (cdr command-line-args)))))
 	     (setq options (cons arg options))
-	     (setq options (cons (car (cdr command-line-args)) options)))
+	     (setq options (cons (expand-file-name (car (cdr command-line-args))) options)))
 	    ((string-equal arg "-i") ; Set site files to scan
 	     (setq site-file-list (car (cdr command-line-args))))
 	    (t (setq done t)))
@@ -81,8 +81,6 @@
 
 ;; Then process the autoloads
 (setq autoload-file-name "auto-autoloads.elc")
-(setq source-directory (concat default-directory "../lisp"))
-;; (print (concat "Source directory: " source-directory))
 (load "find-paths.el")
 (load "packages.el")
 (load "setup-paths.el")
@@ -173,7 +171,7 @@
 	   nil
 	   "-fc"
 	   (mapconcat
-	    'identity
+	    #'identity
 	    (append
 	     (list (concat default-directory "../lib-src/make-docfile"))
 	     options processed)