freebsd-ports/textproc/coco/files/patch-ca
Satoshi Taoka 06a335b788 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)
2000-02-21 05:13:49 +00:00

26 lines
916 B
Text

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