Return to Answer

Based on @Drew's answer, I've made a package revert-buffer-all.

It handles some additional cases:

• Progress reporting (since it can be slow with many files open).
• Clear undo state, so you don't accidentally enter the previous buffer state while undoing.
• Support for packages that load undo history when reloading the buffer - undo-fu-session.

Based on @Drew's answer, I've made a package revert-buffer-all.

It handles some additional cases:

• Progress reporting (since it can be slow with many files open).
• Clear undo state, so you don't accidentally enter the previous buffer state while undoing.
• Support for packages that load undo history when reloading the buffer - undo-fu-session.

Based on @Drew's answer, with additions:

• Progress reporting (since it can be slow with many files open).
• Clear undo state (with support for packages that load undo history when reloading the buffer - undo-fu-session for eg).

(defun revert-all-buffers () "Refresh all open buffers from their respective files. Buffers which no longer exist are closed. This can be useful when updating or checking out branches outside of Emacs." (interactive) (let* ((filename-and-buffer-list ;; Pairs of '(filename . buf)'. (let ((temp-list nil)) (dolist (buf (buffer-list)) (let ((filename (buffer-file-name buf))) (when filename (push (cons filename buf) temp-list)))) temp-list)) (count (length filename-and-buffer-list)) (count-final 0) (count-close 0) (count-error 0) ;; Keep text at a fixed width when redrawing. (format-count (format "%%%dd" (length (number-to-string count)))) (format-text (concat "Reverting [" format-count " of " format-count "] %3d%%: %s")) (index 1)) (message "Begin reverting %d buffers..." count) (while filename-and-buffer-list (pcase-let ((`(,filename . ,buf) (pop filename-and-buffer-list))) ;; Revert only buffers containing files, which are not modified; ;; do not try to revert non-file buffers such as '*Messages*'. (message format-text index count (round (* 100 (/ (float index) count))) filename) (if (file-exists-p filename) ;; If the file exists, revert the buffer. (if (with-demoted-errors "Error: %S" (with-current-buffer buf (let ((no-undo (eq buffer-undo-list t))) ;; Disable during revert. (unless no-undo (setq buffer-undo-list t) (setq pending-undo-list nil)) (unwind-protect (revert-buffer :ignore-auto :noconfirm) ;; Enable again (always run). (unless no-undo ;; It's possible a plugin loads undo data from disk, ;; check if this is still unset. (when (and (eq buffer-undo-list t) (null pending-undo-list)) (setq buffer-undo-list nil)))))) t) (setq count-final (1+ count-final)) (setq count-error (1+ count-error))) ;; If the file doesn't exist, kill the buffer. (let (kill-buffer-query-functions) ;; No query done when killing buffer. (message "Closing non-existing file buffer: %s" buf) (kill-buffer buf) (setq count-close (1+ count-close)))) (setq index (1+ index)))) (message (concat "Finished Revert All: " (format "%d buffer(s)" count-final) (if (zerop count-close) "" (format ", %d closed" count-close)) (if (zerop count-error) "" (format ", %d error (see message buffer)" count-error)))))) 

Based on @Drew's answer, I've made a package revert-buffer-all.

It handles some additional cases:

• Progress reporting (since it can be slow with many files open).
• Clear undo state, so you don't accidentally enter the previous buffer state while undoing.
• Support for packages that load undo history when reloading the buffer - undo-fu-session.

(defun revert-all-buffers () "Refresh all open buffers from their respective files. Buffers which no longer exist are closed. This can be useful when updating or checking out branches outside of Emacs." (interactive) (let* ((filename-and-buffer-list ;; pairs of (filename, buf) (mapcar (lambda (buf) (list (buffer-file-name buf) buf)) (seq-filter 'buffer-file-name (buffer-list)))) (count (length filename-and-buffer-list)) (count-final 0) (count-close 0) (count-error 0) ;; Keep text at a fixed width when redrawing. (format-count (format "%%%dd" (length (number-to-string count)))) (format-text (concat "Reverting [" format-count " of " format-count "] %3d%%: %s")) (index 1)) (message "Begin reverting %d buffers..." count) (while filename-and-buffer-list (pcase-let ((`(,filename ,buf) (pop filename-and-buffer-list))) ;; Revert only buffers containing files, which are not modified; ;; do not try to revert non-file buffers such as '*Messages*'. (message format-text index count (round (* 100 (/ (float index) count))) filename) (if (file-exists-p filename) ;; If the file exists, revert the buffer. (if (with-demoted-errors "Error: %S" (with-current-buffer buf (let ((no-undo (eq buffer-undo-list t))) ;; Disable during revert. (unless no-undo (setq buffer-undo-list t) (setq pending-undo-list nil)) (unwind-protect (revert-buffer :ignore-auto :noconfirm) ;; Enable again (always run). (unless no-undo ;; It's possible a plugin loads undo data from disk, ;; check if this is still unset. (when (and (eq buffer-undo-list t) (null pending-undo-list)) (setq buffer-undo-list nil)))))) t) (setq count-final (1+ count-final)) (setq count-error (1+ count-error))) ;; If the file doesn't exist, kill the buffer. (let (kill-buffer-query-functions) ; No query done when killing buffer. (message "Closing non-existing file buffer: %s" buf) (kill-buffer buf) (setq count-close (1+ count-close)))) (setq index (1+ index)))) (message (concat "Finished Revert All: " (format "%d buffer(s)" count-final) (if (zerop count-close) "" (format ", %d closed" count-close)) (if (zerop count-error) "" (format ", %d error (see message buffer)" count-error)))))) 

(defun revert-all-buffers () "Refresh all open buffers from their respective files. Buffers which no longer exist are closed. This can be useful when updating or checking out branches outside of Emacs." (interactive) (let* ((filename-and-buffer-list ;; Pairs of '(filename . buf)'. (let ((temp-list nil))   (dolist (buf (buffer-list)) (let ((filename (buffer-file-name buf)))   (when filename  (push (cons filename buf) temp-list))))  temp-list))  (count (length filename-and-buffer-list)) (count-final 0) (count-close 0) (count-error 0) ;; Keep text at a fixed width when redrawing. (format-count (format "%%%dd" (length (number-to-string count)))) (format-text (concat "Reverting [" format-count " of " format-count "] %3d%%: %s")) (index 1)) (message "Begin reverting %d buffers..." count) (while filename-and-buffer-list (pcase-let ((`(,filename . ,buf) (pop filename-and-buffer-list))) ;; Revert only buffers containing files, which are not modified; ;; do not try to revert non-file buffers such as '*Messages*'. (message format-text  index count (round (* 100 (/ (float index) count))) filename) (if (file-exists-p filename) ;; If the file exists, revert the buffer. (if (with-demoted-errors "Error: %S" (with-current-buffer buf (let ((no-undo (eq buffer-undo-list t))) ;; Disable during revert. (unless no-undo (setq buffer-undo-list t) (setq pending-undo-list nil)) (unwind-protect (revert-buffer :ignore-auto :noconfirm) ;; Enable again (always run). (unless no-undo ;; It's possible a plugin loads undo data from disk, ;; check if this is still unset. (when (and (eq buffer-undo-list t)  (null pending-undo-list)) (setq buffer-undo-list nil)))))) t) (setq count-final (1+ count-final)) (setq count-error (1+ count-error))) ;; If the file doesn't exist, kill the buffer. (let (kill-buffer-query-functions) ;; No query done when killing buffer. (message "Closing non-existing file buffer: %s" buf) (kill-buffer buf) (setq count-close (1+ count-close)))) (setq index (1+ index)))) (message (concat "Finished Revert All: " (format "%d buffer(s)" count-final) (if (zerop count-close) "" (format ", %d closed" count-close)) (if (zerop count-error) "" (format ", %d error (see message buffer)" count-error))))))