;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/revert-buffer-my.el
;;;   https://dataswamp.org/~incal/emacs-init/revert-buffer-my.el

(defun revert-buffer-check ()
  (interactive)
  (revert-buffer t                         ; IGNORE-AUTO
                 (not (buffer-modified-p)) ; NOCONFIRM unless modified
                 nil))                     ; PRESERVE-MODES

(defun revert-buffer-force (&optional buffer)
  (when buffer (set-buffer buffer))
  (revert-buffer t t) ) ; IGNORE-AUTO NOCONFIRM

(provide 'revert-buffer-my)