diff options
| author | Juri Linkov <juri@linkov.net> | 2021-11-18 19:36:42 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-11-18 19:36:42 +0200 |
| commit | 6fc94fb99e38960a24ee3a3dc441f85f786a654e (patch) | |
| tree | ea8f53474b34b0473feccb3dc6632b7811897438 /lisp/tab-bar.el | |
| parent | 5eeaf857678d617560efa6a99bb6fd54c0ceddec (diff) | |
| download | emacs-6fc94fb99e38960a24ee3a3dc441f85f786a654e.tar.gz | |
* lisp/tab-bar.el: Use 'mouse-1' for history buttons like for 'add-tab' button
* lisp/tab-bar.el (tab-bar-mouse-down-1, tab-bar-mouse-1):
Handle clicks for 'history-back' and 'history-forward' the same way
as 'add-tab' clicks.
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 871ed1c9817..ca1087e827d 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -284,7 +284,8 @@ existing tab." (setq tab-bar--dragging-in-progress t) ;; Don't close the tab when clicked on the close button. Also ;; don't add new tab on down-mouse. Let `tab-bar-mouse-1' do this. - (unless (or (eq (car item) 'add-tab) (nth 2 item)) + (unless (or (memq (car item) '(add-tab history-back history-forward)) + (nth 2 item)) (if (functionp (nth 1 item)) (call-interactively (nth 1 item)) (unless (eq tab-number t) @@ -298,7 +299,8 @@ regardless of where you click on it. Also add a new tab." (let* ((item (tab-bar--event-to-item (event-start event))) (tab-number (tab-bar--key-to-number (nth 0 item)))) (cond - ((and (eq (car item) 'add-tab) (functionp (nth 1 item))) + ((and (memq (car item) '(add-tab history-back history-forward)) + (functionp (nth 1 item))) (call-interactively (nth 1 item))) ((and (nth 2 item) (not (eq tab-number t))) (tab-bar-close-tab tab-number))))) |