procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(pop-to-buffer): If the window for buffer-or-name is

Browse source 
not on the selected frame, raise that window's frame and give it
input focus.  (Bug#745)
This commit is contained in:
Martin Rudalics 2008-09-11 06:39:30 +00:00
parent 6f3122a737
commit a4f41c95a9
2 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-09-11 Martin Rudalics <rudalics@gmx.at>
* window.el (pop-to-buffer): If the window for buffer-or-name is
not on the selected frame, raise that window's frame and give it
input focus. (Bug#745)
2008-09-11 Glenn Morris <rgm@gnu.org>
* ido.el (ido-mode): Initialize with custom-initialize-default.

19
lisp/window.el
View file

@ -1029,6 +1029,9 @@ insist on finding another window even if the specified buffer is
already visible in the selected window, and ignore
`same-window-regexps' and `same-window-buffer-names'.
If the window to show BUFFER-OR-NAME is not on the selected
frame, raise that window's frame and give it input focus.
This function returns the buffer it switched to. This uses the
function `display-buffer' as a subroutine; see the documentation
of `display-buffer' for additional customization information.
@ -1043,9 +1046,21 @@ at the front of the list of recently selected ones."
(or (get-buffer buffer-or-name)
(let ((buf (get-buffer-create buffer-or-name)))
(set-buffer-major-mode buf)
buf)))))
buf))))
(old-window (selected-window))
(old-frame (selected-frame))
new-window new-frame)
(set-buffer buffer)
(select-window (display-buffer buffer other-window) norecord)
(setq new-window (display-buffer buffer other-window) norecord)
(unless (eq new-window old-window)
;; `display-buffer' has chosen another window.
(setq new-frame (window-frame new-window))
(unless (eq new-frame old-frame)
;; `display-buffer' has chosen another frame, make sure it gets
;; input focus and is risen.
(select-frame-set-input-focus new-frame))
;; Make sure the window chosen by `display-buffer' gets selected.
(select-window new-window))
buffer))
;; I think this should be the default; I think people will prefer it--rms.