Function: tab-switcher-execute
tab-switcher-execute is an interactive and byte-compiled function
defined in tab-bar.el.gz.
Signature
(tab-switcher-execute)
Documentation
Delete window configurations marked with C-k (tab-switcher-delete) commands.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/tab-bar.el.gz
(defun tab-switcher-execute ()
"Delete window configurations marked with \\<tab-switcher-mode-map>\\[tab-switcher-delete] commands."
(interactive)
(save-excursion
(goto-char (point-min))
(let ((buffer-read-only nil))
(while (re-search-forward
(format "^%sD" (make-string tab-switcher-column ?\040))
nil t)
(forward-char -1)
(let ((tab (tab-switcher-current-tab nil)))
(when tab
(tab-switcher-delete-from-list tab)
(beginning-of-line)
(delete-region (point) (progn (forward-line 1) (point))))))))
(beginning-of-line)
(move-to-column tab-switcher-column)
(force-mode-line-update))