diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-05-08 23:23:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-05-08 23:23:37 +0000 |
commit | 789dca378873051ab296fac3238760c0c429bc77 (patch) | |
tree | f654a4b5d3e85e0b506a2cd53b8360a4ab41b044 /lisp/info.el | |
parent | 6be9f911c6c999aa8663667d39abf0d1d5f1f0ad (diff) | |
download | emacs-789dca378873051ab296fac3238760c0c429bc77.tar.gz |
(info-insert-file-contents): Don't use
(file-name-directory fullname) if it is nil.
(info-insert-file-contents): Fix Apr 19 change.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 3 |
1 files changed, 2 insertions, 1 deletions
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*") |