GNU bug report logs - #4981
C-l during query-replace

Previous Next

Full log

Message #18 received at 4981 <at> emacsbugs.donarmstrong.com (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Juri Linkov <juri <at> jurta.org>
Cc: 4981 <at> debbugs.gnu.org, Dan Nicolaescu <dann <at> ics.uci.edu>
Subject: Re: bug#4981: C-l during query-replace
Date: Sun, 29 Nov 2009 20:28:07 -0500

> I can't find a clean solution because in the case of query-replace,
> `this-command' is always `query-replace'.

Why not:

> Index: lisp/replace.el
> ===================================================================
> RCS file: /sources/emacs/emacs/lisp/replace.el,v
> retrieving revision 1.287
> diff -u -r1.287 replace.el
> --- lisp/replace.el	12 Nov 2009 06:55:43 -0000	1.287
> +++ lisp/replace.el	29 Nov 2009 23:43:28 -0000
> @@ -1785,7 +1788,9 @@
>  			((eq def 'skip)
>  			 (setq done t))
>  			((eq def 'recenter)
> -			 (recenter nil))
> +                      (let ((this-command 'recenter-top-bottom))
> +			 (recenter-top-bottom)))
>  			((eq def 'edit)
>  			 (let ((opos (point-marker)))
>  			   (setq real-match-data (replace-match-data


-- Stefan

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.