branch: externals/bluetooth
commit 37434582b1f0664034b61ca70083eb8a9db3a50d
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
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
