Newsgroups: fj.sources,fj.editor.emacs,fj.editor.mule
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!newspost.aist-nara.ac.jp!kazusi-m
From: Kazushi (Jam) Marukawa <kazusi-m@is.aist-nara.ac.jp>
Subject: jam-zcat.el 1.66
In-Reply-To: Kazushi's message of Mon, 5 Dec 1994 04:34:14 GMT
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <KAZUSI-M.94Dec14191019@alpha511.is.aist-nara.ac.jp>
Sender: news@newspost.aist-nara.ac.jp (USENET News System)
Nntp-Posting-Host: alpha511.aist-nara.ac.jp
Organization: NARA Institute of Science and Technology
References: <KAZUSI-M.94Dec5133414@alpha511.is.aist-nara.ac.jp>
Mime-Version: 1.0
Date: Wed, 14 Dec 1994 10:10:19 GMT
Lines: 106
Xref: galaxy.trc.rwcp.or.jp fj.sources:2944 fj.editor.emacs:5168 fj.editor.mule:229
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5168&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


In article <KAZUSI-M.94Dec5133414@alpha511.is.aist-nara.ac.jp> you writes:
   > 
   > $B$=$m$=$m:G=*%P!<%8%g%s$NM=Dj$G$9$,!"(Bmule2$B0J9_LdBj$K$J$C$F$?(B

$B$O$$!#4v$D$+%P%0$,8+IU$+$jL5;v<h$l$^$7$?!#(B
$B$=$l$I$3$m$+$A$g$C$H$@$13HD%$5$l$^$7$?!#(B;_;)
1.63$B$+$i$N(Bdiff$B%U%!%$%k$@$1N.$7$F$*$-$^$9!#(B

 1. Info$B$KBP$9$k=hCVJ}K!$K$D$$$F(BFAQ$BE*$JJ*$r%3%a%s%H$K2C$($?!#(B
 2. gzip$B$r;H$C$?(Bappend$B$K$D$$$F(Bgzip$B$G05=L$7$?%G!<%?$r2C$($k$@(B
    $B$1$K$7$?!#(B
 3. .elc.gz$B$H$$$C$?%U%!%$%k$,%m!<%I$G$-$J$/$J$C$F$$$?%P%0$r(B
    $BD>$7$?!#(B

ftp://ftp.aist-nara.ac.jp/pub/elisp/jam-zcat.el-1.66$B$K(Bfull$B%=!<(B
$B%9$,CV$$$F$"$j$^$9!#(B

--- $B$+$:$7(B

--- 1.631994/12/05 04:13:20
+++ 1.661994/12/14 10:00:08
@@ -2,7 +2,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         jam-zcat.el
-;; RCS:          $Id: jam-zcat.el,v 1.63 1994/12/05 04:13:20 kazusi-m Exp $
+;; RCS:          $Id: jam-zcat.el,v 1.66 1994/12/14 10:00:08 kazusi-m Exp $
 ;; Description:  simple file access through SOME PROGRAMS from GNU Emacs
 ;; Author:       Kazushi (Jam) Marukawa, kazusi-m@is.aist-nara.ac.jp
 ;; Created:      Fri Jan  4 12:29:21 JST 1991
@@ -156,8 +156,15 @@
 ;;; $B%I$,JQ$o$C$F$7$^$&$3$H$,$"$j$^$9!#(B
 ;;;
 ;;; MULE$B$N>l9g(B:
-;;; $BFC$K$"$j$^$;$s!#(B
+;;; Info$B$,%3%s%W%l%9$5$l$?%U%!%$%k$rE83+$7$h$&$H$7$F$7$^$$$^(B
+;;; $B$9!#$=$l$r;_$a$k$?$a$K!"0J2<$,I,MW$G$9!#(B
 ;;;
+;;; (setq Info-suffix-list '((".info" . nil) ("" . nil)
+;;;                          (".gz" . nil) (".z" . nil) (".Z" . nil)
+;;;                          (".info.gz" . nil) (".info.z" . nil)
+;;;                          (".info.Z" . nil)
+;;;                          ))
+;;;
 ;;; **$B:G8e$K(B***
 ;;; $B$5$F:G8e$K$J$j$^$7$?$,!"4X?t$rCV$-49$($k$H$$$&%"%$%G%#%"(B
 ;;; $B$H!"$=$N4J7i$JJ}K!$,5-=R$5$l$F$$$k!"(B`ange-ftp.el(by
@@ -171,7 +178,7 @@
 ;;;  $BFj:j=$Fs(B NARAZAKI Shuji   :<narazaki@nttslb.ntt.jp>
 ;;;  $B9-@n0lIW(B Kazuo Hirokawa   :<hirokawa@rics.co.jp>
 ;;;  $B550f?.5A(B Kamei, Nobuyoshi :<zic@tci.toshiba.co.jp>
-;;;  $BA0ED70(B   Kaoru Maeda      :<maeda@astaire.src.ricoh.co.jp>
+;;;  $BA0ED70(B   Kaoru Maeda      :<maeda@src.ricoh.co.jp>
 ;;;
 ;;; $B2?$+LdBj$,$"$j$^$7$?$i!"(Bkazusi-m@is.aist-nara.ac.jp$B$^$G(B
 ;;; $B$*CN$i$;2<$5$$!#(B
@@ -489,10 +496,13 @@
       (let ((temp (get-buffer-create "*compress*"))
     (cbuf (current-buffer))
     (save-start (make-marker))
-    kcode)
+    kcode append-by-gzip)
 (save-restriction
   (narrow-to-region start end)
-  (cond ((not append)
+  (cond ((or (not append); When not appending
+     (setq append-by-gzip
+   (string-match "gzip" (nth 1 jam-zcat-how-to-list))))
+; When appending with gzip
  (setq kcode; GET kanji code for conv.
        (jam-zcat-localize-code
 (if mc-flag
@@ -507,7 +517,7 @@
      start end realname append visit))))
  (set-buffer temp)
  (erase-buffer))
-(t
+(t; When appending without gzip
  (set-buffer temp)
  (erase-buffer)
 ; READ target file
@@ -575,10 +585,11 @@
  mc-flag
  selective-display)
      (jam-zcat-real-write-region save-start (point)
- filename nil visit)))
+ filename append-by-gzip
+ visit)))
  (let (kanji-flag selective-display)
    (jam-zcat-real-write-region save-start (point)
-       filename nil visit)))
+       filename append-by-gzip visit)))
 (if (eq visit t)
     (let (buffer-read-only)
       (delete-region save-start (point))
@@ -747,7 +758,8 @@
 (defun jam-zcat-real-insert-file-contents (&rest args)
   (jam-zcat-run-real-handler 'insert-file-contents args))
 (defun jam-zcat-real-write-region (&rest args)
-  (jam-zcat-run-real-handler 'write-region args))))
+  (jam-zcat-run-real-handler 'write-region args))
+(jam-zcat-overwrite-fn 'loadablep)))
  (progn
    (jam-zcat-overwrite-fn 'insert-file-contents)
    (jam-zcat-overwrite-fn 'write-region)))
