diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-04-20 08:32:11 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-04-20 08:32:11 +0000 |
| commit | a7ce6c7f5d954f3bcfa72eb45ef523c9a4823f67 (patch) | |
| tree | 5b96bd5ce191e0fd9e5b738582b8877048b2eb00 /lisp/server.el | |
| parent | 95dbaaea805198e1e69cd55ae958e960226fb10b (diff) | |
| download | emacs-a7ce6c7f5d954f3bcfa72eb45ef523c9a4823f67.tar.gz | |
(server-switch-buffer): Also consider clients in the
selected frame.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/server.el b/lisp/server.el index c88143f7ca1..90adaace156 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -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)) |