Mercurial > hg > xemacs-beta

comparison lisp/update-elc-2.el @ 1232:c08a6fa181d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-23 11:38:56 by stephent] commit notice <87lm1cksms.fsf@tleepslib.sk.tsukuba.ac.jp> autoloads patch <87lm1ig654.fsf@tleepslib.sk.tsukuba.ac.jp> Martin's info.el patch <877kd5je7e.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 23 Jan 2003 11:39:01 +0000
parents 25e260cb7994
children 465bd3c7d932
comparison
equal deleted inserted replaced
1231:3f6adebda25c 1232:c08a6fa181d1
142 (message "Recompiling updated .els in directory tree `%s'..." dir) 142 (message "Recompiling updated .els in directory tree `%s'..." dir)
143 (do-update-elc-2 dir t nil) 143 (do-update-elc-2 dir t nil)
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 ;; #### the API used here is deprecated, convert to one with explicit
148 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0) 148 ;; arguments when it is available
149 (if (featurep 'modules) 149 (let ((generated-autoload-file (expand-file-name "auto-autoloads.el" dir))
150 (autoload-package-name "auto")) ; feature prefix
151 (update-autoload-files (list dir))
152 (byte-recompile-file generated-autoload-file 0))
153 (when (featurep 'modules)
150 (let* ((moddir (expand-file-name "../modules" (file-truename dir))) 154 (let* ((moddir (expand-file-name "../modules" (file-truename dir)))
151 (generated-autoload-file 155 (generated-autoload-file
152 (expand-file-name "auto-autoloads.el" moddir))) 156 (expand-file-name "auto-autoloads.el" moddir))
153 (update-autoload-files (directory-files moddir t nil nil 0) t) 157 (autoload-package-name "modules")) ; feature prefix
158 (update-autoload-files
159 (delete (concat (file-name-as-directory moddir) ".")
160 (delete (concat (file-name-as-directory moddir) "..")
161 (directory-files moddir t nil nil 0)))
162 t)
154 (byte-recompile-file generated-autoload-file 0))) 163 (byte-recompile-file generated-autoload-file 0)))
155 (when (featurep 'mule) 164 (when (featurep 'mule)
156 (update-autoload-files (list (expand-file-name "mule" dir))) 165 (let* ((muledir (expand-file-name "../modules" (file-truename dir)))
157 (byte-recompile-file (expand-file-name "mule/auto-autoloads.el" dir) 0)) 166 (generated-autoload-file
167 (expand-file-name "auto-autoloads.el" muledir))
168 (autoload-package-name "mule")) ; feature prefix
169 (update-autoload-files (list muledir))
170 (byte-recompile-file generated-autoload-file 0)))
158 ;; likewise here. 171 ;; likewise here.
159 (load "cus-dep") 172 (load "cus-dep")
160 (Custom-make-dependencies dir) 173 (Custom-make-dependencies dir)
161 (byte-recompile-file (expand-file-name "custom-load.el" dir) 0) 174 (byte-recompile-file (expand-file-name "custom-load.el" dir) 0)
162 (when (featurep 'mule) 175 (when (featurep 'mule)