home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / alt / lucidem / help / 279 < prev    next >
Encoding:
Text File  |  1992-08-16  |  3.4 KB  |  161 lines

  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!boulder!news!grunwald
  3. From: grunwald@goober.cs.colorado.edu (Dirk Grunwald)
  4. Subject: Error in init file: error: "Lisp nesting exceeds max-lisp-eval-depth"
  5. Message-ID: <GRUNWALD.92Aug16100930@goober.cs.colorado.edu>
  6. Sender: news@colorado.edu (The Daily Planet)
  7. Nntp-Posting-Host: goober.cs.colorado.edu
  8. Reply-To: grunwald@foobar.cs.colorado.edu
  9. Organization: University of Colorado at Boulder
  10. Date: 16 Aug 92 10:09:30
  11. Lines: 148
  12.  
  13.  
  14. I attempted to preload much of the lisp software using the site-load
  15. appended below.
  16.  
  17. Once I did that, I started getting the message
  18.  
  19. Error in init file: error: "Lisp nesting exceeds max-lisp-eval-depth"
  20.  
  21. when I started lemacs. So, I uncommented the preloading & I *still*
  22. get this message. I must have screwed up something, but don't know
  23. what. Any ideas?
  24.  
  25. Also, it turns out you can't preload some things because they complain
  26. about needing to run under an X display - things like ange-ftp,
  27. dired-x and so forth.
  28.  
  29. Any help appreciated.
  30.  
  31. Here's my site-load.el--
  32.  
  33. ;;
  34. ;;    site-load.el for SRL lucid emacs
  35. ;;
  36. (defun loadup::load-list (doit list)
  37.   (if doit
  38.       (if (not (null list))
  39.       (progn
  40.         (load (car list))
  41.         (garbage-collect)
  42.         (print pure-bytes-used)
  43.         (loadup::load-list doit (cdr list))
  44.         )
  45.     )
  46.     )
  47. )
  48.  
  49. (loadup::load-list 't
  50.  '("gnus" "gnusmail" "gnusmisc" "gnuspost"
  51.    "nntp" "gnus-mark" "gnus-hide-quote" ) ; timezone 
  52.  )
  53.  
  54. (loadup::load-list 't
  55. '( "vm-delete" "vm-edit" "vm-folder" "vm-group" 
  56.    "vm-mark" "vm-message" "vm-misc" "vm-motion" "vm-page" "vm-save"
  57.    "vm-search" "vm-summary" "vm-undo" "vm-vars" "vm-window"
  58.  )
  59. )
  60.  
  61. (loadup::load-list 't
  62.     '( "dired" "dired-cd" "dired-cwd" "dired-link" "dired-num" 
  63.        "dired-rcs" "dired-trns" ); "ange-ftp"  -- can't preload?
  64. )
  65.  
  66. ;;
  67. ;; CMU shell
  68. (loadup::load-list 't
  69.  '( "comint" "shell" )
  70.  )
  71.  
  72. (loadup::load-list 't
  73.            '( "bytecomp" "bytecomp-runtime" "byte-optimize")
  74. )
  75.  
  76. ;;
  77. ;; built-ins we use a lot...
  78. ;;
  79. (loadup::load-list 't
  80.            '( 
  81.              ;;
  82.              ;; modes
  83.              ;;
  84.  
  85.              "dabbrev" "c-mode"
  86.              "c++-mode""sendmail" "c-style"
  87.              ;;
  88.              ;; Packages
  89.              ;;
  90.              "webster" "compile" "info"  "man"  
  91.              "apropos" "edebug" "info" "mh-e"
  92.              ;;
  93.              ;; from prim
  94.              ;;
  95.              "rect" "register"    ; "timer"
  96.              ;;
  97.              ;; utils
  98.              ;;
  99.              "backquote"
  100.              )
  101.            )
  102.  
  103. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  104. ;; Localisms...
  105. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106.  
  107. (setq old-load-path load-path)
  108.  
  109. (defun loadup::add (path)
  110.   (setq load-path (cons path load-path))
  111.   )
  112.  
  113. (let* ((local-gnu "/srl/Lucid19/local"))
  114.   (loadup::add (concat local-gnu "/VorTeX/"))
  115.   (loadup::add (concat local-gnu "/SC-2.2/"))
  116.   (loadup::add local-gnu)
  117.   )
  118.  
  119. ;;
  120. ;; VorTeX -- Load first because it used to define fill-paragraph
  121. ;; and we want to over-ride that with filladapt.elc
  122. ;;
  123. (loadup::load-list 't
  124.  '( 
  125.    "TeX-mode" "TeX-custom" "TeX-misc" "TeX-match" "TeX-spell" 
  126.    ;;    "BibTeX-abv" "BibTeX-misc" "BibTeX-mode" "BibTeX-ops"
  127.    ;;    "TeX-bib"
  128.    )
  129.  )
  130.  
  131. ;;
  132. ;; Supercite
  133. ;;
  134. (loadup::load-list 't
  135.  '( "sc" "sc-alist" "sc-electric" )
  136.  )
  137.  
  138. ;;
  139. ;; Random shit
  140. ;;
  141. (loadup::load-list 't
  142.  '( "crypt" "electric-minibuffer" "filladapt" ;  "ps-mode"
  143.     )
  144.  )
  145.  
  146. ;;
  147. ;; Clean up after ourselves..
  148. ;;
  149.  
  150.  
  151. (setq load-path old-load-path)
  152.  
  153. (makunbound 'old-load-path)
  154. (fmakunbound 'loadup::load-list)
  155. (fmakunbound 'loadup::add)
  156.  
  157. (garbage-collect)
  158. (print pure-bytes-used)
  159. (garbage-collect)
  160.  
  161.