From 639488b55a80e716e29dc74622c4c3e08ce3fbbc Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 15 Jan 2022 09:06:50 +0100 Subject: [PATCH] Revert "Add command to invoke a search engine" This reverts commit 3f36d0836274a01d3cfc73f53ddbc76afc1d8a5e. Similar functionality has been added to webjump, so this commit duplicated that. --- lisp/mouse.el | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 46dd0397d7f..ad69d54fce4 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -534,16 +534,6 @@ Some context functions add menu items below the separator." :help "Find file or URL from text around mouse click")))) menu) -(defun context-menu-online-search (menu click) - "Populate MENU with command to search online." - (save-excursion - (mouse-set-point click) - (define-key-after menu [online-search-separator] menu-bar-separator) - (define-key-after menu [online-search-at-mouse] - '(menu-item "Online search" mouse-online-search-at-point - :help "Search for region or word online"))) - menu) - (defvar context-menu-entry `(menu-item ,(purecopy "Context Menu") ,(make-sparse-keymap) :filter ,(lambda (_) (context-menu-map))) @@ -3230,26 +3220,6 @@ is copied instead of being cut." (with-current-buffer (window-buffer window) (setq cursor-type (nth 3 state))))))) -(defvar eww-search-prefix) -(defun mouse-online-search-at-point (event) - "Query an online search engine at EVENT. -If a region is active, the entire region will be sent, otherwise -the symbol at point will be used. This command uses EWW's -default search engine, as configured by `eww-search-prefix'." - (interactive "e") - (require 'eww) - (let ((query (if (use-region-p) - (buffer-substring (region-beginning) - (region-end)) - (save-excursion - (mouse-set-point event) - (thing-at-point 'symbol))))) - (unless query - (user-error "Nothing to search for")) - (browse-url (concat - eww-search-prefix - (mapconcat #'url-hexify-string (split-string query) "+"))))) - ;;; Bindings for mouse commands. -- 2.39.2