kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cannot view gzipped info files if the next line is in ~/.emacs:

Browse source 
(set-default-process-coding-system *autoconv*unix *junet*)

PR: 16817
Submitted by: amagai@nue.org (Y.Amagai)
This commit is contained in:
Satoshi Taoka 2000-02-21 05:13:49 +00:00
parent 3655ead184
commit 06a335b788
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=26076
2 changed files with 52 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
editors/mule-common/files/patch-ca Normal file
View file

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

26
textproc/coco/files/patch-ca Normal file
View file

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