branch: externals/bluetooth
commit 9ea7bad3e159bbb4608c38139bf1b9c33d7d4c56
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
requires 'subr-x (for when-let) and fixes a defun definition issue
---
bluetooth.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/bluetooth.el b/bluetooth.el
index a581323..0c47a44 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -5,7 +5,7 @@
;; Author: Raffael Stocker <r.stoc...@mnet-mail.de>
;; Maintainer: Raffael Stocker <r.stoc...@mnet-mail.de>
;; Created: 13 Aug 2019
-;; Version: 0.1.1
+;; Version: 0.1.2
;; Package-Requires: ((emacs "25.1") (dash "2.12.0"))
;; Keywords: hardware
;; URL: https://gitlab.com/rstocker/emacs-bluetooth
@@ -43,6 +43,7 @@
(require 'let-alist)
(require 'dash)
(require 'rx)
+(eval-when-compile (require 'subr-x))
(defgroup bluetooth nil
"Bluetooth device management."
@@ -122,7 +123,7 @@ This is usually `:system' if bluetoothd runs as a system
service, or
;;; This variable holds the device information as obtained from D-Bus.
(defvar bluetooth--device-info nil "Device info obtained from Bluez.")
-(eval-when-compile
+(eval-and-compile
(defun bluetooth--function-name (name &optional prefix)
"Make a function name out of NAME and PREFIX.
The generated function name has the form `bluetoothPREFIX-NAME'."
