bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#4981: C-l during query-replace


From: Stefan Monnier
Subject: bug#4981: C-l during query-replace
Date: Sun, 29 Nov 2009 20:28:07 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux)

> 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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]