[elpa] externals/bluetooth 3743458 17/57: corrects list redisplay when mode is restarted

[Stefan Monnier]

branch: externals/bluetooth
commit 37434582b1f0664034b61ca70083eb8a9db3a50d
Author: Raffael Stocker <address@hidden>
Commit: Raffael Stocker <address@hidden>

    corrects list redisplay when mode is restarted
---
 bluetooth.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/bluetooth.el b/bluetooth.el
index 4a93569..41204ea 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -378,16 +378,16 @@ This function only uses the first adapter reported by 
Bluez."
   ;; make sure D-Bus is (made) available
   (dbus-ping :system bluetooth--service bluetooth--timeout)
   (let ((buffer-exists (get-buffer bluetooth-buffer-name)))
-   (with-current-buffer (switch-to-buffer bluetooth-buffer-name)
-     (unless buffer-exists
-       (erase-buffer)
-       (bluetooth-mode)
-       (bluetooth--register-agent)
-       (add-hook 'kill-buffer-hook #'bluetooth--cleanup nil t)
-       (setq-local mode-line-misc-info
-                  (cl-pushnew bluetooth--mode-info mode-line-misc-info))
-       (setq imenu-create-index-function #'bluetooth--create-imenu-index))
-     (tabulated-list-print))))
+    (with-current-buffer (switch-to-buffer bluetooth-buffer-name)
+      (unless buffer-exists
+       (erase-buffer)
+       (bluetooth-mode)
+       (bluetooth--register-agent)
+       (add-hook 'kill-buffer-hook #'bluetooth--cleanup nil t)
+       (setq-local mode-line-misc-info
+                   (cl-pushnew bluetooth--mode-info mode-line-misc-info))
+       (setq imenu-create-index-function #'bluetooth--create-imenu-index))
+      (tabulated-list-print t))))
 
 ;;; Bluetooth pairing agent code