bug#4981: C-l during query-replace

[Stefan Monnier]

> 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