better revert buffer

.emacs.el

@@ -356,6 +356,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling
 
+(setq revert-without-query ".+")
+
 ;; カーソルの場所を保存する
 (when (require 'saveplace nil t)
   (setq-default save-place t))
@@ -1702,23 +1704,21 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 
 (defvar my-auto-save-this-buffer nil "auto save timer object")
 
-(defun my-auto-save-this-buffer (secs &optional silent-p)
+(defun my-auto-save-this-buffer (sec &optional silent-p)
   "auto save current buffer if idle for SEC.
 when SEC is nil, stop auto save if enabled."
-  (if secs
+  (if sec
       (progn (when my-auto-save-this-buffer
                (cancel-timer my-auto-save-this-buffer)
                (setq my-auto-save-this-buffer nil))
-             (setq my-auto-save-this-buffer (run-with-idle-timer secs t 'my-save-this-buffer silent-p)))
+             (setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
     (when my-auto-save-this-buffer
       (cancel-timer my-auto-save-this-buffer)
       (setq my-auto-save-this-buffer nil))))
 
 (my-auto-save-this-buffer 2 t)
 
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; misc funcs
 
 (defvar my-desktop-terminal "roxterm")
@@ -1879,17 +1879,19 @@ this is test, does not rename files"
 ;;     (while (re-search-forward "[ \t]+$" nil t)
 ;;       (replace-match "" nil nil))))
 
+(defvar my-revert-buffer-if-needed-last-buffer nil)
+
 (defun my-revert-buffer-if-needed ()
   ""
   (interactive)
-  (unless (verify-visited-file-modtime (current-buffer))
-    (revert-buffer t t)))
+  (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))
+    (setq my-revert-buffer-if-needed-last-buffer (current-buffer))
+    (when (or (not (verify-visited-file-modtime (current-buffer)))
+              buffer-read-only)
+      (revert-buffer t t))))
 
 (add-hook 'window-configuration-change-hook
-          (lambda ()
-            (run-with-timer 0.5
-                            nil
-                            'my-revert-buffer-if-needed)))
+          'my-revert-buffer-if-needed)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize