mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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
This commit is contained in:
Bastian Beischer 2017-10-19 02:44:46 +03:00 committed by Dmitry Gutov
parent 2f7163fb72
commit b8433b0954
5 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/cedet/semantic/analyze/refs.el
View File

@ -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))
)

2
lisp/cedet/semantic/complete.el
View File

@ -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)

2
lisp/cedet/semantic/decorate/include.el
View File

@ -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))
))))

2
lisp/cedet/semantic/mru-bookmark.el
View 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)
))

4
lisp/cedet/semantic/senator.el
View File

@ -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))