Re: [Patch] Add project.el command to replace symbol at point throughout project

[Juri Linkov]

> +                  (read-string
> +                   prompt
> +                   nil nil
> +                   (if read-regexp-defaults-function
> +                       (funcall read-regexp-defaults-function)
> +                     (query-replace-read-from-suggestions))

Isn't it too strange that read-string uses the read-regexp function?
Maybe better to add a new variable read-string-defaults-function.
Then it could provide an option to use 'car' of
query-replace-read-from-suggestions, and allow a custom function.