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: kill-buffer
Message-ID: <ITARU.93Sep28190401@hermes.nacsis.ac.jp>
Sender: news@lexus.nacsis.ac.jp
Nntp-Posting-Host: hermes+2
Organization: University of Tokyo, Japan.
Distribution: fj
Date: Tue, 28 Sep 1993 10:04:01 GMT
Lines: 44
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4059
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4059&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$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$4B8CN$NJ}$,$$$i$C$7$c$C$?$i$I$&$>8f65<x2<$5$$!#(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
---------------------------------------
