[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Customizing key bindings

From: Stefan Monnier
Subject: Re: Customizing key bindings
Date: Mon, 09 Sep 2002 18:58:21 -0400

> (defun custom-add-key (sym key def)
>   "Add KEY to the keymap stored in SYM with definition DEF.
> The shadowed binding is stored, if none has been stored before.  The
> shadowed bindings are stored in the custom-bindings-shadow property."
>   (let* ((map (symbol-value sym))
>        (old-binding (lookup-key map key))

Note that

         (define-key map key '(menu-item "foo" a))
         (lookup-key map key)) => a

This should not be too harmful in practice, tho.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]