Mercurial > emacs
changeset 11759:51816af03215
(info-insert-file-contents): Don't use
(file-name-directory fullname) if it is nil.
(info-insert-file-contents): Fix Apr 19 change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 May 1995 23:23:37 +0000 |
| parents | eb208ec6d216 |
| children | 898ec89f5379 |
| files | lisp/info.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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*")