copy key binding to another key WITHOUT knowing the function behind it.

copy key binding to another key WITHOUT knowing the function behind it.

[leo]

hi there

due to using cua-lite i have key bindings like:

    (lambda (prefix) "Deactivate mark and call `previous-line'
     interactively." (interactive "p") (cua-lite-ensure-mark nil)
     (call-interactively (quote previous-line)) (when t (setq
     this-command (quote previous-line))))

now i want to move this key binding to another key (ctrl-up) without
repeating this long function definition.

is there a way to say "key1's binding should be bound to key2"?

thanks, leo

Re: copy key binding to another key WITHOUT knowing the function behind it.

[Ian Zimmerman]

leo> is there a way to say "key1's binding should be bound to key2"?

Yes: substitute-key-definition

-- 
Nothing can be explained to a stone.
Or to a stoned person, either.

Re: copy key binding to another key WITHOUT knowing the function behind it.

[Ian Zimmerman]

leo> is there a way to say "key1's binding should be bound to key2"?

Please ignore my previous post which doesn't answer your question.

You could do this:

(let ((k my-keymap))
  (define-key k key2 (lookup-key k key1)))

-- 
Nothing can be explained to a stone.
Or to a stoned person, either.