# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 748404338 0
# Node ID cafb372921c3e18c691eac3b831d956d67ca30aa
# Parent  c0ea0009268a0f16d4be0fcc770cdfbaed246774
(revert-buffer): Enable menu item when the buffer is modified.

diff -r c0ea0009268a -r cafb372921c3 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Sun Sep 19 01:54:48 1993 +0000
+++ b/lisp/menu-bar.el	Sun Sep 19 02:05:38 1993 +0000
@@ -109,7 +109,8 @@
 (put 'revert-buffer 'menu-enable
      '(or revert-buffer-function revert-buffer-insert-file-contents-function
 	  (and (buffer-file-name)
-	       (not (verify-visited-file-modtime (current-buffer))))))
+	       (or (buffer-modified-p)
+		   (not (verify-visited-file-modtime (current-buffer)))))))
 ;; Permit deleting frame if it would leave a visible or iconified frame.
 (put 'delete-frame 'menu-enable
      '(let ((frames (frame-list))