Function: tab-line--undefine-keys

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

Signature

(tab-line--undefine-keys)

Documentation

Uninstall key bindings previously bound by tab-line--define-keys.

Source Code

;; Defined in /usr/src/emacs/lisp/tab-line.el.gz
(defun tab-line--undefine-keys ()
  "Uninstall key bindings previously bound by `tab-line--define-keys'."
  (when tab-line-define-keys
    (when (eq (keymap-lookup ctl-x-map "<left>") 'tab-line-switch-to-prev-tab)
      (keymap-set ctl-x-map "<left>" #'previous-buffer))
    (when (eq (keymap-lookup ctl-x-map "C-<left>") 'tab-line-switch-to-prev-tab)
      (keymap-set ctl-x-map "C-<left>" #'previous-buffer))
    (when (eq (keymap-lookup ctl-x-map "M-<left>") 'tab-line-move-tab-backward)
      (keymap-set ctl-x-map "M-<left>" nil))
    (when (eq (keymap-lookup ctl-x-map "<right>") 'tab-line-switch-to-next-tab)
      (keymap-set ctl-x-map "<right>" #'next-buffer))
    (when (eq (keymap-lookup ctl-x-map "C-<right>") 'tab-line-switch-to-next-tab)
      (keymap-set ctl-x-map "C-<right>" #'next-buffer))
    (when (eq (keymap-lookup ctl-x-map "M-<right>") 'tab-line-move-tab-forward)
      (keymap-set ctl-x-map "M-<right>" nil))))