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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 71bf97b099734608f57cc62dd37830951a6643fc..0c3f09e157bff197453c6d8be3ba9752888fad55 100644 (file)
--- 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 a62f8de4010c95f1f371ac3dbb6b32b0eeeea8ef..6484969541fefcbc2c4efd3bc01d4de8c878941b 100644 (file)
--- 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)))))