Mercurial > emacs
changeset 19937:f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
running on Windows 95 with long file name support.
(info-insert-file-contents): When the Info file is to be
uncompressed, insert it literally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Sep 1997 19:48:11 +0000 |
| parents | 78aa8484e6e9 |
| children | 98f1cc8e5c74 |
| files | lisp/info.el |
| diffstat | 1 files changed, 21 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Sep 15 19:45:16 1997 +0000 +++ b/lisp/info.el Mon Sep 15 19:48:11 1997 +0000 @@ -161,10 +161,23 @@ "Non-nil if Emacs was started solely as an Info browser.") (defvar Info-suffix-list + ;; The MS-DOS list should work both when long file names are + ;; supported (Windows 9X), and when only 8+3 file names are available. (if (eq system-type 'ms-dos) '( (".gz" . "gunzip") (".z" . "gunzip") + (".inz" . "gunzip") + (".igz" . "gunzip") + (".info.Z" . "gunzip") + (".info.gz" . "gunzip") + ("-info.Z" . "gunzip") + ("-info.gz" . "gunzip") + ("/index.gz". "gunzip") + ("/index.z" . "gunzip") (".inf" . nil) + (".info" . nil) + ("-info" . nil) + ("/index" . nil) ("" . nil)) '( (".info.Z". "uncompress") (".info.Y". "unyabba") @@ -247,13 +260,15 @@ (jka-compr-installed-p) (jka-compr-get-compression-info fullname)) (setq decoder nil)) - (insert-file-contents fullname visit) (if decoder - (let ((buffer-read-only nil) - (coding-system-for-write 'no-conversion) - (default-directory (or (file-name-directory fullname) - default-directory))) - (call-process-region (point-min) (point-max) decoder t t))))) + (progn + (insert-file-contents-literally fullname visit) + (let ((buffer-read-only nil) + (coding-system-for-write 'no-conversion) + (default-directory (or (file-name-directory fullname) + default-directory))) + (call-process-region (point-min) (point-max) decoder t t))) + (insert-file-contents fullname visit)))) ;;;###autoload (add-hook 'same-window-buffer-names "*info*")