Mercurial > hg > xemacs-beta

comparison lisp/prim/loadup.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 0132846995bd
children b405438285a2
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
64 (cons temp-path load-path)))) 64 (cons temp-path load-path))))
65 65
66 (setq load-warn-when-source-newer t ; set to nil at the end 66 (setq load-warn-when-source-newer t ; set to nil at the end
67 load-warn-when-source-only t) 67 load-warn-when-source-only t)
68 68
69 ;; Inserted for debugging. Something is corrupting a single symbol
70 ;; somewhere to have an integer 0 property list. -slb 6/28/1997.
71 (defun test-atoms ()
72 (mapatoms
73 #'(lambda (symbol)
74 (condition-case nil
75 (get symbol 'custom-group)
76 (t (princ
77 (format "Bad plist in %s, %s\n"
78 (symbol-name symbol)
79 (prin1-to-string (object-plist symbol)))))))))
80
69 ;; garbage collect after loading every file in an attempt to 81 ;; garbage collect after loading every file in an attempt to
70 ;; minimize the size of the dumped image (if we don't do this, 82 ;; minimize the size of the dumped image (if we don't do this,
71 ;; there will be lots of extra space in the data segment filled 83 ;; there will be lots of extra space in the data segment filled
72 ;; with garbage-collected junk) 84 ;; with garbage-collected junk)
73 (defmacro load-gc (file) 85 (defmacro load-gc (file)
74 (list 'prog1 (list 'load file) '(garbage-collect))) 86 (list 'prog1 (list 'load file)
87 ;; '(test-atoms)
88 '(garbage-collect)))
75 ;; Need a minimal number hardcoded to get going for now. 89 ;; Need a minimal number hardcoded to get going for now.
76 ;; (load-gc "backquote") ; needed for defsubst etc. 90 ;; (load-gc "backquote") ; needed for defsubst etc.
77 ;; (load-gc "bytecomp-runtime") ; define defsubst 91 ;; (load-gc "bytecomp-runtime") ; define defsubst
78 ;; (load-gc "subr") ; load the most basic Lisp functions 92 ;; (load-gc "subr") ; load the most basic Lisp functions
79 ;; (load-gc "replace") ; match-string used in version.el. 93 ;; (load-gc "replace") ; match-string used in version.el.
128 ;; just debugging don't waste time finding doc strings. 142 ;; just debugging don't waste time finding doc strings.
129 143
130 ;; purify-flag is nil if called from loadup-el.el. 144 ;; purify-flag is nil if called from loadup-el.el.
131 (when purify-flag 145 (when purify-flag
132 (message "Finding pointers to doc strings...") 146 (message "Finding pointers to doc strings...")
147 ;; (test-atoms) ; Debug -- Doesn't happen here
133 (Snarf-documentation "DOC") 148 (Snarf-documentation "DOC")
149 ;; (test-atoms) ; Debug -- Doesn't happen here
134 (message "Finding pointers to doc strings...done") 150 (message "Finding pointers to doc strings...done")
135 (Verify-documentation)) 151 (Verify-documentation)
152 ;; (test-atoms) ; Debug -- Doesn't happen here
153 )
136 154
137 ;; Note: You can cause additional libraries to be preloaded 155 ;; Note: You can cause additional libraries to be preloaded
138 ;; by writing a site-init.el that loads them. 156 ;; by writing a site-init.el that loads them.
139 ;; See also "site-load" above. 157 ;; See also "site-load" above.
140 (if (stringp site-start-file) 158 (if (stringp site-start-file)