[elpa] externals/bluetooth 53323b9 09/33: matches case sensitively in bluetooth--function-name

[Stefan Monnier]

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

    matches case sensitively in bluetooth--function-name
---
 bluetooth.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bluetooth.el b/bluetooth.el
index 9661765..33e5ed4 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -127,11 +127,12 @@ This is usually `:system' if bluetoothd runs as a system 
service, or
   (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'."
-    (concat "bluetooth"
-           prefix
-           (replace-regexp-in-string "[[:upper:]][[:lower:]]+"
-                                     (lambda (x) (concat "-" (downcase x)))
-                                     name t))))
+    (let ((case-fold-search nil))
+      (concat "bluetooth"
+             prefix
+             (replace-regexp-in-string "[[:upper:]][[:lower:]]+"
+                                       (lambda (x) (concat "-" (downcase x)))
+                                       name t)))))
 
 (defmacro bluetooth-defun-method (method api docstring)
   (declare (doc-string 3) (indent 2))
@@ -555,7 +556,6 @@ scanning the bus, displaying device info etc."
                   "RequestAuthorization" "AuthorizeService" "Cancel")))
     (setq bluetooth--method-objects
          (cl-loop for method in methods
-                  with case-fold-search = nil
                   for fname = (bluetooth--function-name method "-")
                   collect (dbus-register-method bluetooth-bluez-bus
                                                 dbus-service-emacs