# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799975417 0
# Node ID 51816af0321530bd19102460968b4802f182f04b
# Parent  eb208ec6d21693438c5bebf40f5d560e7e512210
(info-insert-file-contents): Don't use
(file-name-directory fullname) if it is nil.

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

diff -r eb208ec6d216 -r 51816af03215 lisp/info.el
--- a/lisp/info.el	Mon May 08 21:09:17 1995 +0000
+++ b/lisp/info.el	Mon May 08 23:23:37 1995 +0000
@@ -165,7 +165,8 @@
     (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*")