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: kill-buffer
In-Reply-To: itaru@nacsis.ac.jp's message of Tue, 28 Sep 1993 10:04:01 GMT
Message-ID: <ITARU.93Sep30191637@hermes.nacsis.ac.jp>
Sender: news@lexus.nacsis.ac.jp
Nntp-Posting-Host: hermes+2
Organization: University of Tokyo, Japan.
References: <ITARU.93Sep28190401@hermes.nacsis.ac.jp>
Distribution: fj
Date: Thu, 30 Sep 1993 10:16:37 GMT
Lines: 64
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4074
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4074&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!#;d$N(B

In article <ITARU.93Sep28190401@hermes.nacsis.ac.jp>,
 itaru@nacsis.ac.jp (NISHIZAWA Itaru) writes:
>Nntp-Posting-Host: hermes+2

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

>emacs lisp$B$K$D$$$F<ALd$,$"$j$^$9!#(B
>$B%W%m%0%i%`$N=*N;=hM}$r9T$J$*$&$H;W$$!":G8e$K$=$N%W%m%0%i%`$G;H$C$?%P%C(B
>$B%U%!$r%-%k$7$h$&$H$7$F0J2<$N$h$&$K%W%m%0%i%_%s%0$7$^$7$?!#(B

>;;$B=*N;%k!<%A%s(B
>(defun cat-quit()
>  "CAT$B$N=*N;(B"
>  (interactive)
>  (if (buffer-modified-p)
>      (if (y-or-n-p (format "Buffer %s is modified. Do you save it?"
>(buffer-name cat-data-buf)))
>  (progn
>    (save-buffer)
>    (setq delete-auto-save-files t)  ;$B%*!<%H%;!<%V%U%!%$%k$N>C5n(B
>    (delete-auto-save-file-if-necessary)
>    (kill-buffer cat-data-buf)
>    (kill-buffer cat-interaction-buf)
>    (use-local-map lisp-interaction-mode-map)
>    (set-window-configuration cat-saved-configuration)
>    (delete-other-windows))
>          (progn
>    (kill-buffer cat-data-buf) ; $B"+(B $B$3$3$NJV;v$K$h$C$F=hM}$rJ,(B
>       ; $B$1$?$$(B
>...........


>$B4JC1$K@bL@$7$^$9$H!"%P%C%U%!$H$7$F$O(Bcat-data-buf, cat-interaction-buf
>$B$,%*!<%W%s$5$l$F$$$F!"(Bcat-data-buf$B$O(Bmodify$B$5$l$F$$$^$9!#$$$^!":G=i$N(B
>y-or-n-p$B$G(Bn$B$H$7$?$H$7$^$9!#$3$N$H$-"+$N9T$G!"$b$&0lEY3NG'$N%W%m%s%W%H(B
>$B$,$G$^$9!#$3$N;~$NJV;v$K$h$C$F=hM}$rJ,$1$?$$$N$G$9$,!"$I$&$b$&$^$/$$$-(B
>$B$^$;$s!#%^%K%e%"%k$K$O(Bkill-buffer$B$O(Bnil$B$rJV$9$H=q$$$F$*$j!"<B:]$K$=$N$h(B
>$B$&$G$9!#$3$N$h$&$J>l9g$O$=$NJV$jCM$O$I$N$h$&$K<hF@$9$l$P$h$$$N$G$7$g$&(B
>$B$+!#$=$l$H$b(Bkill-buffer$B$r;H$&$N$,$$$1$J$$$N$G$7$g$&$+!#(B

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

$B$3$N>l9g$O(B(kill-buffer)$B$NJV$jCM$rD4$Y$k$N$G$O$J$/!"<B:]$K$=$N%P%C%U%!(B
$B$,$J$/$J$C$F$$$k$+$I$&$+$rD4$Y$l$P$h$$$=$&$G(B($BNI$/9M$($l$PEvA3$G$9$M(B)$B!"(B
$B$=$N$?$a$K$O(B

(buffer-name buffer)
(member buffer (buffer-list))

$B$J$I$N4X?t$rMxMQ$7$F$=$NJV$jCM$rD4$Y$l$PNI$$$=$&$G$9!#KM$O(B
(buffer-name)$B$r;H$&$3$H$K$h$C$FK>$_$NF0:n$r<B8=$G$-$^$7$?!#(B\o/

$B$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(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
---------------------------------------
