🚀 go-pugleaf

>>>>> In <8trl7r$hnd$1@yagi.ecei.tohoku.ac.jp> 
>>>>>	sd98209@ec.ecei.tohoku.ac.jp (97TB2080 / Kiso Kazuki) wrote:

木曽さん> 圧縮ファイルを扱えるjam-zcat.el (v 1.74)というものを使用しよ
木曽さん> うと思ったのですが、emacs -q で立ち上げて、load-path の設定
木曽さん> をしたもので

木曽さん> (require 'jam-zcat)

木曽さん> を評価しただけのものでさえ、圧縮file(gz,zip) を開くと 
木曽さん> mode-line に

木曽さん> File mode specification error: (wrong-number-of-arguments #<subr load> 5)

木曽さん> と出ます。これはjam-zcat の問題のように思えるのですが、

[...]

木曽さん> 私の環境はGNU Emacs 19.34.1 (sparc-sun-solaris2.7 X toolkit) 
木曽さん> ベースのMule 2.3 (SUETUMUHANA)です。

木曽さんがお使いの jam-zcat は Emacs v20 以上を対象としたものなのでは
ないかと思います。

;; Mule 2.3@19.34
(load FILE &optional NOERROR NOMESSAGE NOSUFFIX)

;; Emacs 20.7
(load FILE &optional NOERROR NOMESSAGE NOSUFFIX MUST-SUFFIX)

そこで、あまり美しくない方法ですが、.emacs で (require 'jam-zcat) を行
なう前に

(if (fboundp 'si:load)
    nil
  (fset 'si:load (symbol-function 'load))
  (defun load (file &optional noerror nomessage nosuffix must-suffix)
    (si:load file noerror nomessage nosuffix)))

のようなものを書いておいたらいかがでしょうか?

;; これだけですべて解決、というわけには行かないかもしれませんが。:-p
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

<yosupuk9ec7e.fsf@jpl.org>$B$N5-;v$K$*$$$F(B
yamaoka@jpl.org$B$5$s$O=q$-$^$7$?!#(B

>> >>>>> In <8trl7r$hnd$1@yagi.ecei.tohoku.ac.jp> 
>> >>>>>	sd98209@ec.ecei.tohoku.ac.jp (97TB2080 / Kiso Kazuki) wrote:
>> 
>> $BLZA>$5$s(B> $B05=L%U%!%$%k$r07$($k(Bjam-zcat.el (v 1.74)$B$H$$$&$b$N$r;HMQ$7$h(B
>> $BLZA>$5$s(B> $B$&$H;W$C$?$N$G$9$,!"(B
>> $BLZA>$5$s(B> mode-line $B$K(B
>> $BLZA>$5$s(B> File mode specification error: (wrong-number-of-arguments #<subr load> 5)
>> $BLZA>$5$s(B> $B$H=P$^$9!#$3$l$O(Bjam-zcat $B$NLdBj$N$h$&$K;W$($k$N$G$9$,!"(B
>> [...]
>> $BLZA>$5$s(B> $B;d$N4D6-$O(BGNU Emacs 19.34.1 (sparc-sun-solaris2.7 X toolkit) 
>> $BLZA>$5$s(B> $B%Y!<%9$N(BMule 2.3 (SUETUMUHANA)$B$G$9!#(B
>> 
>> $BLZA>$5$s$,$*;H$$$N(B jam-zcat $B$O(B Emacs v20 $B0J>e$rBP>]$H$7$?$b$N$J$N$G$O(B
>> $B$J$$$+$H;W$$$^$9!#(B
>> ;; Mule 2.3@19.34
>> (load FILE &optional NOERROR NOMESSAGE NOSUFFIX)
>> ;; Emacs 20.7
>> (load FILE &optional NOERROR NOMESSAGE NOSUFFIX MUST-SUFFIX)
>> $B$=$3$G!"$"$^$jH~$7$/$J$$J}K!$G$9$,!"(B.emacs $B$G(B (require 'jam-zcat) $B$r9T(B
>> $B$J$&A0$K(B
>> (if (fboundp 'si:load)
>>     nil
>>   (fset 'si:load (symbol-function 'load))
>>   (defun load (file &optional noerror nomessage nosuffix must-suffix)
>>     (si:load file noerror nomessage nosuffix)))
>> 
>> $B$N$h$&$J$b$N$r=q$$$F$*$$$?$i$$$+$,$G$7$g$&$+(B?
>> 
>> ;; $B$3$l$@$1$G$9$Y$F2r7h!"$H$$$&$o$1$K$O9T$+$J$$$+$b$7$l$^$;$s$,!#(B:-p

$B%U%)%m!<$"$j$,$H$&$4$6$$$^$9!#(B
$BAaB.;n$7$F$_$^$7$?$,!"$d$O$j$3$l$@$1$GA4$F2r7h$H$O$$$+$:!"(B
$B<!$+$i<!$X$H?7$?$J4X?t$NB8:_$,I,MW$K$J$C$F$7$^$$!"$-$j$,$J$/$J$C$F$7$^$$$^$7$?!#(B

jam-zcat.el $B$NCf?H$r$_$k$H(Bversion $B$,(Bemacs20 $B0J2<$G$bH=Dj$7$F$$$=$&$@$C$?$N$G(B
$B;d$N4D6-$G$bBg>fIW$@$H;W$C$F$$$?$N$G$9$,(B...

$B$=$3$G8E$$(Bjam-zcat(v 1.63)$B$r(Bweb $B>e$+$iC5$7=P$7$F$-$F;H$C$?$H$3$m!"(B
$B<c43(Btar file$B$N07$$$,JQ$G$9$,!"(Bgz file $B$rFI$a$k$h$&$K$J$j$^$7$?!#(B

$BBgJQ$4B-O+$r$*3]$1$7$F?=$7Lu$"$j$^$;$s$G$7$?!#(B
$B0l1~$3$N8E$$%P!<%8%g%s$N$b$N$G2fK}$9$k$3$H$K$7$^$9!#(B
$B$"$j$,$H$&$4$6$$$^$7$?!#(B
------------------------------
	$BElKLBg3X9)3XIt(B
   $BEE5$DL?.8&5f=j(B $BLpLn8&(B 4$BG/(B
	   $BLZA>(B $BOB5#(B
 sd98209@ec.ecei.tohoku.ac.jp
   kiso@riec.tohoku.ac.jp
------------------------------

jam-zcatのバグでした。

string<の使い方を間違えていたという。
っていうか、string<は使わないほうがいいのかも。

ともかく、1.75をリリースしておきました。ニュースは読まないこ
とがおおいので、メイルで問い合わせてもらえると有難いです。

http://www.io.com/~kazushi/freeware/jam-zcat.el-1.75.gz

   97TB2080 / Kiso Kazuki <sd98209@ec.ecei.tohoku.ac.jp> wrote:
   > jam-zcat.el の中身をみるとversion がemacs20 以下でも判定して
   > いそうだったので私の環境でも大丈夫だと思っていたのですが...

   > そこで古いjam-zcat(v 1.63)をweb 上から探し出してきて使ったところ、
   > 若干tar fileの扱いが変ですが、gz file を読めるようになりました。

-- かずし

   Kazushi Jam Marukawa <jam@pobox.com> wrote:
   > ともかく、1.75をリリースしておきました。ニュースは読まないこ
   > とがおおいので、メイルで問い合わせてもらえると有難いです。

バグを入れてました。直したものをリリースしました。

http://www.io.com/~kazushi/freeware/jam-zcat.el-1.76.gz

-- かずし