Mercurial > emacs
comparison lisp/calc/calcalg2.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 | c62e42a9ebc4 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 107251:a383e724a57c | 107252:2da9673fc448 |
|---|---|
| 668 (defvar math-integral-limit) | 668 (defvar math-integral-limit) |
| 669 | 669 |
| 670 (defmacro math-tracing-integral (&rest parts) | 670 (defmacro math-tracing-integral (&rest parts) |
| 671 (list 'and | 671 (list 'and |
| 672 'trace-buffer | 672 'trace-buffer |
| 673 (list 'save-excursion | 673 (list 'with-current-buffer |
| 674 '(set-buffer trace-buffer) | 674 'trace-buffer |
| 675 '(goto-char (point-max)) | 675 '(goto-char (point-max)) |
| 676 (list 'and | 676 (list 'and |
| 677 '(bolp) | 677 '(bolp) |
| 678 '(insert (make-string (- math-integral-limit | 678 '(insert (make-string (- math-integral-limit |
| 679 math-integ-level) 32) | 679 math-integ-level) 32) |