Re: Reporting when keymapping stomped... best approach

[Stefan Monnier]

> (defadvice global-set-key (before check-keymapping activate)
>   (let ((key (ad-get-arg 0))
>         (command (ad-get-arg 1)))
>     (when command
>       (warn (concat "Just stomped on a global keymapping bound to: "
> command)))))

This doesn't check whether the key was already bound.
You'll probably prefer something like

   (defadvice global-set-key (before check-keymapping activate)
     (let* ((key (ad-get-arg 0))
            (command (ad-get-arg 1))
            (old (lookup-key global-map key)))
       (when old
         (message "Replacing %S with %S in global-map"
                  old command))))

and you'll probably also want to advise `define-key' similarly.


        Stefan