[nongnu] elpa/engine-mode 408932727b 49/71: display the default word in prompt if available

[ELPA Syncer]

branch: elpa/engine-mode
commit 408932727bb723017eaf6338e50cb6d1266b8df8
Author: Binsheng Liu <lbsx@users.noreply.github.com>
Commit: Harry R. Schwartz <hello@harryrschwartz.com>

    display the default word in prompt if available
---
 engine-mode.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/engine-mode.el b/engine-mode.el
index c275dba47b..007fc5cf39 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -87,11 +87,15 @@ Defaults to `browse-url-browser-function'."
   :group 'engine-mode
   :type 'symbol)
 
-(defun engine/search-prompt (engine-name)
-  (concat "Search " (capitalize engine-name) ": "))
+(defun engine/search-prompt (engine-name default-word)
+  (if (string= default-word "")
+      (format "Search %s: " (capitalize engine-name))
+    (format "Search %s (%s): " (capitalize engine-name) default-word)))
 
 (defun engine/prompted-search-term (engine-name)
-  (read-string (engine/search-prompt engine-name) (thing-at-point 'symbol)))
+  (let ((current-word (or (thing-at-point 'symbol) "")))
+    (read-string (engine/search-prompt engine-name current-word)
+     nil nil current-word)))
 
 (defun engine/get-query (engine-name)
   "Return the selected region (if any) or prompt the user for a query."