;; Changing major modes should not erase this local.
(put 'server-buffer-clients 'permanent-local t)
+(defvar server-window nil
+ "*The window to use for selecting Emacs server buffers.
+If nil, use the selected window.
+If it is a frame, use the frame's selected window.")
+
(defvar server-temp-file-regexp "^/tmp/Re\\|/draft$"
"*Regexp which should match filenames of temporary files
which are deleted and reused after each edit
(defun server-switch-buffer (next-buffer)
"Switch to another buffer, preferably one that has a client.
Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
+ (cond ((windowp server-window)
+ (select-window server-window))
+ ((framep server-window)
+ (select-window (frame-selected-window server-window))))
(if next-buffer
(if (and (bufferp next-buffer)
(buffer-name next-buffer))