From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 8 May 1995 23:23:37 +0000 (+0000)
Subject: (info-insert-file-contents): Don't use
X-Git-Tag: emacs-19.34~4099
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e8b867a926611231bb5ece32c082212195d15f2;p=emacs.git

(info-insert-file-contents): Don't use
(file-name-directory fullname) if it is nil.

(info-insert-file-contents): Fix Apr 19 change.
---

diff --git a/lisp/info.el b/lisp/info.el
index 0501fab90f3..77973c9e369 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -165,7 +165,8 @@ Do the right thing if the file has been compressed or zipped."
     (insert-file-contents fullname visit)
     (if decoder
 	(let ((buffer-read-only nil)
-	      (default-directory (file-directory fullname)))
+	      (default-directory (or (file-name-directory fullname)
+				     default-directory)))
 	  (shell-command-on-region (point-min) (point-max) decoder t)))))
 
 ;;;###autoload (add-hook 'same-window-buffer-names "*info*")