Mercurial > emacs
comparison lisp/cedet/ede/make.el @ 107252:2da9673fc448
Fix more save-excursion warnings.
* textmodes/reftex-toc.el (reftex-toc-promote-prepare):
* emacs-lisp/elint.el (elint-add-required-env):
* cedet/semantic/db-find.el (semanticdb-find-translate-path-brutish-default):
* cedet/ede/make.el (ede-make-check-version):
* calendar/icalendar.el (icalendar--add-diary-entry):
* calc/calcalg2.el (math-tracing-integral): Use with-current-buffer instead of save-excursion.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 27 Feb 2010 20:22:44 -0500 |
| parents | 1d1d5d9bd884 |
| children | 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 107251:a383e724a57c | 107252:2da9673fc448 |
|---|---|
| 74 (let ((b (get-buffer-create "*EDE Make Version*")) | 74 (let ((b (get-buffer-create "*EDE Make Version*")) |
| 75 (cd default-directory) | 75 (cd default-directory) |
| 76 (rev nil) | 76 (rev nil) |
| 77 (ans nil) | 77 (ans nil) |
| 78 ) | 78 ) |
| 79 (save-excursion | 79 (with-current-buffer b |
| 80 ;; Setup, and execute make. | 80 ;; Setup, and execute make. |
| 81 (set-buffer b) | |
| 82 (setq default-directory cd) | 81 (setq default-directory cd) |
| 83 (erase-buffer) | 82 (erase-buffer) |
| 84 (call-process ede-make-command nil b nil | 83 (call-process ede-make-command nil b nil |
| 85 "--version") | 84 "--version") |
| 86 ;; Check the buffer for the string | 85 ;; Check the buffer for the string |