Mercurial > hg > xemacs-beta
comparison lisp/update-elc-2.el @ 2548:c4c8a36043be
[xemacs-hg @ 2005-02-03 07:11:19 by ben]
behavior ws #4: package-suppress, autoload update/sync, add easy-mmode/regexp-opt to core
lread.c, lisp.h: Remove undeeded Vload_file_name_internal_the_purecopy,
Qload_file_name -- use internal_bind_lisp_object instead of
specbind.
Add load-suppress-alist.
* easy-mmode.el, regexp-opt.el:
Move these files into core.
Uncomment stuff depending on new custom.el.
autoload.el: Removed.
Major update. Sync with FSF 21.2.
Create the ability to make custom-defines files.
update-elc-2.el, update-elc.el: Rewrite to use new autoload API.
update-elc.el: Add easy-mmode.
| author | ben |
|---|---|
| date | Thu, 03 Feb 2005 07:11:28 +0000 |
| parents | 4542b72c005e |
| children | 9fec7fedbf1b |
comparison
equal
deleted
inserted
replaced
| 2547:a9527fcdf77f | 2548:c4c8a36043be |
|---|---|
| 147 ;; update-elc.el signals us to rebuild the autoloads when necessary. | 147 ;; update-elc.el signals us to rebuild the autoloads when necessary. |
| 148 ;; in some cases it will rebuild the autoloads itself, but doing it this | 148 ;; in some cases it will rebuild the autoloads itself, but doing it this |
| 149 ;; way is slow, so we avoid it when possible. | 149 ;; way is slow, so we avoid it when possible. |
| 150 (when (file-exists-p (expand-file-name "REBUILD_AUTOLOADS" | 150 (when (file-exists-p (expand-file-name "REBUILD_AUTOLOADS" |
| 151 invocation-directory)) | 151 invocation-directory)) |
| 152 (let ((generated-autoload-file (expand-file-name "auto-autoloads.el" dir)) | 152 ;; if we were instructed to rebuild the autoloads, force the file |
| 153 (autoload-package-name "auto")) ; feature prefix | 153 ;; to be touched even w/o changes; otherwise, we won't ever stop |
| 154 ;; if we were instructed to rebuild the autoloads, force the file | 154 ;; being told to rebuild them. |
| 155 ;; to be touched even w/o changes; otherwise, we won't ever stop | 155 (update-autoload-files dir "auto" nil t) |
| 156 ;; being told to rebuild them. | 156 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0) |
| 157 (update-autoload-files (list dir) nil t) | |
| 158 (byte-recompile-file generated-autoload-file 0)) | |
| 159 (when (featurep 'mule) | 157 (when (featurep 'mule) |
| 160 (let* ((muledir (expand-file-name "../lisp/mule" (file-truename dir))) | 158 (let ((muledir (expand-file-name "../lisp/mule" (file-truename dir)))) |
| 161 (generated-autoload-file | |
| 162 (expand-file-name "auto-autoloads.el" muledir)) | |
| 163 (autoload-package-name "mule")) ; feature prefix | |
| 164 ;; force here just like above. | 159 ;; force here just like above. |
| 165 (update-autoload-files (list muledir) nil t) | 160 (update-autoload-files muledir "mule" nil t) |
| 166 (byte-recompile-file generated-autoload-file 0)))) | 161 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0)))) |
| 167 (when (featurep 'modules) | 162 (when (featurep 'modules) |
| 168 (let* ((moddir (expand-file-name "../modules" (file-truename dir))) | 163 (let* ((moddir (expand-file-name "../modules" (file-truename dir))) |
| 169 (generated-autoload-file | 164 (autofile (expand-file-name "auto-autoloads.el" moddir))) |
| 170 (expand-file-name "auto-autoloads.el" moddir)) | 165 (update-autoload-files |
| 171 (autoload-package-name "modules")) ; feature prefix | |
| 172 (update-autoload-files | |
| 173 (delete (concat (file-name-as-directory moddir) ".") | 166 (delete (concat (file-name-as-directory moddir) ".") |
| 174 (delete (concat (file-name-as-directory moddir) "..") | 167 (delete (concat (file-name-as-directory moddir) "..") |
| 175 (directory-files moddir t nil nil 0))) | 168 (directory-files moddir t nil nil 0))) |
| 176 t) | 169 "modules" autofile) |
| 177 (byte-recompile-file generated-autoload-file 0))) | 170 (byte-recompile-file autofile 0))) |
| 178 ;; now load the (perhaps newly rebuilt) autoloads; we were called with | 171 ;; now load the (perhaps newly rebuilt) autoloads; we were called with |
| 179 ;; -no-autoloads so they're not already loaded. | 172 ;; -no-autoloads so they're not already loaded. |
| 180 (load (expand-file-name "auto-autoloads" lisp-directory)) | 173 (load (expand-file-name "auto-autoloads" lisp-directory)) |
| 181 (when (featurep 'mule) | 174 (when (featurep 'mule) |
| 182 (load (expand-file-name "mule/auto-autoloads" lisp-directory))) | 175 (load (expand-file-name "mule/auto-autoloads" lisp-directory))) |