(revert-buffer): Enable menu item when the buffer is modified.
authorRoland McGrath <roland@gnu.org>
Sun, 19 Sep 1993 02:05:38 +0000 (02:05 +0000)
committerRoland McGrath <roland@gnu.org>
Sun, 19 Sep 1993 02:05:38 +0000 (02:05 +0000)
lisp/menu-bar.el

index e26c1d5..f4e4260 100644 (file)
 (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))