[xyzzy:03872] Re: C-x C-c のデフォルト

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

冨山さん、こんにちは。

    Wed, 19 Jan 2000 14:52:40 +0900 の
   “[xyzzy:03871] C-x C-c のデフォルト”
    への返事です.

| これを、以下のような動作にカスタマイズできるでしょうか？

こんな感じ? あまりテストしていないのでちゃんと動くかど
うかは知りませんが。

(defun query-kill-xyzzy ()
  (handler-case
      (save-excursion
	(dolist (buffer (buffer-list))
	  (when (need-buffer-save-p buffer)
	    (set-buffer buffer)
	    (refresh-screen)
	    (cond ((yes-no-or-cancel-p "~a~%は変更されちょります。保存しますか?"
				       (if (file-visited-p) (get-buffer-file-name) buffer))
		   (call-interactively (if (file-visited-p) 'save-buffer 'write-file)))
		  ((no-or-yes-p "ほんまにええのん?")
		   (not-modified))
		  (t
		   (quit)))))
	t)
    (quit () nil)
    (error () nil))) 

(add-hook '*query-kill-xyzzy-hook* 'query-kill-xyzzy)

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx