(install-update-package-files): Use batch-update-directory-autoloads if it is

 available instead of batch-update-directory.

diff --git a/ChangeLog b/ChangeLog
index edfe99b..ee14a5a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-12-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * install.el (install-update-package-files): Use
+       batch-update-directory-autoloads if it is available instead of
+       batch-update-directory.
+
 2006-12-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * APEL-MK (config-apel-package): Check for

diff --git a/install.el b/install.el
index be59a05..10b3a38 100644 (file)
--- a/install.el
+++ b/install.el
@@ -244,10 +244,13 @@
     (princ (format "Wrote %s\n"
                   (expand-file-name "custom-load.elc" dir))))
    (t
-    (setq autoload-package-name package)
-
-    (let ((command-line-args-left (list dir)))
-      (batch-update-directory))
+    (if (fboundp 'batch-update-directory-autoloads)
+       ;; XEmacs 21.5.19 and newer.
+       (let ((command-line-args-left (list package dir)))
+         (batch-update-directory-autoloads))
+      (setq autoload-package-name package)
+      (let ((command-line-args-left (list dir)))
+       (batch-update-directory)))
 
     (let ((command-line-args-left (list dir)))
       (Custom-make-dependencies))