diff options
| author | Bastian Beischer <bastian.beischer@gmail.com> | 2019-06-25 15:12:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-25 15:12:04 +0200 |
| commit | e195bbd95a35a5aeaf3689ff9e9293d350bb4056 (patch) | |
| tree | 1b89d4a34df558aa58dd1b9dbb313a0e72569989 /lisp/cedet/semantic/complete.el | |
| parent | 72963b4e82eef5767e3172f28bd9bd97f487c98a (diff) | |
| download | emacs-e195bbd95a35a5aeaf3689ff9e9293d350bb4056.tar.gz | |
Use xref in cedet
* lisp/cedet/semantic/complete.el (semantic-complete-jump-local)
* lisp/cedet/semantic/analyze/refs.el
(semantic-analyze-proto-impl-toggle): Use xref to handle jumping
(bug#23793).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/cedet/semantic/complete.el')
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index bf86c3f9a37..e95f08eb91e 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -2100,6 +2100,8 @@ completion works." (let ((tag (semantic-complete-read-tag-buffer-deep "Jump to symbol: "))) (when (semantic-tag-p tag) (push-mark) + (when (fboundp 'xref-push-marker-stack) + (xref-push-marker-stack)) (goto-char (semantic-tag-start tag)) (semantic-momentary-highlight-tag tag) (message "%S: %s " @@ -2114,6 +2116,8 @@ completion works." (let* ((tag (semantic-complete-read-tag-project "Jump to symbol: "))) (when (semantic-tag-p tag) (push-mark) + (when (fboundp 'xref-push-marker-stack) + (xref-push-marker-stack)) (semantic-go-to-tag tag) (pop-to-buffer-same-window (current-buffer)) (semantic-momentary-highlight-tag tag) @@ -2133,6 +2137,8 @@ completion works." (unless start (error "Tag %s has no location" (semantic-format-tag-prototype tag))) (push-mark) + (when (fboundp 'xref-push-marker-stack) + (xref-push-marker-stack)) (goto-char start) (semantic-momentary-highlight-tag tag) (message "%S: %s " |