Mercurial > hg > xemacs-beta
comparison lisp/prim/loadup.el @ 50:ee648375d8d6 r19-16b91
Import from CVS: tag r19-16b91
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:41 +0200 |
| parents | e04119814345 |
| children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
| 49:b46643e427ac | 50:ee648375d8d6 |
|---|---|
| 62 nil 'dirs-only) | 62 nil 'dirs-only) |
| 63 (cons temp-path load-path)))) | 63 (cons temp-path load-path)))) |
| 64 | 64 |
| 65 (setq load-warn-when-source-newer t ; set to nil at the end | 65 (setq load-warn-when-source-newer t ; set to nil at the end |
| 66 load-warn-when-source-only t) | 66 load-warn-when-source-only t) |
| 67 | |
| 68 ;; Inserted for debugging. Something is corrupting a single symbol | |
| 69 ;; somewhere to have an integer 0 property list. -slb 6/28/1997. | |
| 70 (defun test-atoms () | |
| 71 (mapatoms | |
| 72 #'(lambda (symbol) | |
| 73 (condition-case nil | |
| 74 (get symbol 'custom-group) | |
| 75 (t (princ | |
| 76 (format "Bad plist in %s, %s\n" | |
| 77 (symbol-name symbol) | |
| 78 (prin1-to-string (object-plist symbol))))))))) | |
| 67 | 79 |
| 68 ;; garbage collect after loading every file in an attempt to | 80 ;; garbage collect after loading every file in an attempt to |
| 69 ;; minimize the size of the dumped image (if we don't do this, | 81 ;; minimize the size of the dumped image (if we don't do this, |
| 70 ;; there will be lots of extra space in the data segment filled | 82 ;; there will be lots of extra space in the data segment filled |
| 71 ;; with garbage-collected junk) | 83 ;; with garbage-collected junk) |