I have make a macro that creates dynamic functions:
(defmacro tjb-make-register-macro (func-name out-string)
(list 'defun func-name () '(interactive) (list 'insert out-string)))
;; This call succeeds [note abc1 is not defined]:
(tjb-make-register-macro abc1 "hello1")
;; These fail:
(tjb-make-register-macro (make-symbol "abc2") "hello2")
(tjb-make-register-macro (intern "abc2") "hello2")
;; I'm trying to write a function like this to call this macro dynamically
;; but this doesn't work:
(defun tjb-make-register (func-name out-string)
(interactive "sFunc-name:\nsfunc-out")
(tjb-make-register-macro ((intern func-name) out-string)))
How can I make an interactive function that correctly calls my macro.