Re: theme and a question about creating them

[Stefan Monnier]

>>> unsafep does not allow \`
>> I can't think of a reason why backquote wouldn't be safe, so it sounds
>> like it's just missing from the list of safe forms.  Or maybe it's the
>> general handling of macros which is at stake, but in any case it
>> shouldn't be unsolvable.
> 2011-01-07  Johan Bockgård  <address@hidden>
>       * emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.

> diff --git a/lisp/emacs-lisp/unsafep.el b/lisp/emacs-lisp/unsafep.el
> index a62f8de..5dee2af 100644
> --- a/lisp/emacs-lisp/unsafep.el
> +++ b/lisp/emacs-lisp/unsafep.el
> @@ -202,6 +202,9 @@ UNSAFEP-VARS is a list of symbols with local bindings."
>             (dolist (x (nthcdr 3 form))
>               (setq reason (unsafep-progn (cdr x)))
>               (if reason (throw 'unsafep reason))))))
> +       ((eq fun '\`)
> +     ;; Backquoted form - safe if its expansion is.
> +     (unsafep (cdr (backquote-process (cadr form)))))

Yes, that looks fine.  Feel free to install this patch, thanks.


        Stefan