ありがとうございます。
上掲のコードを評価してwdiredでquery-replaceを実行すると正常に動作することが確認しました。

ただ私もまだよく理解していないんですが、
これをそのまま~/.emacs等に書くとquery-replaceで次のようなエラーが出てしまいます。

funcall: Symbol’s value as variable is void: fun