Mercurial > emacs

diff lisp/emacs-lisp/unsafep.el @ 112191:bc72195ae573

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
author Johan Bockgård <bojohan@gnu.org>
date Tue, 11 Jan 2011 19:42:30 +0100
parents 0f9cd375624d
children 417b1e4d63cd
line wrap: on
line diff
--- 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)))))