Why not do this as with `isearch-allow-scroll' t? I don't know
server.el, maybe something flashy like ...
(cond
((minibufferp))
((buffer-local-value 'isearch-mode (current-buffer))
(let ((isearch-point (point))
(new-window (split-window)))
;; ... do the server-switch-buffer stuff in the new window and
;; return to the old ...
(isearch-adjust-after-window-configuration-change isearch-point)
(t ...
(defun isearch-adjust-after-window-configuration-change (isearch-point)
(let ((ab-bel (isearch-string-out-of-window isearch-point)))
(if ab-bel
(isearch-back-into-window (eq ab-bel 'above) isearch-point)
(goto-char isearch-point)))
(isearch-update))
... and when the window is too small print a message.
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
