From 11d69979d4e78a50896ad29b0a5efd4aeb7f68d5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 12 Dec 2006 08:20:54 +0000 Subject: [PATCH] (install-update-package-files): Use batch-update-directory-autoloads if it is available instead of batch-update-directory. --- ChangeLog | 6 ++++++ install.el | 11 +++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index edfe99b..ee14a5a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-12-12 Katsumi Yamaoka + + * 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 * 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)) -- 1.7.10.4