Commit 3bdc6ce7 authored by Kenjiro NAKAYAMA's avatar Kenjiro NAKAYAMA Committed by Lars Magne Ingebrigtsen

Bind `M-s M-s' globally to `eww-search-words'

Fixes: debbugs:16258

* etc/NEWS: Mention the new `M-s M-s' keystroke.

* lisp/bindings.el (search-map): Bind M-s M-s to `eww-search-words'.

* net/eww.el (eww-search-words): New command.
parent ba88f195
2014-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* NEWS: Mention the new `M-s M-s' keystroke.
2014-11-13 Paul Eggert <eggert@cs.ucla.edu>
Fix minor Bazaar leftovers.
......
......@@ -51,6 +51,9 @@ Use './configure PKG_CONFIG=/full/name/of/pkg-config' if you need to.
** C-h l now also lists the commands that were run.
** The new M-s M-s key binding uses eww to search the web for the
text in the region.
** M-x suggests shorthands and ignores obsolete commands for completion.
** x-select-enable-clipboard is renamed select-enable-clipboard.
x-select-enable-primary and renamed select-enable-primary.
......
2014-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* bindings.el (search-map): Bind M-s M-s to `eww-search-words'.
2014-11-14 Kenjiro NAKAYAMA <nakayamakenjiro@gmail.com>
* net/eww.el (eww-search-words): New command (bug#16258).
2014-11-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-inhibit-images): Add a doc string.
......
......@@ -926,6 +926,7 @@ if `inhibit-field-text-motion' is non-nil."
(define-key esc-map "s" search-map)
(define-key search-map "o" 'occur)
(define-key search-map (kbd "M-s") 'eww-search-words)
(define-key search-map "hr" 'highlight-regexp)
(define-key search-map "hp" 'highlight-phrase)
(define-key search-map "hl" 'highlight-lines-matching-regexp)
......
......@@ -198,6 +198,12 @@ word(s) will be searched for via `eww-search-prefix'."
"/")
(expand-file-name file))))
;;;###autoload
(defun eww-search-words (&optional beg end)
"Search the web for the text between the point and marker."
(interactive "r")
(eww (buffer-substring beg end)))
(defun eww-render (status url &optional point buffer)
(let ((redirect (plist-get status :redirect)))
(when redirect
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment