diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-15 19:48:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-15 19:48:11 +0000 |
| commit | 3c19e6c145edd5dbb44b58e9452d475bc5765382 (patch) | |
| tree | f4812160f0bd5cb3089df2cc90271ffa7fb5688d | |
| parent | 1838eb6cd69542b62e8c2e8f725e4e6ba2efe041 (diff) | |
| download | emacs-3c19e6c145edd5dbb44b58e9452d475bc5765382.tar.gz | |
(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.
| -rw-r--r-- | lisp/info.el | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index a52c76273d5..aed3e425bae 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -161,10 +161,23 @@ Marker points nowhere if file has no tag table.") "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 @@ Do the right thing if the file has been compressed or zipped." (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*") |