From: Johan Bockgård <bojohan@gnu.org>
Date: Tue, 11 Jan 2011 18:42:30 +0000 (+0100)
Subject: * lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~239^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=059616e5a8aa257d8959ad852418fe2f8cc50140;p=emacs.git

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

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