diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-01-11 21:57:19 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-01-11 21:57:19 -0800 |
| commit | 7ea547574105f338c900d0c59390287c750a18c0 (patch) | |
| tree | ebe2282d83447c9ecf34177320a2915e2201271d /lisp/emacs-lisp/unsafep.el | |
| parent | e8c53d3abf2f23dc40ed2bc748678025d5b5a5bc (diff) | |
| parent | 529ee9edf2fd51f3e53f1fc4f7a9ba1859b0af99 (diff) | |
| download | emacs-7ea547574105f338c900d0c59390287c750a18c0.tar.gz emacs-7ea547574105f338c900d0c59390287c750a18c0.tar.bz2 emacs-7ea547574105f338c900d0c59390287c750a18c0.zip | |
Merge from mainline.
Diffstat (limited to 'lisp/emacs-lisp/unsafep.el')
| -rw-r--r-- | lisp/emacs-lisp/unsafep.el | 3 |
1 files changed, 3 insertions, 0 deletions
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))))) |