From: yamaoka <yamaoka>
Date: Tue, 12 Dec 2006 08:20:54 +0000 (+0000)
Subject: (install-update-package-files): Use batch-update-directory-autoloads if it is
X-Git-Tag: apel-10_7~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11d69979d4e78a50896ad29b0a5efd4aeb7f68d5;p=elisp%2Fapel.git

(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
--- 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
--- 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))