Mercurial > emacs
comparison lisp/emacs-lisp/unsafep.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | c8f5ce92a086 |
| children | c195b419ef52 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 210 | 210 |
| 211 | 211 |
| 212 (defun unsafep-function (fun) | 212 (defun unsafep-function (fun) |
| 213 "Return nil if FUN is a safe function | 213 "Return nil if FUN is a safe function |
| 214 \(either a safe lambda or a symbol that names a safe function). Otherwise | 214 \(either a safe lambda or a symbol that names a safe function). Otherwise |
| 215 result is a reason code." | 215 result is a reason code." |
| 216 (cond | 216 (cond |
| 217 ((eq (car-safe fun) 'lambda) | 217 ((eq (car-safe fun) 'lambda) |
| 218 (unsafep fun unsafep-vars)) | 218 (unsafep fun unsafep-vars)) |
| 219 ((not (and (symbolp fun) | 219 ((not (and (symbolp fun) |
| 220 (or (get fun 'side-effect-free) | 220 (or (get fun 'side-effect-free) |