[elpa] externals/bluetooth f2d43ebab5 16/32: make bluetooth--choose-uuid somewhat more readable

[Stefan Kangas]

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

    make bluetooth--choose-uuid somewhat more readable
---
 bluetooth.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/bluetooth.el b/bluetooth.el
index 9d638e33bb..a887776a71 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -175,14 +175,16 @@ The generated function name has the form 
‘bluetoothPREFIX-NAME’."
                                         (bluetooth-device-properties device)))
                         (profile (completing-read "Profile: "
                                                                           
(mapcar (lambda (x)
-                                                                               
                 (concat (caadr x)
-                                                                               
                                 ", "
-                                                                               
                                 (cadadr x)))
+                                                                               
                 (let ((desc (cl-second x)))
+                                                                               
                   (concat (cl-first desc)
+                                                                               
                                   ", "
+                                                                               
                                   (cl-second desc))))
                                                                                
           uuids)
                                                                           nil 
t)))
                (list (cl-rassoc profile uuids
                                                 :key (lambda (x)
-                                                               (concat (caar 
x) ", " (cadar x)))
+                                                               (let ((desc 
(cl-first x)))
+                                                                 (concat 
(cl-first desc) ", " (cl-second desc))))
                                                 :test #'string=)))
        '(nil)))