Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 83b3d10dcba9
children 966663fcf606
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
70 load-path)))) 70 load-path))))
71 71
72 (setq load-warn-when-source-newer t ; Used to be set to nil at the end 72 (setq load-warn-when-source-newer t ; Used to be set to nil at the end
73 load-warn-when-source-only t) ; Set to nil at the end 73 load-warn-when-source-only t) ; Set to nil at the end
74 74
75 ;; Inserted for debugging. Something is corrupting a single symbol
76 ;; somewhere to have an integer 0 property list. -slb 6/28/1997.
77 (defun test-atoms ()
78 (mapatoms
79 #'(lambda (symbol)
80 (condition-case nil
81 (get symbol 'custom-group)
82 (t (princ
83 (format "Bad plist in %s, %s\n"
84 (symbol-name symbol)
85 (prin1-to-string (object-plist symbol)))))))))
86
87 ;; garbage collect after loading every file in an attempt to 75 ;; garbage collect after loading every file in an attempt to
88 ;; minimize the size of the dumped image (if we don't do this, 76 ;; minimize the size of the dumped image (if we don't do this,
89 ;; there will be lots of extra space in the data segment filled 77 ;; there will be lots of extra space in the data segment filled
90 ;; with garbage-collected junk) 78 ;; with garbage-collected junk)
91 (defun load-gc (file) 79 (defun load-gc (file)
95 ".el:" 83 ".el:"
96 ".elc:.el:")))) 84 ".elc:.el:"))))
97 (if full-path 85 (if full-path
98 (prog1 86 (prog1
99 (load full-path) 87 (load full-path)
100 ;; '(test-atoms)
101 '(garbage-collect)) 88 '(garbage-collect))
102 (external-debugging-output (format "\nLoad file %s: not found\n" 89 (external-debugging-output (format "\nLoad file %s: not found\n"
103 file)) 90 file))
104 nil))) 91 nil)))
105 92
158 ;; just debugging don't waste time finding doc strings. 145 ;; just debugging don't waste time finding doc strings.
159 146
160 ;; purify-flag is nil if called from loadup-el.el. 147 ;; purify-flag is nil if called from loadup-el.el.
161 (when purify-flag 148 (when purify-flag
162 (message "Finding pointers to doc strings...") 149 (message "Finding pointers to doc strings...")
163 ;; (test-atoms) ; Debug -- Doesn't happen here
164 (Snarf-documentation "DOC") 150 (Snarf-documentation "DOC")
165 ;; (test-atoms) ; Debug -- Doesn't happen here
166 (message "Finding pointers to doc strings...done") 151 (message "Finding pointers to doc strings...done")
167 (Verify-documentation) 152 (Verify-documentation)
168 ;; (test-atoms) ; Debug -- Doesn't happen here
169 ) 153 )
170 154
171 ;; Note: You can cause additional libraries to be preloaded 155 ;; Note: You can cause additional libraries to be preloaded
172 ;; by writing a site-init.el that loads them. 156 ;; by writing a site-init.el that loads them.
173 ;; See also "site-load" above. 157 ;; See also "site-load" above.
182 ;; Dump into the name `xemacs' (only) 166 ;; Dump into the name `xemacs' (only)
183 (when (member "dump" command-line-args) 167 (when (member "dump" command-line-args)
184 (message "Dumping under the name xemacs") 168 (message "Dumping under the name xemacs")
185 ;; This is handled earlier in the build process. 169 ;; This is handled earlier in the build process.
186 ;; (condition-case () (delete-file "xemacs") (file-error nil)) 170 ;; (condition-case () (delete-file "xemacs") (file-error nil))
187 (test-atoms)
188 (when (fboundp 'really-free) 171 (when (fboundp 'really-free)
189 (really-free)) 172 (really-free))
190 (test-atoms)
191 (dump-emacs "xemacs" "temacs") 173 (dump-emacs "xemacs" "temacs")
192 (test-atoms)
193 (kill-emacs)) 174 (kill-emacs))
194 175
195 (when (member "run-temacs" command-line-args) 176 (when (member "run-temacs" command-line-args)
196 (message "\nBootstrapping from temacs...") 177 (message "\nBootstrapping from temacs...")
197 (setq purify-flag nil) 178 (setq purify-flag nil)