emacs - EMACS バッファーがファイルと等しいときにバッファー変更フラグをリセットする方法

Question

バッファがファイルと等しいが変更済みとしてマークされている場合に、バッファ変更フラグをリセットする方法はありますか? この場合、emacs に保存を求められないようにしたいと思います。

Answer 1

diffインストール済みであれば、次のようになります。

(defun my-update-modified-flag ()
  "Update the buffer modified flag."
  (interactive)
  (let* ((buffer (current-buffer))
         (basefile
          (or (buffer-file-name buffer)
              (error "Buffer %s has no associated file" buffer)))
         (tempfile (make-temp-file "buffer-content-")))
    (with-current-buffer buffer
      (save-restriction
        (widen)
        (write-region (point-min) (point-max) tempfile nil 'silent)))
    (if (= (call-process "diff" nil nil nil basefile tempfile) 0)
        (progn
          (set-buffer-modified-p nil)
          (message "Buffer matches file"))
      (message "Buffer doesn't match file"))
    (delete-file tempfile)))

Answer 2

次の式を使用できます。

(set-buffer-modified-p nil)

注意してください！バッファが実際に変更された場合でもフラグをクリアします。