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) 

当心！即使缓冲区为真的被修改，它也会清除该标志。