change the minibuffer prompt for replace.el when operating in region

[Dan Nicolaescu]

It would be nice if the replace.el functions would follow the example
set by `undo' and change the minibuffer prompt when operating on a
region. The patch below does that. May I check it in? 



*** replace.el  17 Feb 2005 10:50:04 -0800      1.204
--- replace.el  17 Feb 2005 11:26:15 -0800      
***************
*** 214,220 ****
  
  To customize possible responses, change the \"bindings\" in 
`query-replace-map'."
    (interactive (let ((common
!                     (query-replace-read-args "Query replace" nil)))
                 (list (nth 0 common) (nth 1 common) (nth 2 common)
                       ;; These are done separately here
                       ;; so that command-history will record these expressions
--- 214,224 ----
  
  To customize possible responses, change the \"bindings\" in 
`query-replace-map'."
    (interactive (let ((common
!                     (query-replace-read-args 
!                      (if (and transient-mark-mode mark-active)
!                        "Query replace in region"
!                        "Query replace")
!                        nil)))
                 (list (nth 0 common) (nth 1 common) (nth 2 common)
                       ;; These are done separately here
                       ;; so that command-history will record these expressions
***************
*** 274,280 ****
  Use \\[repeat-complex-command] after this command for details."
    (interactive
     (let ((common
!         (query-replace-read-args "Query replace regexp" t)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           ;; These are done separately here
           ;; so that command-history will record these expressions
--- 278,288 ----
  Use \\[repeat-complex-command] after this command for details."
    (interactive
     (let ((common
!         (query-replace-read-args 
!          (if (and transient-mark-mode mark-active)
!              "Query replace regexp in region"
!            "Query replace regexp")
!          t)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           ;; These are done separately here
           ;; so that command-history will record these expressions
***************
*** 420,426 ****
  and TO-STRING is also null.)"
    (interactive
     (let ((common
!         (query-replace-read-args "Replace string" nil)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           (if (and transient-mark-mode mark-active)
               (region-beginning))
--- 428,438 ----
  and TO-STRING is also null.)"
    (interactive
     (let ((common
!         (query-replace-read-args 
!          (if (and transient-mark-mode mark-active)
!              "Replace string in region"
!            "Replace string")
!          nil)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           (if (and transient-mark-mode mark-active)
               (region-beginning))
***************
*** 474,480 ****
  which will run faster and will not set the mark or print anything."
    (interactive
     (let ((common
!         (query-replace-read-args "Replace regexp" t)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           (if (and transient-mark-mode mark-active)
               (region-beginning))
--- 486,496 ----
  which will run faster and will not set the mark or print anything."
    (interactive
     (let ((common
!         (query-replace-read-args 
!          (if (and transient-mark-mode mark-active)
!              "Replace regexp in region" 
!            "Replace regexp") 
!          t)))
       (list (nth 0 common) (nth 1 common) (nth 2 common)
           (if (and transient-mark-mode mark-active)
               (region-beginning))