From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 13 Jul 2024 14:22:54 +0000 (+0200)
Subject: (search-read-target): Fix off-by-one in group-function
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42686d1f427491eed2f2caf9315418a3529a02ad;p=emacs.git

(search-read-target): Fix off-by-one in group-function
---

diff --git a/lisp/search.el b/lisp/search.el
index 366a2aaed07..829da463282 100644
--- a/lisp/search.el
+++ b/lisp/search.el
@@ -150,8 +150,9 @@
                       `((category . search)
                         (group-function
                          . ,(lambda (string &optional transform)
-                              (when transform (nth 1 (string-split string ":")))))))
-                     nil t))
+                              (when transform
+                                (substring string (1+ (string-search ":" string))))))))
+                     nil t nil t))
                    tab))
       (mapc #'delete-overlay ovs)
       (mapc #'delete-overlay ovz))))