Re: Stop modes from hijacking several global keys

[Tassilo Horn <tsdh@gnu.org>]

Tassilo Horn <tsdh@gnu.org> writes:

> Ideally, that magic would stop the mode from hijacking M-<number>
> keys, and whatever it wants to bind to M-<number> would automagically
> be bound to `<escape> M-<number>' instead.
>
> I think at least for major-modes I can use
> `after-change-major-mode-hook' in combination with a function checking
> (key-binding (kbd "M-<number>")) and doing `local-set-key' if needed.

Oh, that was easier than I expected:

--8<---------------cut here---------------start------------->8---
(defun th/select-nth-window-ensure-keys ()
  "Ensures that M-<number> is bound to `th/select-nth-window'.
Binds whatever else is bound to M-<number> to <escape> M-<number>."
  (dotimes (i 9)
    (let* ((key (kbd (format "M-%s" (1+ i))))
	   (cmd (key-binding key)))
      (unless (equal cmd #'th/select-nth-window)
	(local-set-key key 'th/select-nth-window)
	(local-set-key (kbd (format "<escape> M-%s" (1+ i))) cmd)))))

(add-hook 'after-change-major-mode-hook #'th/select-nth-window-ensure-keys)
--8<---------------cut here---------------end--------------->8---

> But is there a similar hook that runs after a minor mode has been
> activated?

This one is still open although I think I haven't encountered a
minor-mode that tried to redefine M-<number> yet, so it's less important
to me.

Bye,
Tassilo