mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

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

(info-insert-file-contents): Fix Apr 19 change.
This commit is contained in:
Richard M. Stallman 1995-05-08 23:23:37 +00:00
parent 3c61e53471
commit 0e8b867a92
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/info.el
View File

@ -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*")