# HG changeset patch
# User Johan Bockg���rd <bojohan@gnu.org>
# Date 1294771350 -3600
# Node ID bc72195ae573dd93e6d6fa3ed95ef8ff3f8376ca
# Parent  0bfc368650941c0691934125e0d3395b545c692b
* lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.

diff -r 0bfc36865094 -r bc72195ae573 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jan 11 00:07:32 2011 -0500
+++ b/lisp/ChangeLog	Tue Jan 11 19:42:30 2011 +0100
@@ -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 -r 0bfc36865094 -r bc72195ae573 lisp/emacs-lisp/unsafep.el
--- a/lisp/emacs-lisp/unsafep.el	Tue Jan 11 00:07:32 2011 -0500
+++ b/lisp/emacs-lisp/unsafep.el	Tue Jan 11 19:42:30 2011 +0100
@@ -202,6 +202,9 @@
 	      (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)))))