kmacro-to-register

[Leo Liu]

Hi there,

I am thinking of adding a command kmacro-to-register which would allow
one to store kmacros in registers. Not a heavy user of kmacros I am
interested in knowing if this is generally useful.

I am undecided about the action to take for jump to such a register:

  Option 1: restore the kmacro in the register as current
  Option 2: just play the kmacro in the register

Sample code:
--------------------------------

(define-key kmacro-keymap "x" 'kmacro-to-register)

(defun kmacro-to-register (r)
  "Store last keyboard macro in a register R."
  (interactive "cLast keyboard macro to register: ")
  (set-register r (registerv-make
                   last-kbd-macro
                   :jump-func (lambda (v)
                                (let ((last-kbd-macro v))
                                  (call-last-kbd-macro)))
                   :print-func (lambda (v)
                                 (princ (format "a keyboard macro:\n   %s"
                                                (format-kbd-macro v))))
                   :insert-func (lambda (v)
                                  (insert (format-kbd-macro v))))))

Leo