From 0e8b867a926611231bb5ece32c082212195d15f2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 May 1995 23:23:37 +0000 Subject: [PATCH] (info-insert-file-contents): Don't use (file-name-directory fullname) if it is nil. (info-insert-file-contents): Fix Apr 19 change. --- lisp/info.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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*") -- 2.39.2