;;; revert-some-buffers.el
;;;
;;; Copyright (C) 1997, 1998, 2000, 2004, 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: For each file-related buffer, do `revert-buffer'.

;;;###autoload
(defun revert-some-buffers ()
  "Revert each file-related buffer."
  (interactive)
  (save-some-buffers)
  (save-excursion
    (mapc
     (lambda (buf)
       (when (buffer-file-name buf)
         (set-buffer buf)
         (revert-buffer nil t t)))
     (buffer-list))))

(provide 'revert-some-buffers)

;;; revert-some-buffers.el ends here