(server-switch-buffer): Only switch window if the current one is dedicated.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7856e1a4ebe4b0ca74b647855541922af2f7333d..59c088f5163195209e5900c07bc753d3f32c73cc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-22  Stefan Monnier  <monnier@cs.yale.edu>
 
+       * server.el (server-switch-buffer): Only switch window if the
+       current one is dedicated.
+
        * textmodes/fill.el (fill-region-as-paragraph): Skip spaces backward
        rather than using (match-beginning 0) when searching for break point.
 

diff --git a/lisp/server.el b/lisp/server.el
index 1e7d51692cb9c83cb3fceee8da1d261d7161cc93..54e452f65262bc8829e8b31f6947b7ef75f0ce53 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -507,8 +507,9 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
   (if (window-minibuffer-p (selected-window))
       (select-window (next-window nil 'nomini 0)))
   ;; Move to a non-dedicated window, if we have one.
-  (select-window (some-window (lambda (w) (not (window-dedicated-p w)))
-                             'nomini 'visible (selected-window)))
+  (when (window-dedicated-p (selected-window))
+    (select-window (some-window (lambda (w) (not (window-dedicated-p w)))
+                               'nomini 'visible (selected-window))))
   (set-window-dedicated-p (selected-window) nil)
   (if next-buffer
       (if (and (bufferp next-buffer)