;;; drop-file-and-its-buffers.el
;;;
;;; Copyright (C) 2007, 2008 Thien-Thi Nguyen
;;;
;;; This file is part of ttn's personal elisp library, released under
;;; the terms of the GNU General Public License as published by the
;;; Free Software Foundation; either version 3, or (at your option) any
;;; later version.  There is NO WARRANTY.  See file COPYING for details.
;;;
;;; Description: Call delete-file and kill-buffer together.

;;;###autoload
(defun drop-file-and-its-buffers (filename)
  "Delete FILENAME and kill any buffers visiting it."
  (interactive "fDrop file (and buffers on it): ")
  (delete-file filename)
  (let (buf)
    (while (setq buf (find-buffer-visiting filename))
      (kill-buffer buf))))

(provide 'drop-file-and-its-buffers)

;;; drop-file-and-its-buffers.el ends here