Re: where-is-internal question

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

>            (if (boundp 'this-original-command)
>                 (define-key my-map [remap self-insert-command] 'my-command)
>               (dolist (key (where-is-internal 'self-insert-command 
>                                               global-map))
>                 (define-key my-map key 'my-command)))
    
Also the above dolist is advantageously replaced by a call to
substitute-key-definition (whose docstring mentions the use of the [remap
<foo>] binding).


        Stefan