[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/unsafep.el, v [EMACS_22_B
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/unsafep.el, v [EMACS_22_BASE] |
Date: |
Mon, 29 Oct 2007 15:40:14 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Juanma Barranquero <lektu> 07/10/29 15:40:13
Index: unsafep.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/unsafep.el,v
retrieving revision 1.12.2.2
retrieving revision 1.12.2.3
diff -u -b -r1.12.2.2 -r1.12.2.3
--- unsafep.el 8 Aug 2007 07:15:42 -0000 1.12.2.2
+++ unsafep.el 29 Oct 2007 15:40:13 -0000 1.12.2.3
@@ -116,9 +116,9 @@
;;;###autoload
(defun unsafep (form &optional unsafep-vars)
- "Return nil if evaluating FORM couldn't possibly do any harm;
-otherwise result is a reason why FORM is unsafe. UNSAFEP-VARS is a list
-of symbols with local bindings."
+ "Return nil if evaluating FORM couldn't possibly do any harm.
+Otherwise result is a reason why FORM is unsafe.
+UNSAFEP-VARS is a list of symbols with local bindings."
(catch 'unsafep
(if (or (eq safe-functions t) ;User turned off safety-checking
(atom form)) ;Atoms are never unsafe
@@ -213,8 +213,8 @@
(defun unsafep-function (fun)
"Return nil if FUN is a safe function.
-\(either a safe lambda or a symbol that names a safe function). Otherwise
-result is a reason code."
+\(Either a safe lambda or a symbol that names a safe function).
+Otherwise result is a reason code."
(cond
((eq (car-safe fun) 'lambda)
(unsafep fun unsafep-vars))
@@ -226,8 +226,8 @@
`(function ,fun))))
(defun unsafep-progn (list)
- "Return nil if all forms in LIST are safe, or the reason
-for the first unsafe form."
+ "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)
@@ -236,8 +236,9 @@
(defun unsafep-let (clause)
"Check the safety of a let binding.
-CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL). Checks VAL
-and throws a reason to `unsafep' if unsafe. Returns SYM."
+CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL).
+Check VAL and throw a reason to `unsafep' if unsafe.
+Return SYM."
(let (reason sym)
(if (atom clause)
(setq sym clause)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/unsafep.el, v [EMACS_22_BASE],
Juanma Barranquero <=