kmacro-x

commit ccb2922142c3e1f16b3eba372bc51f63dd6139cb
parent 5fd81c9e3b8987b1203d5f0b96dc0a8e5676a9ec
Author: Wojciech Siewierski <wojciech@siewierski.eu>
Date:   Fri,  3 Mar 2023 00:09:17 +0100

Match case sensitively

Diffstat:
M
kmacro-x-mc.el
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/kmacro-x-mc.el b/kmacro-x-mc.el
@@ -75,9 +75,10 @@ necessary initialization."
                    (overlay-end ov))))
 
     ;; Create a new cursor.
-    (if (if backwards
-            (search-backward-regexp kmacro-x-mc-regexp nil 'noerror)
-          (search-forward-regexp kmacro-x-mc-regexp nil 'noerror))
+    (if (let ((case-fold-search nil))
+          (if backwards
+              (search-backward-regexp kmacro-x-mc-regexp nil 'noerror)
+            (search-forward-regexp kmacro-x-mc-regexp nil 'noerror)))
         (let ((ov (make-overlay (match-beginning 0)
                                 (match-end 0))))
           (overlay-put ov 'face 'kmacro-x-mc-cursor-face)