X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Finfo.el;h=41cfc46f749ed9b8bf97066767650a67dac8e2d0;hb=05fea27f514f43f3c3dbf5cc7bb9c2b25a64b4bf;hp=2bd88a1c69b06c770c3df04f337c4d13c7a9cdf8;hpb=dbf2768f7b146e97e37a27316f70bb313f1acf15;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/info.el b/lisp/info.el
index 2bd88a1..41cfc46 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1033,7 +1033,7 @@ actually get any text from."
 	(setq lbuffers (cdr lbuffers)))
       (message "Composing main Info directory...done"))
     (setq Info-dir-contents (buffer-string)))
-  (setq default-directory Info-dir-contents-directory)
+  (setq default-directory (file-name-as-directory Info-dir-contents-directory))
   (setq buffer-file-name (caar Info-dir-file-attributes)))
 
 (defmacro Info-directory-files (dir-file &optional all full nosort files-only)
@@ -1510,7 +1510,7 @@ versions of NAME. Only the suffixes are tried."
 			   (format (cdr (car suff)) file)
 			 (concat (cdr (car suff)) " < " file))))
 	  (message "%s..." command)
-	  (call-process shell-file-name nil t nil "-c" command)
+	  (call-process shell-file-name nil t nil shell-command-switch command)
 	  (message "")
 	  (when visit
 	    (setq buffer-file-name file)