Emacs - ファイルが外部で変更されたときに通知する

Question

1つまたは複数の訪問済みファイルが他の場所から変更されたという事実を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のヒントのおかげで大変感謝しています。私は数秒ごとに起動されるコールバックを作成しました。ファイルが変更されていると、modtimeをチェックし、迷惑なメッセージを表示します。

解決策のほとんどは、バッファが変更されているかどうかにかかわらず、ほとんどの場合ソリューションが変更を通知してくれます。欠点としては、modtimeの現在のファイルを常にポーリングすることですが、私の仕事のシナリオはそれを許容することができます。

;(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

汚れたバッファについても警告を表示したい場合は、switch-to-bufferにアドバイスすることができます。そのため、バッファに切り替えて変更したときにファイルが変更されているかどうかを確認し、変更されていないバッファの場合は組み込みのチェックと同じように元に戻します。