# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762729188 0
# Node ID 472277144da679da1bdef844ec7f418360fbd838
# Parent  dd271c6b4e562c2853a3d3bf309179a66654ff16
(server-switch-buffer): Don't select a minibuffer.

diff -r dd271c6b4e56 -r 472277144da6 lisp/server.el
--- a/lisp/server.el	Thu Mar 03 21:01:37 1994 +0000
+++ b/lisp/server.el	Thu Mar 03 21:13:08 1994 +0000
@@ -326,6 +326,8 @@
 	 (select-window server-window))
 	((framep server-window)
 	 (select-window (frame-selected-window server-window))))
+  (if (window-minibuffer-p (selected-window))
+      (select-window (next-window nil 'nomini t)))
   (if next-buffer
       (if (and (bufferp next-buffer)
 	       (buffer-name next-buffer))