diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2011-01-11 19:42:30 +0100 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2011-01-11 19:42:30 +0100 |
| commit | 059616e5a8aa257d8959ad852418fe2f8cc50140 (patch) | |
| tree | d4d62c0d8c2d32688484de1ca273e1466d808d80 /lisp | |
| parent | 04380ff1b8d938ff37e370ba7305d38ab7671cb7 (diff) | |
| download | emacs-059616e5a8aa257d8959ad852418fe2f8cc50140.tar.gz | |
* lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/unsafep.el | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 71bf97b0997..0c3f09e157b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-01-11 Johan Bockgård <bojohan@gnu.org> + + * emacs-lisp/unsafep.el (unsafep): Handle backquoted forms. + 2011-01-11 Stefan Monnier <monnier@iro.umontreal.ca> * progmodes/prolog.el: Fix up coding convention and such. diff --git a/lisp/emacs-lisp/unsafep.el b/lisp/emacs-lisp/unsafep.el index a62f8de4010..6484969541f 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))))) (t ;;First unsafep-function call above wasn't nil, no special case applies reason))))) |