Mercurial > hg > xemacs-beta
comparison lisp/code-files.el @ 996:25e260cb7994
[xemacs-hg @ 2002-09-10 15:27:02 by james]
Enable unloading of dynamic modules. Create the first two internal XEmacs
modules: LDAP and postgreSQL. Update the sample directory to contain a
sample internal XEmacs module and a sample external XEmacs module. Improve
support for autoloading modules. Make internal module code compile into the
XEmacs binary if XEmacs is configured without module support. Make the
internal module directories self-contained so that they can be distributed
separately from XEmacs.
| author | james |
|---|---|
| date | Tue, 10 Sep 2002 15:27:39 +0000 |
| parents | 1e9272790fe0 |
| children | 184461bc8de4 |
comparison
equal
deleted
inserted
replaced
| 995:4575a219af58 | 996:25e260cb7994 |
|---|---|
| 271 ;; as normal | 271 ;; as normal |
| 272 buffer-file-coding-system-for-read) | 272 buffer-file-coding-system-for-read) |
| 273 )))) | 273 )))) |
| 274 ;; The file name is invalid, or we want to load a binary module | 274 ;; The file name is invalid, or we want to load a binary module |
| 275 (if (and (> (length filename) 0) | 275 (if (and (> (length filename) 0) |
| 276 (setq path (locate-file filename module-load-path | 276 (locate-file filename module-load-path |
| 277 (and (not nosuffix) | 277 (and (not nosuffix) |
| 278 '(".ell" ".dll" ".so" ""))))) | 278 '(".ell" ".dll" ".so" "")))) |
| 279 (if (featurep 'modules) | 279 (if (featurep 'modules) |
| 280 (let ((load-modules-quietly nomessage)) | 280 (let ((load-modules-quietly nomessage)) |
| 281 (load-module path)) | 281 (load-module filename)) |
| 282 (signal 'file-error '("This XEmacs does not support modules"))) | 282 (signal 'file-error '("This XEmacs does not support modules"))) |
| 283 (and (null noerror) | 283 (and (null noerror) |
| 284 (signal 'file-error (list "Cannot open load file" filename)))) | 284 (signal 'file-error (list "Cannot open load file" filename)))) |
| 285 )))) | 285 )))) |
| 286 | 286 |