branch: externals/bluetooth
commit 4133a108e2dc0d62617de50751fabc87a951b941
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
makes mode idempotent
---
bluetooth.el | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/bluetooth.el b/bluetooth.el
index 2450738..383b2f4 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -365,15 +365,18 @@ This function only uses the first adapter reported by
Bluez."
(defun list-bluetooth-devices ()
"Display a list of Bluetooth devices that are available."
(interactive)
+ ;; make sure D-Bus is (made) available
(dbus-ping :system bluetooth--service bluetooth--timeout)
- (with-current-buffer (switch-to-buffer bluetooth-buffer-name)
- (erase-buffer)
- (bluetooth-mode)
- (bluetooth--register-agent)
- (add-hook 'kill-buffer-hook #'bluetooth--cleanup nil t)
- (set (make-local-variable 'mode-line-misc-info)
- (cl-pushnew bluetooth--mode-info mode-line-misc-info))
- (tabulated-list-print)))
+ (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)))
+ (tabulated-list-print))))
;;; Bluetooth pairing agent code
