diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-09 22:39:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-09 22:39:21 +0000 |
| commit | a6609a3635b71986ef36b21dd88fa34228cf01d7 (patch) | |
| tree | 2826c3f6bf55cb70c9f4c7575bb83d23b038e6a5 /lisp | |
| parent | dfe417305ef535771cee5229a929de177753dcc6 (diff) | |
| download | emacs-a6609a3635b71986ef36b21dd88fa34228cf01d7.tar.gz | |
(diff): Select the differences buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/diff.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/lisp/diff.el b/lisp/diff.el index 6d0a08627cd..3f35c1167b2 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -216,18 +216,17 @@ With prefix arg, prompt for diff switches." (compile-internal command "No more differences" "Diff" 'diff-parse-differences)) - (save-excursion - (set-buffer buf) - (set (make-local-variable 'diff-old-file) old) - (set (make-local-variable 'diff-new-file) new) - (set (make-local-variable 'diff-old-temp-file) old-alt) - (set (make-local-variable 'diff-new-temp-file) new-alt) - (set (make-local-variable 'compilation-finish-function) - (function (lambda (buff msg) - (if diff-old-temp-file - (delete-file diff-old-temp-file)) - (if diff-new-temp-file - (delete-file diff-new-temp-file)))))) + (pop-to-buffer buf) + (set (make-local-variable 'diff-old-file) old) + (set (make-local-variable 'diff-new-file) new) + (set (make-local-variable 'diff-old-temp-file) old-alt) + (set (make-local-variable 'diff-new-temp-file) new-alt) + (set (make-local-variable 'compilation-finish-function) + (function (lambda (buff msg) + (if diff-old-temp-file + (delete-file diff-old-temp-file)) + (if diff-new-temp-file + (delete-file diff-new-temp-file))))) buf)))) ;;;###autoload |