my-revert-all-file-buffers

Emacsで全バッファを読み直すコマンドmy-revert-all-file-buffers.

バージョン管理システムを使っていて、エディタの外部からファイルを更新したときに、いちいち全バッファを読み直すのは面倒。探したけどすぐには見つからなかったので書いてみた。

ファイルに関連付けられたバッファだけが対象。 C-uで前置引数を付けると問い合わせなしに実行する。

シェルで

$ svn update
$ git-checkuot foobranch

とかした後にEmacsで

C-u M-x my-revert-all-file-buffers

とするのが典型的な使い方。

一応xyzzyでも動く。そもそもxyzzyは（Windows FSのおかげで）ファイルが更新されたことを自動で認識するらしいので不要だけど。

（あと、xyzzyの場合はバッファが変更されているとmessage-boxで問い合わせてくるのであまり便利ではない。xyzzyのrevert-bufferは問い合わせをしないオプションがないのかな。問い合わせを出しているのは、buffer.lの revert-buffer-normalで使われているread-fileあたりらしい。）

;; uncomment these on xyzzy
;; (defun emacs-version ()
;;   (concat (software-type) " " (software-version)))
;; (defun buffer-file-name (&optional buf)
;;   (get-buffer-file-name (or buf (selected-buffer))))

;; my-revert-all-file-buffers
(defun my-revert-all-file-buffers (P)
  "Revert all visited buffers.
With prefix argument, it will not ask for confirmation."
  (interactive "P")
  (if (or P (y-or-n-p "Revert all file buffers?"))
      (dolist (buf (buffer-list))
        (if (not (buffer-file-name buf))
            (message (concat (buffer-name buf) " skipped."))
          (save-excursion
            (set-buffer buf)
            (cond ((string-match "Emacs" (emacs-version))
                   (revert-buffer t t))
                  ((string-match "xyzzy" (emacs-version))
                   (revert-buffer))
                  (else (error (emacs-version))))
            (message (concat (buffer-name buf) " reverted.")))))
    (message "Aborted."))

Other Articles