From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 28 Aug 2008 20:35:42 +0000 (+0000)
Subject: * net/xesam.el (xesam-kill-buffer-function): Wrap code by
X-Git-Tag: emacs-pretest-23.0.90~3197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30fe660ede807cdc6ff78241f86dc6d66f8e551d;p=emacs.git

* net/xesam.el (xesam-kill-buffer-function): Wrap code by
`ignore-errors' (the function must succeed always).
---

diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index a877dbf4940..3883d8553c3 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -779,9 +779,10 @@ Return propertized STRING."
 (defun xesam-kill-buffer-function ()
   "Send the CloseSearch indication."
   (when (and (eq major-mode 'xesam-mode) (stringp xesam-search))
-    (xesam-dbus-call-method
-     :session (car xesam-engine) xesam-path-search
-     xesam-interface-search "CloseSearch" xesam-search)))
+    (ignore-errors ;; The D-Bus service could have disappeared.
+      (xesam-dbus-call-method
+       :session (car xesam-engine) xesam-path-search
+       xesam-interface-search "CloseSearch" xesam-search))))
 
 (defun xesam-new-search (engine type query)
   "Create a new search session.