procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Johan Bockgård 2011-01-11 19:42:30 +01:00
parent 04380ff1b8
commit 059616e5a8
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/unsafep.el
View file

@ -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)))))