Function: tab-line--define-keys

tab-line--define-keys is a byte-compiled function defined in tab-line.el.gz.

Signature

(tab-line--define-keys)

Documentation

Install key bindings to switch between tabs if so configured.

Source Code

;; Defined in /usr/src/emacs/lisp/tab-line.el.gz
(defun tab-line--define-keys ()
  "Install key bindings to switch between tabs if so configured."
  (when tab-line-define-keys
    (when (eq (keymap-lookup ctl-x-map "<left>") 'previous-buffer)
      (keymap-set ctl-x-map "<left>" #'tab-line-switch-to-prev-tab))
    (when (eq (keymap-lookup ctl-x-map "C-<left>") 'previous-buffer)
      (keymap-set ctl-x-map "C-<left>" #'tab-line-switch-to-prev-tab))
    (unless (keymap-lookup ctl-x-map "M-<left>")
      (keymap-set ctl-x-map "M-<left>" #'tab-line-move-tab-backward))
    (when (eq (keymap-lookup ctl-x-map "<right>") 'next-buffer)
      (keymap-set ctl-x-map "<right>" #'tab-line-switch-to-next-tab))
    (when (eq (keymap-lookup ctl-x-map "C-<right>") 'next-buffer)
      (keymap-set ctl-x-map "C-<right>" #'tab-line-switch-to-next-tab))
    (unless (keymap-lookup ctl-x-map "M-<right>")
      (keymap-set ctl-x-map "M-<right>" #'tab-line-move-tab-forward))))