Prevent point movement caused by 'location in company-etags.

diff --git a/company-etags.el b/company-etags.el
index 51628effaac217505a5707342c2553f371776106..75b07a065c5274b433acfa1bf979f562650fb112 100644 (file)
--- a/company-etags.el
+++ b/company-etags.el
@@ -67,8 +67,9 @@ buffer automatically."
                         (all-completions arg (tags-completion-table)))))
     ('location (let ((tags-table-list (company-etags-buffer-table)))
                  (when (fboundp 'find-tag-noselect)
-                   (let ((buffer (find-tag-noselect arg)))
-                     (cons buffer (with-current-buffer buffer (point)))))))
+                   (save-excursion
+                     (let ((buffer (find-tag-noselect arg)))
+                       (cons buffer (with-current-buffer buffer (point))))))))
     ('sorted t)))
 
 (provide 'company-etags)