[xwidget] Tweak prompt when switching to tab
This commit is contained in:
parent
e9faaac9f1
commit
377ef179b3
|
@ -72,12 +72,13 @@ F is the name of function, N is the pixel height."
|
||||||
(defun evil-collection-xwidget-webkit-search-tabs ()
|
(defun evil-collection-xwidget-webkit-search-tabs ()
|
||||||
"Search tabs (buffers) with 'buffer-name'."
|
"Search tabs (buffers) with 'buffer-name'."
|
||||||
(interactive)
|
(interactive)
|
||||||
(cl-flet ((is-xwidget-webkit-buffer? (b) (with-current-buffer b
|
(cl-flet ((is-xwidget-webkit-buffer?
|
||||||
(equal major-mode 'xwidget-webkit-mode))))
|
(b) (with-current-buffer b
|
||||||
|
(equal major-mode 'xwidget-webkit-mode))))
|
||||||
(let ((bufs (cl-loop for b in (buffer-list)
|
(let ((bufs (cl-loop for b in (buffer-list)
|
||||||
when (is-xwidget-webkit-buffer? b)
|
when (is-xwidget-webkit-buffer? b)
|
||||||
collect (buffer-name b))))
|
collect (buffer-name b))))
|
||||||
(switch-to-buffer (completing-read "Go to: " bufs nil t)))))
|
(switch-to-buffer (completing-read "Switch to Tab: " bufs nil t)))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun evil-collection-xwidget-setup ()
|
(defun evil-collection-xwidget-setup ()
|
||||||
|
|
Loading…
Reference in New Issue