Commit b8433b09 authored by Bastian Beischer's avatar Bastian Beischer Committed by Dmitry Gutov

Use pop-to-buffer-same-window instead of switch-to-buffer

* lisp/cedet/semantic/decorate/include.el
(semantic-decoration-include-visit):
Use pop-to-buffer-same-window instead of switch-to-buffer
(bug#28645).

* lisp/cedet/semantic/analyze/refs.el
(semantic-analyze-proto-impl-toggle): Same.

* lisp/cedet/semantic/senator.el (senator-go-to-up-reference):
Same.

* lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-visit):
Same.

* lisp/cedet/semantic/complete.el (semantic-complete-jump):
Same.

Copyright-paperwork-exempt: yes
parent 2f7163fb
......@@ -348,7 +348,7 @@ Only works for tags in the global namespace."
(push-mark)
(semantic-go-to-tag target)
(switch-to-buffer (current-buffer))
(pop-to-buffer-same-windown (current-buffer))
(semantic-momentary-highlight-tag target))
)
......
......@@ -2120,7 +2120,7 @@ completion works."
(when (semantic-tag-p tag)
(push-mark)
(semantic-go-to-tag tag)
(switch-to-buffer (current-buffer))
(pop-to-buffer-same-window (current-buffer))
(semantic-momentary-highlight-tag tag)
(message "%S: %s "
(semantic-tag-class tag)
......
......@@ -467,7 +467,7 @@ its contents.
(error "Could not location include %s"
(semantic-tag-name tag)))
((get-file-buffer file)
(switch-to-buffer (get-file-buffer file)))
(pop-to-buffer-same-window (get-file-buffer file)))
((stringp file)
(find-file file))
))))
......
......@@ -113,7 +113,7 @@ Uses `semantic-go-to-tag' and highlighting."
(forward-char o))
(error nil))
;; make it visible
(switch-to-buffer (current-buffer))
(pop-to-buffer-same-window (current-buffer))
(semantic-momentary-highlight-tag tag)
))
......
......@@ -530,11 +530,11 @@ Some tags such as includes have other reference features."
;; A tag
((semantic-tag-p result)
(semantic-go-to-tag result)
(switch-to-buffer (current-buffer))
(pop-to-buffer-same-window (current-buffer))
(semantic-momentary-highlight-tag result))
;; Buffers
((bufferp result)
(switch-to-buffer result)
(pop-to-buffer-same-window result)
(pulse-momentary-highlight-one-line (point)))
;; Files
((and (stringp result) (file-exists-p result))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment