Need help with a simple macro to define a new function

Need help with a simple macro to define a new function

[Lennart Borgman (gmail)]

Can someone please explain how to write this:

(defmacro new-defun (function)
   (declare (doc-string 3))
   (let* ((name (symbol-name function))
          (new-name (concat "new-" name))
          (new-sym (make-symbol new-name)))
     `(defun ,new-sym ()
        (interactive)
        (message "new function")(sit-for 2)
        (call-interactively ,function))))

(new-defun forward-char)

I expected a new function named new-forward-char, but that did not happen.

Re: Need help with a simple macro to define a new function

[Davis Herring]

>           (new-sym (make-symbol new-name)))

Surely you want the new symbol to be interned, so that it can be read? 
Then you want (intern new-name).  (This also allows you to re-use an
existing "new-foo" symbol if it exists, which again you surely want.)

> I expected a new function named new-forward-char, but that did not happen.

What happened instead?  Perhaps you simply mean that (fboundp
'new-forward-char) was nil afterwards, which would be a result of your
uninterned symbol.  But maybe you mean something else?

Davis

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.

Re: Need help with a simple macro to define a new function

[Lennart Borgman (gmail)]

Davis Herring wrote:
>>           (new-sym (make-symbol new-name)))
> 
> Surely you want the new symbol to be interned, so that it can be read? 
> Then you want (intern new-name).  (This also allows you to re-use an
> existing "new-foo" symbol if it exists, which again you surely want.)


Thanks, that was the problem.