[xyzzy:01875] Re: 読者？参加企画？

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

        Wed, 10 Feb 1999 09:19:15 +0900 の
        [xyzzy:01863] 読者？参加企画？
        に関するメールにお答えします。

> そういえば、ちょっと前に赤塚さんが、読者？参加企画？を考えられて
> いましたが、ちょっと参加するには、敷居が高かったですかね（笑)

こういうのどうですか？

(defun my-kill-buffer ()
  (interactive)
  (let ((buffer (selected-buffer)))
	(and (need-buffer-save-p buffer)
		 (not (no-or-yes-p "~sは変更されています。変更内容を破棄しますか?" buffer))
		 (return-from my-kill-buffer nil))
	(delete-buffer buffer)))

問答無用に葬ってくれます。