Commit 0b908bf2 authored by Glenn Morris's avatar Glenn Morris

Small codes update for revert-buffer-function no longer being nil by default

* lisp/menu-bar.el (menu-bar-file-menu):
* lisp/vc/ediff.el (ediff-current-file):
Update for revert-buffer-function no longer being nil by default.
parent 9c8b0aa0
2014-04-02 Glenn Morris <rgm@gnu.org>
* menu-bar.el (menu-bar-file-menu):
* vc/ediff.el (ediff-current-file):
Update for revert-buffer-function no longer being nil by default.
* simple.el (command-execute): Respect nil disabled-command-function.
2014-04-01 Nicolas Richard <theonewiththeevillook@yahoo.fr>
......
......@@ -149,8 +149,11 @@
:help "Recover edits from a crashed session"))
(bindings--define-key menu [revert-buffer]
'(menu-item "Revert Buffer" revert-buffer
:enable (or revert-buffer-function
:enable (or (not (eq revert-buffer-function
'revert-buffer--default))
(not (eq
revert-buffer-insert-file-contents-function
'revert-buffer-insert-file-contents--default-function))
(and buffer-file-number
(or (buffer-modified-p)
(not (verify-visited-file-modtime
......
......@@ -367,8 +367,10 @@ deleted."
This command can be used instead of `revert-buffer'. If there is
nothing to revert then this command fails."
(interactive)
(unless (or revert-buffer-function
revert-buffer-insert-file-contents-function
;; This duplicates code from menu-bar.el.
(unless (or (not (eq revert-buffer-function 'revert-buffer--default))
(not (eq revert-buffer-insert-file-contents-function
'revert-buffer-insert-file-contents--default-function))
(and buffer-file-number
(or (buffer-modified-p)
(not (verify-visited-file-modtime
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment