/[emacs]/emacs/lisp/emacs-lisp/unsafep.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/unsafep.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by JYavner, Sun Oct 27 16:35:06 2002 UTC revision 1.4 by lektu, Tue Feb 4 12:53:34 2003 UTC
# Line 212  of symbols with local bindings." Line 212  of symbols with local bindings."
212  (defun unsafep-function (fun)  (defun unsafep-function (fun)
213    "Return nil if FUN is a safe function    "Return nil if FUN is a safe function
214  \(either a safe lambda or a symbol that names a safe function).  Otherwise  \(either a safe lambda or a symbol that names a safe function).  Otherwise
215  result is a reason code."  result is a reason code."
216    (cond    (cond
217     ((eq (car-safe fun) 'lambda)     ((eq (car-safe fun) 'lambda)
218      (unsafep fun unsafep-vars))      (unsafep fun unsafep-vars))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26