On 3/11/07, Juanma Barranquero <[EMAIL PROTECTED]> wrote:

The patch below seems to work

This is a slightly better variant of the previous patch.

Comments?

            Juanma


Index: lisp/server.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/server.el,v
retrieving revision 1.126
diff -u -2 -r1.126 server.el
--- lisp/server.el      27 Jan 2007 19:03:43 -0000      1.126
+++ lisp/server.el      11 Mar 2007 23:28:07 -0000
@@ -415,4 +415,14 @@
                            (lambda () (server-process-filter proc ""))))
    (top-level))
+  (condition-case nil
+      ;; If we're running isearch, we must abort it to allow Emacs to
+      ;; display the buffer and switch to it.
+      (mapc #'(lambda (buffer)
+               (with-current-buffer buffer
+                 (when (bound-and-true-p isearch-mode)
+                   (isearch-cancel))))
+           (buffer-list))
+    ;; Signaled by isearch-cancel
+    (quit (message nil)))
  ;; If the input is multiple lines,
  ;; process each line individually.


_______________________________________________
emacs-pretest-bug mailing list
emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug

Reply via email to