[Erbot-cvs] Changes to erbot/erblisp.el

[D . Goel]

Index: erbot/erblisp.el
diff -u erbot/erblisp.el:1.14 erbot/erblisp.el:1.15
--- erbot/erblisp.el:1.14       Wed Nov  9 01:42:02 2005
+++ erbot/erblisp.el    Fri Nov 11 18:31:57 2005
@@ -1,5 +1,5 @@
 ;;; erblisp.el --- 
-;; Time-stamp: <2005-09-02 14:18:07 deego>
+;; Time-stamp: <2005-11-11 13:28:55 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erblisp.el
@@ -92,9 +92,11 @@
 \(setq &rest (shell-command \"rm -rf /\")) in your .emacs."
 )
 
-(defvar erblisp-max-list-length 100)
+(defvar erblisp-max-list-length 2000
+  "If non-numeric, we will skip this check."
+  )
 
-(defun erblisp-safe-length (list so-far len)
+(defun erblisp-safe-length-args-p (list so-far len)
   (let ((cur list)
        stack)
     (while (and cur
@@ -112,7 +114,9 @@
       nil)))
 
 (defun erblisp-check-args (&rest args)
-  (if (erblisp-safe-length args 0 erblisp-max-list-length)
+  (if (or 
+       (not (numberp erblisp-max-list-length))
+       (erblisp-safe-length-args-p args 0 erblisp-max-list-length))
       t
     (error "encountered overlong expression, ignoring")
     nil))