Re: Why is defun not executed during load-file?

[Stefan Monnier]

> I just did not find a way to make it working. Now I have put more care
> and I got this to work:
>
> (defmacro hyperscope-generate-the-add-function-by-hyperdocument-type 
> (type-name id function-name)
>   (list 'defun function-name '()
>       (format "Add new `%s' hyperdocument to Hyperscope." type-name)
>       '(interactive)
>       '(let* ((parent (hyperscope-select-set))
>               (prompt ,(format "New `%s' hyperdocument name: " type-name))
>               (name (read-from-minibuffer prompt)))
>          (hlink-add-generic name "" ,id parent nil))))
>
> (defun hyperscope-generate-add-functions-by-hyperdocument-types ()
>   (let ((types (hyperscope-hyperdocument-types)))
>     (while types
>       (let* ((type (pop types))
>            (id (nth 0 type))
>            (type (nth 1 type))
>            (type-name type)
>            (type (downcase (string-replace " " "-" type)))
>            (function-name (format "hyperscope-add-new-%s-hyperdocument" 
> type)))
>       (insert "\n" type-name " " id " " function-name)
>       (hyperscope-generate-the-add-function-by-hyperdocument-type type-name 
> id function-name)))))
>
> (hyperscope-generate-add-functions-by-hyperdocument-types)

Try to `M-: macroexpand-all '(defun 
hyperscope-generate-add-functions-by-hyperdocument-types ...))
to see that your code doesn't do what you think:
`hyperscope-generate-add-functions-by-hyperdocument-types` needs to be
a macro.


        Stefan