[xyzzy:07073] Re: バッファが変更されての終了時のダイアログの質問を Windows らしくしたい

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

Narushima Hironori さん、こんにちは。

	2001年6月9日(土)[16:28:47]の、
	[xyzzy:07071] バッファが変更されての終了時のダイアログの質問を Windows らしくしたい
	への返事です。

| xyzzy だけ逆の返答をしなければならないので、ちょっと気を使い
| ます。これをどうにかしたいんですけども、何かいいアイデアはあ
| るでしょうか。

こんな感じで。

(defun query-kill-xyzzy ()
  (handler-case
      (save-excursion
	(dolist (buffer (buffer-list) t)
	  (when (need-buffer-save-p buffer)
	    (set-buffer buffer)
	    (refresh-screen)
	    (when (yes-no-or-cancel-p "~a~%をセーブする?"
				      (if (file-visited-p) (get-buffer-file-name) buffer))
	      (or (call-interactively (if (file-visited-p) 'save-buffer 'emacs-write-file))
		  (return nil))))))
    (quit () nil)
    (error () nil)))

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

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