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

diff --git a/lisp/search.el b/lisp/search.el
index 366a2aaed072168309e527f456358606669887a1..829da463282ea62488d022400281f743c8fca92b 100644 (file)
--- 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))))