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

4
lisp/ChangeLog
View file

@ -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> 2011-01-11 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/prolog.el: Fix up coding convention and such. * progmodes/prolog.el: Fix up coding convention and such.

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)) (dolist (x (nthcdr 3 form))
(setq reason (unsafep-progn (cdr x))) (setq reason (unsafep-progn (cdr x)))
(if reason (throw 'unsafep reason)))))) (if reason (throw 'unsafep reason))))))
((eq fun '\`)
;; Backquoted form - safe if its expansion is.
(unsafep (cdr (backquote-process (cadr form)))))
(t (t
;;First unsafep-function call above wasn't nil, no special case applies ;;First unsafep-function call above wasn't nil, no special case applies
reason))))) reason)))))