diff options
Diffstat (limited to 'lisp/ediff-diff.el')
| -rw-r--r-- | lisp/ediff-diff.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index 75379f3da7..7159657a81 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el @@ -1225,8 +1225,7 @@ delimiter regions")) (unwind-protect (let ((directory default-directory) proc) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer (erase-buffer) (setq default-directory directory) (if (or (memq system-type '(emx ms-dos windows-nt windows-95)) @@ -1283,8 +1282,7 @@ delimiter regions")) (if (and (memq (process-status process) '(exit signal)) (buffer-name (process-buffer process))) (progn - (save-excursion - (set-buffer (process-buffer process)) + (with-current-buffer (process-buffer process) (setq mode-line-process nil)) (delete-process process)))) @@ -1354,8 +1352,7 @@ arguments to `skip-chars-forward'." ediff-forward-word-function) ediff-forward-word-function)) inbuf-syntax-tbl sv-point diff-string) - (save-excursion - (set-buffer in-buffer) + (with-current-buffer in-buffer (setq inbuf-syntax-tbl (if control-buf (ediff-with-current-buffer control-buf |