>> (defmacro define-my-insert (name char) >> "Define the `my-NAME' command, to insert CHAR." >> `(defun ,(intern (format "my-%s" name)) (&optional arg) >> ,(format "Insert \"%c\" at point. >> With a prefix ARG, insert that many characters." >> char) >> (interactive "p") >> (insert-char ,char (or arg 1)))) >> >> (define-my-insert four ?4) >> (define-my-insert dollar ?$)
Have you taken a look at key-translation-map? Something like (define-key key-translation-map "4" "$") (define-key key-translation-map "$" "4") -- Stefan _______________________________________________ Help-gnu-emacs mailing list Help-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnu-emacs