diff options
| author | Richard M. Stallman | 1994-01-09 22:39:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-09 22:39:21 +0000 |
| commit | a6609a3635b71986ef36b21dd88fa34228cf01d7 (patch) | |
| tree | 2826c3f6bf55cb70c9f4c7575bb83d23b038e6a5 /lisp/diff.el | |
| parent | dfe417305ef535771cee5229a929de177753dcc6 (diff) | |
| download | emacs-a6609a3635b71986ef36b21dd88fa34228cf01d7.tar.gz emacs-a6609a3635b71986ef36b21dd88fa34228cf01d7.zip | |
(diff): Select the differences buffer.
Diffstat (limited to 'lisp/diff.el')
| -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." | |||
| 216 | (compile-internal command | 216 | (compile-internal command |
| 217 | "No more differences" "Diff" | 217 | "No more differences" "Diff" |
| 218 | 'diff-parse-differences)) | 218 | 'diff-parse-differences)) |
| 219 | (save-excursion | 219 | (pop-to-buffer buf) |
| 220 | (set-buffer buf) | 220 | (set (make-local-variable 'diff-old-file) old) |
| 221 | (set (make-local-variable 'diff-old-file) old) | 221 | (set (make-local-variable 'diff-new-file) new) |
| 222 | (set (make-local-variable 'diff-new-file) new) | 222 | (set (make-local-variable 'diff-old-temp-file) old-alt) |
| 223 | (set (make-local-variable 'diff-old-temp-file) old-alt) | 223 | (set (make-local-variable 'diff-new-temp-file) new-alt) |
| 224 | (set (make-local-variable 'diff-new-temp-file) new-alt) | 224 | (set (make-local-variable 'compilation-finish-function) |
| 225 | (set (make-local-variable 'compilation-finish-function) | 225 | (function (lambda (buff msg) |
| 226 | (function (lambda (buff msg) | 226 | (if diff-old-temp-file |
| 227 | (if diff-old-temp-file | 227 | (delete-file diff-old-temp-file)) |
| 228 | (delete-file diff-old-temp-file)) | 228 | (if diff-new-temp-file |
| 229 | (if diff-new-temp-file | 229 | (delete-file diff-new-temp-file))))) |
| 230 | (delete-file diff-new-temp-file)))))) | ||
| 231 | buf)))) | 230 | buf)))) |
| 232 | 231 | ||
| 233 | ;;;###autoload | 232 | ;;;###autoload |