[elpa] externals/bluetooth 7198f6b1a5 26/32: correct bluetooth--with-alias in case of unknown devices

[Stefan Kangas]

branch: externals/bluetooth
commit 7198f6b1a5514659cc32415b790696a5f54bca2a
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@mnet-mail.de>

    correct bluetooth--with-alias in case of unknown devices
---
 bluetooth.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/bluetooth.el b/bluetooth.el
index 1da5fc1158..de28743296 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -495,9 +495,11 @@ form by a call to ‘bluetooth-device-properties’."
 (defmacro bluetooth--with-alias (device &rest body)
   "Evaluate BODY with DEVICE alias bound to ALIAS."
   (declare (indent defun))
-  `(let* ((dev (bluetooth--device (cl-first (last (split-string ,device 
"/")))))
-                 (alias (or (bluetooth-device-property dev "Alias")
-                                        (replace-regexp-in-string "_" ":" dev 
nil nil nil 4))))
+  `(let* ((dev-id (cl-first (last (split-string ,device "/")))) 
+                 (dev (bluetooth--device dev-id))
+                 (alias (if dev
+                                        (bluetooth-device-property dev "Alias")
+                                  (replace-regexp-in-string "_" ":" dev-id nil 
nil nil 4))))
         ,@body))
 
 (defmacro bluetooth--maybe-cancel-reject (&rest body)