diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-09-22 15:01:41 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-09-22 15:01:41 +0000 |
| commit | 16abdbe639415ee4f5bab402193efedb83e1352e (patch) | |
| tree | 857fa6f098b93f8fceca0f7a22c5147317ec01c2 /lisp/files.el | |
| parent | 1d8f4cb627aecfcb07a4ff8fcb4c8b83e3aeaf4b (diff) | |
| download | emacs-16abdbe639415ee4f5bab402193efedb83e1352e.tar.gz | |
* files.el (save-some-buffers-action-alist): Display diff in
view-mode.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 13fdf0d020b..5af68f6014e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3729,7 +3729,13 @@ This requires the external program `diff' to be in your `exec-path'." ;; Return nil to ask about BUF again. nil) "view this file") - (?d diff-buffer-with-file + (?d (lambda (buf) + (save-window-excursion + (diff-buffer-with-file buf)) + (view-buffer (get-buffer-create "*Diff*") + (lambda (ignore) (exit-recursive-edit))) + (recursive-edit) + nil) "view changes in file")) "ACTION-ALIST argument used in call to `map-y-or-n-p'.") |