(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)))
Since you are (probably) going to use my-map as a local map, it will
be searched before other maps which may also have remapped
self-insert-command so your mapping will take precedence.
Thanks. I'll give it a try when I get a chance.
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
