regexp-quote for replacements

[Roland Winkler]

I want to construct replacement patterns automatically.
Does the following piece of code insert the value of bar in the
replacement, no matter what the string bar is?
The point is that I want the optional arg LITERAL of replace-match
to be nil.

(let* ((foo "foo")
       ;; this string should appear in the replacement
       (bar "bar.\\")
       ;; the following is like regexp-quote for replacements?
       (baz (replace-regexp-in-string "\\\\" "\\\\" bar nil t)))
  (string-match "\\(foo\\)" foo)
  (replace-match (concat "\\1 " baz " \\1") nil nil foo))


Thanks a lot,

Roland