[elpa] externals/bluetooth 28e9eb2 21/57: wraps @body in progn in bluetooth--maybe-cancel-reject

[Stefan Monnier]

branch: externals/bluetooth
commit 28e9eb20bb4d79e95187530bbe30efd48fc7a4cb
Author: Raffael Stocker <address@hidden>
Commit: Raffael Stocker <address@hidden>

    wraps @body in progn in bluetooth--maybe-cancel-reject
---
 bluetooth.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bluetooth.el b/bluetooth.el
index 5e5347a..8e2bb4f 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -408,7 +408,7 @@ This function only uses the first adapter reported by 
Bluez."
 `org.bluez.Error.Rejected' is issued if BODY evaluates to nil."
   (declare (indent defun))
   `(or (condition-case nil
-          ,@body
+          (progn ,@body)
         (quit (signal 'dbus-error '("org.bluez.Error.Canceled"))))
        (signal 'dbus-error '("org.bluez.Error.Rejected"))))