Function: unsafep-progn

unsafep-progn is a byte-compiled function defined in unsafep.el.gz.

Signature

(unsafep-progn LIST)

Documentation

Return nil if all forms in LIST are safe.

Else, return the reason for the first unsafe form.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/unsafep.el.gz
(defun unsafep-progn (list)
  "Return nil if all forms in LIST are safe.
Else, return the reason for the first unsafe form."
  (catch 'unsafep-progn
    (let (reason)
      (dolist (x list)
	(setq reason (unsafep x unsafep-vars))
	(if reason (throw 'unsafep-progn reason))))))