branch: elpa/engine-mode
commit 408932727bb723017eaf6338e50cb6d1266b8df8
Author: Binsheng Liu <l...@users.noreply.github.com>
Commit: Harry R. Schwartz <he...@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."
