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

[Stefan Monnier <monnier@iro.umontreal.ca>]

> 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