bug#20687: 25.0.50; `perform-replace' should invoke a key that you have bound in `query-replace-map'

[Juri Linkov]

> I tried the fix as Drew suggested and it works great.
>
> Patch:
>
> --- replace.el 2015-06-02 09:04:57.944380000 -0400
> +++ replace-editted.el 2015-06-02 09:08:22.038682000 -0400
> @@ -2099,12 +2099,11 @@
>           ;; Data for the next match.  If a cons, it has the same format as
>           ;; (match-data); otherwise it is t if a match is possible at
> point.
>           (match-again t)
> -
>           (message
>            (if query-flag
>                (apply 'propertize
>                       (substitute-command-keys
> -                      "Query replacing %s with %s: 
> (\\<query-replace-map>\\[help] for help) ")
> +                      "%sQuery replacing %s with %s: 
> (\\<query-replace-map>\\[help] for help) ")
>                       minibuffer-prompt-properties))))
>
>      ;; If region is active, in Transient Mark mode, operate on region.
> @@ -2275,6 +2274,8 @@
>       nocasify literal))
>     next-replacement)))
>      (message message
> +                             ;; Show whether `case-fold-search' is `t' or  
> `nil'
> +                             (if case-fold-search "[case] " "[CaSe] ")
>                               (query-replace-descr from-string)
>                               (query-replace-descr

Maybe we should use the same message about case-folding like in isearch?