semantic: Add missing save-excursion for scope calculation

* lisp/cedet/semantic/scope.el (semantic-calculate-scope-for-tag):
 Also save-excursion in case the internal jump is local and moves
 point.

diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 0ac994cbd49bdd451756f940b999c38d0938d0e4..36a08d208af56ba553a783377fd6752441321173 100644 (file)
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -774,10 +774,11 @@ The class returned from the scope calculation is variable
 Return nil if TAG has no position, or we cannot otherwise find a scope.
 Use this when pulling a datatype off TAG so when it is looked up
 it has the right context around it."
-   (save-current-buffer
-     (when (semantic-tag-with-position-p tag)
-       (semantic-go-to-tag tag)
-       (semantic-calculate-scope (point)))) )
+  (save-excursion
+    (save-current-buffer
+      (when (semantic-tag-with-position-p tag)
+       (semantic-go-to-tag tag)
+       (semantic-calculate-scope (point))))))
 
 (defun semantic-scope-find (name &optional class scope-in)
   "Find the tag with NAME, and optional CLASS in the current SCOPE-IN.