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

059616e5 · Johan Bockgård · 04380ff1 · 059616e5 · 059616e5
Commit 059616e5 authored Jan 11, 2011 by Johan Bockgård
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/emacs-lisp/unsafep.el lisp/emacs-lisp/unsafep.el +3 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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)))))