mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add xwidget-webkit-isearch to the menu bar and tool bar

Browse source 
* lisp/xwidget.el: Add isearch to tool bar and menu bar.

(xwidget-webkit-mode-map)
(xwidget-webkit-isearch-mode-map): Reorder key definitions so the
equivalent key shows up as `C-s' in the menu bar.
This commit is contained in:
Po Lu 2021-11-06 18:27:48 +08:00 • committed by Lars Ingebrigtsen
parent e7503291d3
commit 1a84537f79
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/xwidget.el
View file

@ -150,8 +150,8 @@ in `split-window-right' with a new xwidget webkit session."
(define-key map "+" 'xwidget-webkit-zoom-in)
(define-key map "-" 'xwidget-webkit-zoom-out)
(define-key map "e" 'xwidget-webkit-edit-mode)
(define-key map "\C-s" 'xwidget-webkit-isearch-mode)
(define-key map "\C-r" 'xwidget-webkit-isearch-mode)
(define-key map "\C-s" 'xwidget-webkit-isearch-mode)
;;similar to image mode bindings
(define-key map (kbd "SPC") 'xwidget-webkit-scroll-up)
@ -198,7 +198,10 @@ in `split-window-right' with a new xwidget webkit session."
:help "Send self inserting characters to the WebKit widget"]
["Save Selection" xwidget-webkit-copy-selection-as-kill
:active t
:help "Save the browser's selection in the kill ring"]))
:help "Save the browser's selection in the kill ring"]
["Incremental Search" xwidget-webkit-isearch-mode
:active (not xwidget-webkit-isearch-mode)
:help "Perform incremental search inside the WebKit widget"]))
(defvar xwidget-webkit-tool-bar-map
(let ((map (make-sparse-keymap)))
@ -226,6 +229,10 @@ in `split-window-right' with a new xwidget webkit session."
(tool-bar-local-item-from-menu 'xwidget-webkit-browse-url
"connect-to-url"
map
xwidget-webkit-mode-map)
(tool-bar-local-item-from-menu 'xwidget-webkit-isearch-mode
"search"
map
xwidget-webkit-mode-map))))
(defun xwidget-webkit-zoom-in ()
@ -873,8 +880,8 @@ With argument, add COUNT copies of CHAR."
(define-key xwidget-webkit-isearch-mode-map [return] 'xwidget-webkit-isearch-exit)
(define-key xwidget-webkit-isearch-mode-map "\r" 'xwidget-webkit-isearch-exit)
(define-key xwidget-webkit-isearch-mode-map "\C-g" 'xwidget-webkit-isearch-exit)
(define-key xwidget-webkit-isearch-mode-map "\C-s" 'xwidget-webkit-isearch-forward)
(define-key xwidget-webkit-isearch-mode-map "\C-r" 'xwidget-webkit-isearch-backward)
(define-key xwidget-webkit-isearch-mode-map "\C-s" 'xwidget-webkit-isearch-forward)
(define-key xwidget-webkit-isearch-mode-map "\t" 'xwidget-webkit-isearch-printing-char)
(let ((meta-map (make-keymap)))