Commit 0e8b867a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(info-insert-file-contents): Don't use

(file-name-directory fullname) if it is nil.

(info-insert-file-contents): Fix Apr 19 change.
parent 3c61e534
......@@ -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*")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment