Re: Highlight on search

["John E. Davis" <davis@xxxxxxxxxxxxx>]

=?UTF-8?Q?J=C3=B6rg?= Sommer <joerg@xxxxxxxxxxxx> wrote:
>I think this is a good idea. I send a wishlist bugreport to the Debian

Does this patch fulfill the wish?  Thanks, --John

Index: isearch.sl
===================================================================
--- isearch.sl	(revision 32)
+++ isearch.sl	(working copy)
@@ -24,6 +24,7 @@
 %%
 %% This code fragment checks to see what the isearch keys are bound to
 
+require ("srchmisc");
 private define get_bound_key (search_func, default)
 {
    foreach (["", which_key (search_func), pop()])
@@ -170,12 +171,16 @@
 	message (prompt + str);
 
 	push_spot ();
-	if ((dir > 0) and looking_at (str))
-	  go_right (strlen (str));
+
+	IGNORE_USER_ABORT++;
+
+	if (looking_at (str) and (Last_Search_Failed == 0))
+	  mark_next_nchars (strlen(str), dir);
+	%if ((dir > 0) and looking_at (str))
+	%  go_right (strlen (str));
 	update_sans_update_hook (0);
 	pop_spot ();
 
-	IGNORE_USER_ABORT++;
 #ifexists AnyError
 	try
 	  {

--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.