diff options
| author | Glenn Morris | 2014-04-02 00:07:11 -0700 |
|---|---|---|
| committer | Glenn Morris | 2014-04-02 00:07:11 -0700 |
| commit | 0b908bf2ef8a755cc61425e181f8272e52bc5aaa (patch) | |
| tree | 264e25a626c91fa878a1d264d9cedf815d476f63 | |
| parent | 9c8b0aa042be6b3c5955f855d0d08ae6beaffd06 (diff) | |
| download | emacs-0b908bf2ef8a755cc61425e181f8272e52bc5aaa.tar.gz emacs-0b908bf2ef8a755cc61425e181f8272e52bc5aaa.zip | |
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.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 7 | ||||
| -rw-r--r-- | lisp/vc/ediff.el | 6 |
3 files changed, 13 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0bfc080f8ec..b1c35a78937 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2014-04-02 Glenn Morris <rgm@gnu.org> | 1 | 2014-04-02 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * menu-bar.el (menu-bar-file-menu): | ||
| 4 | * vc/ediff.el (ediff-current-file): | ||
| 5 | Update for revert-buffer-function no longer being nil by default. | ||
| 6 | |||
| 3 | * simple.el (command-execute): Respect nil disabled-command-function. | 7 | * simple.el (command-execute): Respect nil disabled-command-function. |
| 4 | 8 | ||
| 5 | 2014-04-01 Nicolas Richard <theonewiththeevillook@yahoo.fr> | 9 | 2014-04-01 Nicolas Richard <theonewiththeevillook@yahoo.fr> |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 0e12c976af0..84df6922749 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -149,8 +149,11 @@ | |||
| 149 | :help "Recover edits from a crashed session")) | 149 | :help "Recover edits from a crashed session")) |
| 150 | (bindings--define-key menu [revert-buffer] | 150 | (bindings--define-key menu [revert-buffer] |
| 151 | '(menu-item "Revert Buffer" revert-buffer | 151 | '(menu-item "Revert Buffer" revert-buffer |
| 152 | :enable (or revert-buffer-function | 152 | :enable (or (not (eq revert-buffer-function |
| 153 | revert-buffer-insert-file-contents-function | 153 | 'revert-buffer--default)) |
| 154 | (not (eq | ||
| 155 | revert-buffer-insert-file-contents-function | ||
| 156 | 'revert-buffer-insert-file-contents--default-function)) | ||
| 154 | (and buffer-file-number | 157 | (and buffer-file-number |
| 155 | (or (buffer-modified-p) | 158 | (or (buffer-modified-p) |
| 156 | (not (verify-visited-file-modtime | 159 | (not (verify-visited-file-modtime |
diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el index d8abe89d17b..927a3ba7fb6 100644 --- a/lisp/vc/ediff.el +++ b/lisp/vc/ediff.el | |||
| @@ -367,8 +367,10 @@ deleted." | |||
| 367 | This command can be used instead of `revert-buffer'. If there is | 367 | This command can be used instead of `revert-buffer'. If there is |
| 368 | nothing to revert then this command fails." | 368 | nothing to revert then this command fails." |
| 369 | (interactive) | 369 | (interactive) |
| 370 | (unless (or revert-buffer-function | 370 | ;; This duplicates code from menu-bar.el. |
| 371 | revert-buffer-insert-file-contents-function | 371 | (unless (or (not (eq revert-buffer-function 'revert-buffer--default)) |
| 372 | (not (eq revert-buffer-insert-file-contents-function | ||
| 373 | 'revert-buffer-insert-file-contents--default-function)) | ||
| 372 | (and buffer-file-number | 374 | (and buffer-file-number |
| 373 | (or (buffer-modified-p) | 375 | (or (buffer-modified-p) |
| 374 | (not (verify-visited-file-modtime | 376 | (not (verify-visited-file-modtime |