(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 0501fab90f31d5e874e7ecf345c0e079d50d9141..77973c9e369e48b76858bc9db42a5a9ffa26939a 100644 (file)
--- 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*")