From de3a1fe9358d3d833a15dc4fb559b902cdc1168b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 27 Feb 2010 20:22:44 -0500 Subject: 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. --- lisp/calendar/icalendar.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/calendar') diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 535956be14..a07402aa03 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -2246,8 +2246,7 @@ the entry." 'make-diary-entry) string non-marking diary-file))) ;; Würgaround to remove the trailing blank char - (save-excursion - (set-buffer (find-file diary-file)) + (with-current-buffer (find-file diary-file) (goto-char (point-max)) (if (= (char-before) ? ) (delete-char -1))) -- cgit v1.2.3