emacs - 将函数应用于 emacs 中的所有缓冲区

Question

假设我想申请 delete-trailing-whitespace到 Emacs session 中的所有缓冲区。我怎样才能做到这一点？

我在这个 session 中有很多缓冲区。所以改为申请 M-x delete-trailing-whitespace手动每个缓冲区，我需要一些方法来自动制作。

非常感谢

Answer 1

这应该这样做:

(defun delete-trailing-whitespace-each-buffer ()
  (interactive)
  (mapc (lambda (buffer)
          (condition-case nil
              (with-current-buffer buffer
                (delete-trailing-whitespace))
            (buffer-read-only nil)))
        (buffer-list)))

它不会对只读缓冲区执行任何操作。