Commit 059616e5 authored by Johan Bockgård's avatar Johan Bockgård

* lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.

parent 04380ff1
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.
......
......@@ -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)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment