From 5d0d1ce8d4669eee642b5d6cead0611aea52ba46 Mon Sep 17 00:00:00 2001 From: taoka Date: Mon, 21 Feb 2000 05:13:49 +0000 Subject: Cannot view gzipped info files if the next line is in ~/.emacs: (set-default-process-coding-system *autoconv*unix *junet*) PR: 16817 Submitted by: amagai@nue.org (Y.Amagai) --- textproc/coco/files/patch-ca | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 textproc/coco/files/patch-ca (limited to 'textproc/coco') diff --git a/textproc/coco/files/patch-ca b/textproc/coco/files/patch-ca new file mode 100644 index 000000000000..c3fdb4604aa6 --- /dev/null +++ b/textproc/coco/files/patch-ca @@ -0,0 +1,26 @@ +Cannot view a gzpipped info file in mule Info-mode +when the next line is in ~/.emacs: + (set-default-process-coding-system *autoconv*unix *junet*) + +--- lisp/info.el.save Thu Jan 6 17:26:03 2000 ++++ lisp/info.el Wed Feb 19 15:17:14 2000 +@@ -204,12 +204,13 @@ + (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) +- (default-directory (or (file-name-directory fullname) +- default-directory))) +- (call-process-region (point-min) (point-max) decoder t t))))) ++ (cond (decoder ++ (let ((buffer-read-only nil) ++ (default-directory (or (file-name-directory fullname) ++ default-directory))) ++ (call-process decoder fullname t) )) ++ (t ++ (insert-file-contents fullname visit) )))) + + ;;;###autoload (add-hook 'same-window-buffer-names "*info*") + -- cgit