comparison lisp/cedet/semantic/db-find.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.

107251:a383e724a57c

Default action as described in `semanticdb-find-translate-path'."
  (let ((basedb
	 (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)))
		      semanticdb-current-database))))))
    (apply
     #'nconc
     (mapcar
      (lambda (db)

107252:2da9673fc448

Default action as described in `semanticdb-find-translate-path'."
  (let ((basedb
	 (cond ((null path) semanticdb-current-database)
	       ((semanticdb-table-p path) (oref path parent-db))
	       (t (let ((tt (semantic-something-to-tag-table path)))
		    ;; @todo - What does this DO ??!?!
		    (with-current-buffer (semantic-tag-buffer (car tt))
		      semanticdb-current-database))))))
    (apply
     #'nconc
     (mapcar
      (lambda (db)