Mercurial > hg > xemacs-beta

diff lisp/update-elc-2.el @ 2548:c4c8a36043be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- a/lisp/update-elc-2.el	Thu Feb 03 06:14:40 2005 +0000
+++ b/lisp/update-elc-2.el	Thu Feb 03 07:11:28 2005 +0000
@@ -149,32 +149,25 @@
     ;; way is slow, so we avoid it when possible.
     (when (file-exists-p (expand-file-name "REBUILD_AUTOLOADS"
 					   invocation-directory))
-      (let ((generated-autoload-file (expand-file-name "auto-autoloads.el" dir))
-	    (autoload-package-name "auto")) ; feature prefix
-	;; if we were instructed to rebuild the autoloads, force the file
-	;; to be touched even w/o changes; otherwise, we won't ever stop
-	;; being told to rebuild them.
-	(update-autoload-files (list dir) nil t)
-	(byte-recompile-file generated-autoload-file 0))
+      ;; if we were instructed to rebuild the autoloads, force the file
+      ;; to be touched even w/o changes; otherwise, we won't ever stop
+      ;; being told to rebuild them.
+      (update-autoload-files dir "auto" nil t)
+      (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0)
       (when (featurep 'mule)
-	(let* ((muledir (expand-file-name "../lisp/mule" (file-truename dir)))
-	       (generated-autoload-file
-		(expand-file-name "auto-autoloads.el" muledir))
-	       (autoload-package-name "mule")) ; feature prefix
+	(let ((muledir (expand-file-name "../lisp/mule" (file-truename dir))))
 	  ;; force here just like above.
-	  (update-autoload-files (list muledir) nil t)
-	  (byte-recompile-file generated-autoload-file 0))))
+	  (update-autoload-files muledir "mule" nil t)
+	  (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0))))
     (when (featurep 'modules)
       (let* ((moddir (expand-file-name "../modules" (file-truename dir)))
-	     (generated-autoload-file
-	      (expand-file-name "auto-autoloads.el" moddir))
-	     (autoload-package-name "modules")) ; feature prefix
-	(update-autoload-files
+	     (autofile (expand-file-name "auto-autoloads.el" moddir)))
+	(update-autoload-files 
 	 (delete (concat (file-name-as-directory moddir) ".")
 		 (delete (concat (file-name-as-directory moddir) "..")
 			 (directory-files moddir t nil nil 0)))
-	 t)
-	(byte-recompile-file generated-autoload-file 0)))
+	 "modules" autofile)
+	(byte-recompile-file autofile 0)))
     ;; now load the (perhaps newly rebuilt) autoloads; we were called with
     ;; -no-autoloads so they're not already loaded.
     (load (expand-file-name "auto-autoloads" lisp-directory))