X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmake-docfile.el;h=e6c0cf84e002cb7096750d69c0207956b02f21ef;hb=0e0ed391dfd5bbc871df7bc987220b7994a85cf5;hp=c5018781f49191d58455e68d317b4b14ea9e09f0;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git

diff --git a/lisp/make-docfile.el b/lisp/make-docfile.el
index c501878..e6c0cf8 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)))
@@ -91,7 +91,7 @@
  (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
 
 (let (preloaded-file-list)
-  (load (concat default-directory "../lisp/dumped-lisp.el"))
+  (load (expand-file-name "../lisp/dumped-lisp.el"))
 
   (let ((package-preloaded-file-list
 	 (packages-collect-package-dumped-lisps late-package-load-path)))