Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!news.u-tokyo.ac.jp!ccut!nacsisrd!lexus.nacsis!itaru
From: itaru@nacsis.ac.jp (NISHIZAWA Itaru)
Subject: Re: define key
In-Reply-To: itaru@nacsis.ac.jp's message of Mon, 27 Sep 1993 09:41:45 GMT
Message-ID: <ITARU.93Sep30190837@hermes.nacsis.ac.jp>
Sender: news@lexus.nacsis.ac.jp
Nntp-Posting-Host: hermes+2
Organization: University of Tokyo, Japan.
References: <ITARU.93Sep27184145@hermes.nacsis.ac.jp>
Distribution: fj
Date: Thu, 30 Sep 1993 10:08:37 GMT
Lines: 69
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4072
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4072&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.

$BEl5~Bg3X$N@>_7$H?=$7$^$9!#(B

$B;d$N(B

In article <ITARU.93Sep27184145@hermes.nacsis.ac.jp>,
 itaru@nacsis.ac.jp (Itaru NISHIZAWA) writes:

>$BEl5~Bg3X$N@>_7$H?=$7$^$9!#(B

>emacs lisp$B$N<ALd$O$3$N%K%e!<%9%0%k!<%W$G$h$$$N$G$7$g$&$+!#$b$7!"ET9g$,(B
>$B0-$1$l$P;XE&$7$F2<$5$$!#(B

>$B:G6a(Bemacs lisp$B$G%W%m%0%i%_%s%0$r$O$8$a$^$7$?!#B>$N%W%m%0%i%`$d(BGNU
>emacs lisp manual$B$J$I$r$_$F$d$C$F$$$k$N$G$9$,!"$I$&$b$o$+$i$J$$$3$H$,(B
>$BB?$/:$$C$F$$$^$9!#$b$7$o$+$kJ}$,$$$i$C$7$c$?$i65$($F$$$?$@$1$J$$$G$7$g(B
>$B$&$+!#(B

>$B<ALd(B

>1. define-key$B$G$=$N%-!<$KBP$9$k4X?t$r=q$-$^$9$,!"$3$l$K0z?t$rM?$($k$3(B
>$B$H$O$G$-$J$$$N$G$7$g$&$+!#Nc$r$"$2$k$H!"%-!<$N(B0-9$B$rF1$84X?t$K3d$jEv$F!"(B
>$B$=$N0z?t$K1~$8$?F0:n$r$5$;$?$$$H$$$&$3$H$J$N$G$9!#(B

>2. $B:n6H$N=*$C$?(Bcat-file-buffer$B$H$$$&%P%C%U%!$r%U%!%$%k$K%;!<%V$7$h$&$H(B
>$B$7$F(B

>  (save-buffer cat-data-buf)

>$B$H$7$F$_$^$7$?$,!"$&$^$/$$$-$^$;$s!#$3$N%P%C%U%!$O(B

>  (setq cat-data-file-name (read-file-name
>                      "Input Catalog File Name : "))
>  (setq cat-data-buf (find-file-noselect cat-data-file-name))

>$B$H$$$&$U$&$K$7$F:n$C$?$b$N$G$9!#%W%m%0%i%`$r=*N;$9$k:]$K$3$N$h$&$K$7$F(B
>$B%;!<%V$r9T$J$*$&$H$9$k$H!"(Bminibuffer$B$K$O%;!<%V$5$l$?$h$&$J%a%C%;!<%8$,(B
>$B=P$k$N$G$9$,!"<B:]$K$O$=$N%U%!%$%k$,$J$s$H$J$/$J$C$F$7$^$C$F$$$^$9!#(B

>$B$A$J$_$K(B

>  (write-file (buffer-file-name(current-buffer)))

>$B$H$d$k$HL\E*$NF0:n$r9T$J$o$;$k$3$H$O$G$-$?$N$G$9$,!"$I$&$7$F:G=i$NJ}K!(B
>$B$G$O$&$^$/$$$+$J$$$N$G$7$g$&$+!#(B

$B$H$$$&<ALd$KBP$7$^$7$F!"(B

mail$B$GBg:eBg3X$NCfED$5$s!"72GOBg3X$N;01:$5$s!"(Bnews$B$G%=%K!<$N$($J$_$5$s(B
$B$+$i%U%)%m!<$r$$$?$@$-!"L5;v$K2r7h$G$-$^$7$?!#$I$&$b$"$j$,$H$&$4$6$$$^(B
$B$7$?!#(B

$B$^$:!"(B1$B$K$D$-$^$7$F$O%-!<$KD>@\(Blambda$B<0$r3d$jEv$F$F$7$^$&J}K!!"(B
last-command-char$B$H$$$&4X?t$r$D$+$C$F2!$5$l$?%-!<$r<hF@$9$kJ}K!$,$"$k(B
$B$=$&$G$9!#(B

2$B$K$D$-$^$7$F$O(B(save-buffer)$B$G$&$^$/$$$/$H$$$&$3$H$,$o$+$j$^$7$?!#$H$$(B
$B$&$N$OKM$,%U%!%$%k$,>C$($F$7$^$&$H;W$C$F$$$?$N$O!"(Bauto-save-file$B$,FI$_(B
$B9~$s$@%U%!%$%kL>$HF1$8$b$N$K$J$C$F$$$?$?$a$K!":G8e$N=hM}$G$=$N(B
auto-save-file$B$r>C$7$F$7$^$C$F$$$?$?$a$K!"<ALd$N$h$&$J8=>]$,$*$-$F$7$^$C(B
$B$F$$$?$h$&$G$9!#$I$&$b$*A{$,$;$$$?$7$^$7$?!#(B(_o_)

$B$^$?<ALd$5$;$F$$$?$@$/$+$bCN$l$^$;$s$,!"$I$&$>$h$m$7$/$*4j$$CW$7$^$9!#(B
--
---------------------------------------
$B@>_7(B $B3J(B JUNET:itaru@nacsis.ac.jp
NIFTY:hah02761
$BEl5~Bg3XBg3X1!9)3X7O8&5f2JEE5$9)3X@l96(B
$B3X=Q>pJs%;%s%?!<Fb(B  $B0BC#8&5f<<(B
---------------------------------------
