> (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
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
