Emacs: Move to the next tab when the current tab is closed. (similar to Firefox.)

close-tab-move-next.el

;; Description: Emacs: Move to the next tab when the current tab 
;;              is closed. (similar to Firefox.)
;; Gits URL: https://gist.github.com/jamescherti/21436157fa3764022c95f00dfe2ae828
;; License: MIT
;; Author: James Cherti

(defun my-tab-bar-close-tab-advice (orig-fun &rest args)
  "Advice around `tab-bar-close-tab' to move to the next tab when closed.
ORIG-FUN is the original `tab-bar-close-tab` function. ARGS are the arguments
passed to `tab-bar-close-tab`."
  (let ((current-tab (tab-bar--current-tab-index)))
    (apply orig-fun args)
    (when (< current-tab (length (tab-bar-tabs)))
      (tab-bar-select-tab (+ current-tab 1)))))

(advice-add 'tab-bar-close-tab :around #'my-tab-bar-close-tab-advice)