branch: externals/bluetooth
commit 2f8f31c1db714963b261c810e1fc2ac640e2f21a
Author: Raffael Stocker <[email protected]>
Commit: Raffael Stocker <[email protected]>
adds an unload function
---
bluetooth.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/bluetooth.el b/bluetooth.el
index c0914b2..9661765 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -351,6 +351,12 @@ This function only uses the first adapter reported by
Bluez."
(mapc #'dbus-unregister-object bluetooth--method-objects)
(dbus-unregister-object bluetooth--adapter-signal)))
+(defun bluetooth-unload-function ()
+ "Clean up when the bluetooth feature is unloaded."
+ (when (buffer-live-p (get-buffer bluetooth-buffer-name))
+ (kill-buffer bluetooth-buffer-name))
+ nil)
+
(defun bluetooth-remove-device ()
"Remove Bluetooth device at point (unpaires device and host)."
(interactive)
