diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-02-27 20:22:44 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-02-27 20:22:44 -0500 |
| commit | de3a1fe9358d3d833a15dc4fb559b902cdc1168b (patch) | |
| tree | 2c9238dc843da462a720a64df7a75f5e053d9d42 /lisp/cedet | |
| parent | 8c3e96d2f0e4fee24498567c5840eb8d03d26720 (diff) | |
| download | emacs-de3a1fe9358d3d833a15dc4fb559b902cdc1168b.tar.gz | |
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.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/ede/make.el | 3 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-find.el | 5 |
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/cedet/ede/make.el b/lisp/cedet/ede/make.el index e9bc4b3b8e0..6b59f510bed 100644 --- a/lisp/cedet/ede/make.el +++ b/lisp/cedet/ede/make.el @@ -76,9 +76,8 @@ If NOERROR is nil, then throw an error on failure. Return t otherwise." (rev nil) (ans nil) ) - (save-excursion + (with-current-buffer b ;; Setup, and execute make. - (set-buffer b) (setq default-directory cd) (erase-buffer) (call-process ede-make-command nil b nil diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index eba04a7ee02..754ba231c37 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el @@ -326,9 +326,8 @@ Default action as described in `semanticdb-find-translate-path'." (cond ((null path) semanticdb-current-database) ((semanticdb-table-p path) (oref path parent-db)) (t (let ((tt (semantic-something-to-tag-table path))) - (save-excursion - ;; @todo - What does this DO ??!?! - (set-buffer (semantic-tag-buffer (car tt))) + ;; @todo - What does this DO ??!?! + (with-current-buffer (semantic-tag-buffer (car tt)) semanticdb-current-database)))))) (apply #'nconc |