Mercurial > hg > xemacs-beta

comparison lisp/update-elc-2.el @ 996:25e260cb7994

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 af57a77cbc92
children c08a6fa181d1
comparison
equal deleted inserted replaced
995:4575a219af58 996:25e260cb7994
144 (message "Recompiling updated .els in directory tree `%s'...done" dir) 144 (message "Recompiling updated .els in directory tree `%s'...done" dir)
145 ;; don't depend on being able to autoload `update-autoload-files'! 145 ;; don't depend on being able to autoload `update-autoload-files'!
146 (load "autoload") 146 (load "autoload")
147 (update-autoload-files (list dir)) 147 (update-autoload-files (list dir))
148 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0) 148 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0)
149 (if (featurep 'modules)
150 (let* ((moddir (expand-file-name "../modules" (file-truename dir)))
151 (generated-autoload-file
152 (expand-file-name "auto-autoloads.el" moddir)))
153 (update-autoload-files (directory-files moddir t nil nil 0) t)
154 (byte-recompile-file generated-autoload-file 0)))
149 (when (featurep 'mule) 155 (when (featurep 'mule)
150 (update-autoload-files (list (expand-file-name "mule" dir))) 156 (update-autoload-files (list (expand-file-name "mule" dir)))
151 (byte-recompile-file (expand-file-name "mule/auto-autoloads.el" dir) 0)) 157 (byte-recompile-file (expand-file-name "mule/auto-autoloads.el" dir) 0))
152 ;; likewise here. 158 ;; likewise here.
153 (load "cus-dep") 159 (load "cus-dep")