2008-12-22-reopen.el

;; reopen
;; http://www.bookshelf.jp/soft/meadow_24.html#SEC254
(defun reopen-file ()
  (interactive)
  (let ((file-name (buffer-file-name))
        (old-supersession-threat
         (symbol-function 'ask-user-about-supersession-threat))
        (point (point)))
    (when file-name
      (fset 'ask-user-about-supersession-threat (lambda (fn)))
      (unwind-protect
          (progn
            (erase-buffer)
            (insert-file file-name)
            (set-visited-file-modtime)
            (goto-char point))
        (fset 'ask-user-about-supersession-threat
              old-supersession-threat)))))

(define-key ctl-x-map "\C-r"  'reopen-file)

;; for VCS like GIT
;; git reset --hard ^HEADとかしたときに
(defun reopen-all-files ()
  (interactive)
  (dolist (buf (buffer-list))
    (with-current-buffer buf
      (reopen-file)
      )))