Mercurial > emacs
changeset 5542:004856d1b311
(diff): Select the differences buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 Jan 1994 22:39:21 +0000 |
| parents | b203ef787d9c |
| children | dbc1d920ef5c |
| files | lisp/diff.el |
| diffstat | 1 files changed, 11 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/diff.el Sun Jan 09 22:36:46 1994 +0000 +++ b/lisp/diff.el Sun Jan 09 22:39:21 1994 +0000 @@ -216,18 +216,17 @@ (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