Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.u-tokyo.ac.jp!t-server!keisu3!keisu3.t!tt36379
From: tt36379@secc.ecc.u-tokyo.ac.jp (Imayoshi "nafuda-d" Takahiro)
Subject: Re: question elisp
In-Reply-To: oka@ocean.ie.u-ryukyu.ac.jp's message of 27 Oct 1994 18:10:20 +0000
Message-ID: <TT36379.94Oct28210129@ecc-1000.ecc.u-tokyo.ac.jp>
Sender: news@keisu-s.t.u-tokyo.ac.jp
Nntp-Posting-Host: ecc-1000.ecc.u-tokyo.ac.jp
Organization: Educational Computer Centre, The Univ. of Tokyo
References: <CyCFt9.72F@spn.ie.u-ryukyu.ac.jp>
Distribution: fj
Date: Fri, 28 Oct 1994 12:01:29 GMT
Lines: 68
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5067
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5067&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.

$B:#5H!wElBg$G$9!#(B

In article <CyCFt9.72F@spn.ie.u-ryukyu.ac.jp>
oka@ocean.ie.u-ryukyu.ac.jp (Yasuharu Ohkawa) writes:

> $B$O$8$a$^$7$F!"N0Bg!wBg@n$G$9!#(B

$B$O$8$a$^$7$F!"Bg@n$5$s$G$h$m$7$$$s$G$9$h$M!)(B

> $BL\E*$O!"(BEmacs$B$N;HMQ>u67$rD4$Y$?$$$N$G$9!#(B
> $B$d$j$?$$$3$H$O!"%U%!%$%k$N=q$-=P$7$?;~9o$H$=$N%U%!%$%kL>$r%m%0%U%!%$%k$K(B
> $B=q$-9~$`$3$H$G$9!#(B
> 
> $B:#$^$G$d$C$?$3$H$O!"(Belisp$B$G%U%!%$%kL>$rF@$k!JI=<($7$?!K$3$H$H;~9o$r(B
> $BF@$k!JI=<($7$?!K$3$H$G$9!#(B
> 
> $B$I$&$d$C$?$i!"$3$N>pJs$r%m%0%U%!%$%k$K=q$-9~$`$3$H$,$G$-$k$G$7$g$&$+!)(B
> elisp$B$K4X$7$F$O$[$H$s$ICN<1$N$J$$;d$G$9$,!"$465<x4j$$$^$9!#(B

$B$H=q$$$F$i$C$7$c$k$N$G!"$I$NCJ3,$G$N<ALd$+NI$/J,$+$j$^$;$s$,!"(B

$B$^$:(B append-to-file $B!J$"$k$$$O(B write-region$B!K$r;H$($P!"(Bregion $B$r(B
$B%U%!%$%k$KDI2C$9$k$3$H$,=PMh$^$9$+$i!"%F%s%]%i%j%P%C%U%!$G$b:n$C$F!"(B
$B$=$3$K%U%!%$%kL>$H;~9o$N>pJs$r=q$$$F$+$i!"%m%0$K=q$-=P$7$F$d$l$P(B
$B$$$$$G$9$h$M!#(B
$B$3$l$G!">pJs$r%m%0%U%!%$%k$K=PNO$9$k$H$$$&4X?t$O=q$1$k$O$:!#(B
$BNc!K(B write-log


$B<!$K!"(Bfiles.el $B$rD/$a$k$HJ,$+$j$^$9$,!"(Bsave-buffer $B!J@53N$K$O(B
basic-save-buffer$B!K$G(B write-file-hooks $B$rI>2A$7$F$$$k$N$G!"(B
$B$3$l$K>e$G:n$C$?4X?t$rDI2C$7$F$d$l$PNI$$$H;W$$$^$9!#(B

$BNc!K(B
(setq write-file-hooks
      (append write-file-hooks
      'write-log))

$B>\$7$/$O!"(Bfiles.el $B$N(B basic-save-buffer $B$NItJ,$H(B write-file-hooks $B$N(B
online-document $B$rFI$`$HNI$$$G$7$g$&!#(B


$B$b$7$b(B save-buffer $B$K$h$k=PNO$@$1$G$J$/!"A4$F$N%U%!%$%k=PNO$N(B
$B%m%0$r<h$j$?$$$N$J$i!"(Bemacs $B$,:G=*E*$K(B write-region $B$r;H$C$F(B
$B=q$-=P$7$r9T$J$C$F$$$k$3$H$KCeL\$7$F!"(Bwrite-region $B$rCV$-49$($F(B
$B$d$l$P$$$$$b$N$H;W$$$^$9!#(B

$BN,Nc!K(B
(fset 'original-write-region (symbol-function 'write-region))
(defun 'write-region (start ...)
  (interactive "r\n....")
  (apply 'original-write-region start ...)
  (write-log filename))

write-region $B$O(B jam-zcat $B$J$I$G4{$KCV$-49$($i$l$F$$$k2DG=@-$,(B
$B$"$k$N$G!"CV$-49$($K$OCm0U$7$?J}$,$$$$$G$7$g$&!#(B
$B$3$3$iJU$O(B jam-zcat.el $B$,NI$$652J=q$K$J$k$G$7$g$&!#(B


$B0J>e0N$=$&$K=q$-$^$7$?$,!";d$b(B Emacs-Lisp $B$K@:DL$7$F$$$kLu$G$O(B
$B$J$$$N$G!"4V0c$C$F$$$k=j$,$"$k$+$bCN$l$^$;$s!#(B
$B4V0c$C$F$$$k=j$,$"$C$?$i8f;XE&2<$5$$!#(B

$B$G$O(B
---
$B:#5H?rGn!wEl5~Bg3XBg3X1!(B.$B9)3X7O8&5f2J(B.$BJ*M}9)3X@l96(B
E-MAIL: tt36379@secc.ecc.u-tokyo.ac.jp
        imayoshi@st.rim.or.jp
