Emacs - 当文件被外部修改时发出通知

Question

如何让 emacs 通知我一个或多个访问的文件已从其他地方更改这一事实？以下是此功能在 Gedit 中的实现方式：

我查看了 EmacsWiki 的 "Revert Buffer" 文档中解释的方法，并且找到了一种解决方法（根据我个人的喜好进行了一些修改）：

(global-set-key (kbd "<f5>") (lambda ()
  (interactive)
  (if (string= (buffer-name) ecb-directories-buffer-name)
    (refresh-ecb)
    (if (buffer-modified-p)
      (revert-buffer) ; ask for confirmation
      (revert-buffer t t))))) ; don't ask for confirmation - it's unnecessary, since the buffer hasn't been modified

这很好，但我想要的是有一个自动解决方案。也许，缓冲区中内嵌了某种嘈杂的消息（如屏幕截图所示）。也许，甚至是在 Visual Studio 中实现的模式对话框（这很烦人，但毕竟它确实有效）。您有什么建议？

Answer 1

这就是我能想到的 - 非常感谢来自 EmacsWiki 的人提供的提示。我创建了一个每隔几秒触发一次的回调 - 它检查修改时间并在文件被修改时显示一条恼人的消息。

从好的方面来说，该解决方案大部分都有效，并通知我有关更改的信息，无论缓冲区是否被修改。不利的一面是，它涉及不断轮询当前文件的修改时间，但我的工作场景可以容忍这一点。

;(global-auto-revert-mode 1)
(defun ask-user-about-supersession-threat (fn) "blatantly ignore files that changed on disk")
(run-with-timer 0 2 'my-check-external-modifications)
(add-hook 'after-save-hook 'my-check-external-modifications)
(add-hook 'after-revert-hook 'my-check-external-modifications)

(defun my-load-external-modifications ()
  (interactive)
  (if (string= (buffer-name) ecb-directories-buffer-name)
    (refresh-ecb)
    (if (buffer-modified-p)
      (revert-buffer) ; ask for confirmation
      (revert-buffer t t)) ; don't ask for confirmation - it's unnecessary, since the buffer hasn't been modified
    (my-check-external-modifications))) 

(defun my-overwrite-external-modifications ()
  (interactive)
  (clear-visited-file-modtime)
  (set-buffer-modified-p (current-buffer))
  (save-buffer)
  (my-check-external-modifications))

(defun my-check-external-modifications ()
  (if (verify-visited-file-modtime (current-buffer))
    (progn
      (global-set-key (kbd "<f5>") 'my-load-external-modifications)
      (global-set-key (kbd "C-s") 'save-buffer)
      (setq header-line-format tabbar-header-line-format))
    (progn
      (global-set-key (kbd "<f5>") 'my-load-external-modifications)
      (global-set-key (kbd "C-s") 'my-overwrite-external-modifications)
      (setq header-line-format (format "%s. Press F5 to load external changes, C-s to overwrite them"
        (propertize "This file has been changed externally" 'face '(:foreground "#f00")))))))

Answer 2

如果您也想要脏缓冲区的警告，那么您可以建议切换到缓冲区，因此当您切换到缓冲区并且它被修改时，它会检查文件是否被修改，如果是，那么它可以像内置检查在缓冲区未修改的情况下进行。