docomp.el

   1 (setq load-path (append (list (expand-file-name "./") )
   2                         load-path))
   3
   4 (setq max-specpdl-size (* 10 max-specpdl-size)
   5       max-lisp-eval-depth (* 10 max-lisp-eval-depth))
   6
   7 (load "bytecomp" t t nil)
   8 (setq byte-compile-warnings '(obsolete redefine callargs); free-vars unresolved
   9       byte-optimize t
  10       )
  11
  12 (require 'cl)