changeset 97802:48c669cb45f9

* net/xesam.el (xesam-kill-buffer-function): Wrap code by `ignore-errors' (the function must succeed always).
author Michael Albinus <michael.albinus@gmx.de>
date Thu, 28 Aug 2008 20:35:42 +0000
parents dafd1efe2d45
children b1816d90f0a4
files lisp/net/xesam.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/xesam.el	Thu Aug 28 20:32:11 2008 +0000
+++ b/lisp/net/xesam.el	Thu Aug 28 20:35:42 2008 +0000
@@ -779,9 +779,10 @@
 (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.