Re: eval trouble

[Lennart Borgman (gmail)]

Lennart Borgman (gmail) wrote:
> I expected the code below to give me a function named
> mumamo-repl4-my-own9-mode. It does not. Can someone please explain what
> I am doing wrong?
> 
> Interestingly if I do describe-variable on xx and then use the shown value t
> 
>   (setq xx THE-SHOWN-VALUE
> 
> then
> 
>    (eval xx)
> 
> does what I want.
> 
> Here is the code that does NOT work:
> 
> (defun mumamo-define-no-mode (mode-sym)
>   (let ((mumamo-repl4 (make-symbol (format "mumamo-repl4-%s" mode-sym)))

It works if I replace make-symbol with intern. But why does eval care
about that?

>         (lighter (format "No %s" mode-sym))
>         (doc
>          (format
>         "MuMaMo replacement for the mode %s which was not found."
>           mode-sym)))
>     (setq xx
>       `(define-derived-mode ,mumamo-repl4 fundamental-mode ,lighter ,doc))
>     (message "xx=%s" (pp-to-string xx))
>     (eval xx)
>     ))
> 
> (mumamo-define-no-mode 'my-own9-mode)
> 
> 
>