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 (Itaru NISHIZAWA)
Subject: define key
Message-ID: <ITARU.93Sep27184145@hermes.nacsis.ac.jp>
Sender: news@lexus.nacsis.ac.jp
Nntp-Posting-Host: hermes+2
Organization: University of Tokyo, Japan.
Distribution: fj
Date: Mon, 27 Sep 1993 09:41:45 GMT
Lines: 46
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4053
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4053&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

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

$B0J>e!"$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
---------------------------------------
