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

(server-switch-buffer): Also consider clients in the

Browse Source 
selected frame.
This commit is contained in:
Andreas Schwab 2008-04-20 08:32:11 +00:00
parent 95dbaaea80
commit a7ce6c7f5d
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-20 Andreas Schwab <schwab@suse.de>
* server.el (server-switch-buffer): Also consider clients in the
selected frame.
2008-04-19 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint): Select

6
lisp/server.el
View File

@ -1220,8 +1220,10 @@ done that."
(let ((rest server-clients))
(while (and rest (not next-buffer))
(let ((proc (car rest)))
;; Only look at frameless clients.
(when (not (process-get proc 'frame))
;; Only look at frameless clients, or those in the selected
;; frame.
(when (or (not (process-get proc 'frame))
(eq (process-get proc 'frame) (selected-frame)))
(setq next-buffer (car (process-get proc 'buffers))))
(setq rest (cdr rest)))))
(and next-buffer (server-switch-buffer next-buffer killed-one))