Re: I'd like to advise a /keybinding/, how do I do it?

[Stefan Monnier <monnier@iro.umontreal.ca>]

> The rationale is that I'm thinking about writing a minor mode which
> could prevent a "finishing" action until the buffer is ready.
> A "finishing" action is often bound to C-c C-c (sending an email and
> commiting something to Git come to mind), so I'd like to advise whatever
> C-c C-c calls to check the buffer for occurrences of a string like TODO.

"advising the key-binding" would imply changing by side-effect the
underlying major mode's keymap (BTW: yes, it can be done, by defining
`lookup-key` as an lvalue (e.g. with gv-define-setter) after which you
can use `add-function` to modify a key binding).

Or you could do it by advising the command bound to the particular key
(in which case it'll also affect invocations of that command that don't
go through this key binding, e.g. via `M-x`).

Or you could do it with a minor-mode map (i.e. without modifying any
major mode keymap or command), where you bind `C-c C-c` to a command
that either beeps or delegates to the command that it hid (e.g. which
you could find for example with (let ((my-new-minor-mode nil))
(key-binding (this-command-keys))))

Or you could do it with a `pre-command-hook` which checks
`this-command-keys`.

Or the minor-mode map could use a "filtered menu-item" conditional
key-binding.

Or ...


        Stefan