[Emacs-diffs] /srv/bzr/emacs/trunk r102820: * lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.

[Johan Bockgård]

------------------------------------------------------------
revno: 102820
committer: Johan Bockgård <address@hidden>
branch nick: trunk
timestamp: Tue 2011-01-11 19:42:30 +0100
message:
  * lisp/emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/unsafep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-11 05:07:32 +0000
+++ b/lisp/ChangeLog    2011-01-11 18:42:30 +0000
@@ -1,3 +1,7 @@
+2011-01-11  Johan Bockgård  <address@hidden>
+
+       * emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
+
 2011-01-11  Stefan Monnier  <address@hidden>
 
        * progmodes/prolog.el: Fix up coding convention and such.

=== modified file 'lisp/emacs-lisp/unsafep.el'
--- a/lisp/emacs-lisp/unsafep.el        2010-10-18 17:28:20 +0000
+++ b/lisp/emacs-lisp/unsafep.el        2011-01-11 18:42:30 +0000
@@ -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)))))