emacs - 単語を選択して Emacs の replace-string のデフォルト値を設定する

Question

このような関数を使用して、Emacs の文字列を置き換えています。

(defun replace-string-from-top ()
  (interactive)
  (save-excursion
    (beginning-of-buffer)
    (call-interactively 'replace-string)))
(global-set-key "\C-r" 'replace-string-from-top)

そして、単語を選択してreplace-string関数のデフォルト値を使用したい。

やりたいことは。

1. 単語をダブルクリックして選択します。
2. replace-string-from-topデフォルト値で選択された単語で関数を呼び出します。

関数を書き込もうとしましたが、できませんでした。

どうすればいいですか？