>From 685f3d0d2bfea7b3d6aad03d46a247fac25702d0 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Tue, 27 Jun 2017 15:20:27 +0200 Subject: [PATCH] eww-search-words prompt for query if region inactive or blank --- lisp/net/eww.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index fe31657914..a90caa7fc4 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -314,9 +314,16 @@ word(s) will be searched for via `eww-search-prefix'." ;;;###autoload (defun eww-search-words (&optional beg end) "Search the web for the text between BEG and END. -See the `eww-search-prefix' variable for the search engine used." + If region is active (and not whitespace), search the web for + the text between BEG and END. Else, prompt the user for a search + string. See the `eww-search-prefix' variable for the search + engine used." (interactive "r") - (eww (buffer-substring beg end))) + (if (use-region-p) + (let ((region-string (buffer-substring beg end))) + (if (not (string-match-p "\\`[ \n\t\r\v\f]*\\'" region-string)) + (eww region-string))) + (eww (read-string "Query: ")))) (defun eww-open-in-new-buffer () "Fetch link at point in a new EWW buffer." -- 2.13.2