blob: c3fdb4604aa6c69fc110d36b4eb664fd4367179c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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*")
|
