blob: 11363645648ee705b85f93441c22cfe28054719a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;; Time-stamp: <2024-07-13 15h01 CEST (471b3659)>
(defun revert-all-file-buffers ()
"Refresh all open file buffers without confirmation"
(interactive)
(dolist (buf (buffer-list))
(let ((filename (buffer-file-name buf)))
(when (and filename (not (buffer-modified-p buf)))
(if (file-readable-p filename)
(with-current-buffer buf (revert-buffer :ignore-auto :noconfirm :preserve-modes))
(let (kill-buffer-query-functions)
(kill-buffer buf)
(message "Killed non-existing/unreadable file bufffer: %s" filename))))))
(message "Finished reverting buffers containing unmodified files."))
(require 'project)
|
