From fe532decdbcf0ba8e89c48834cd063880f00583e Mon Sep 17 00:00:00 2001
From: David Bremner <bremner@debian.org>
Date: Sat, 19 Dec 2015 14:13:50 -0400
Subject: add --fix-autoload-date option to dh_elpa

---
 dh_elpa.in | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

(limited to 'dh_elpa.in')

diff --git a/dh_elpa.in b/dh_elpa.in
index d0938bc..1cc9377 100755
--- a/dh_elpa.in
+++ b/dh_elpa.in
@@ -37,6 +37,7 @@ List of files to be installed into I<package> as an elpa package.
 
 init(options => {
 	"byte-compile!" => \$dh{BYTECOMPILE},
+	"fix-autoload-date!" => \$dh{FIXAUTOLOADDATE},
 });
 
 =head1 OPTIONS
@@ -51,6 +52,15 @@ to one that is found by the emacs package system.
 
 =back
 
+=over 4
+
+=item B<--fix-autoload-date>, B<--no--fix-autoload-date>
+
+Enable (default) or disable munging the dates in Emacs generated
+autoload files to match debian/changelog.
+
+=back
+
 =cut
 
 sub doit_quietly {
@@ -136,6 +146,7 @@ sub maybe_install_helper{
 }
 
 $dh{BYTECOMPILE} = 1 unless defined($dh{BYTECOMPILE});
+$dh{FIXAUTOLOADDATE} = 1 unless defined($dh{FIXAUTOLOADDATE});
 
 my $elpadir;
 
@@ -181,6 +192,12 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
   my $tempdir = "${cwd}/debian/.debhelper/elpa";
   my $helper_version = '@HELPER_VERSION@';
 
+  my @extra_args = ( $tempdir );
+
+  if ($dh{FIXAUTOLOADDATE}) {
+    push @extra_args, get_source_date_epoch();
+  }
+
   File::Path::rmtree $tempdir ||
       error "cleaning $tempdir";
 
@@ -196,7 +213,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		   '--eval',"(add-to-list 'package-directory-list \"$dhelpadir\")",
 		   '--eval',"(add-to-list 'package-directory-list \"$elpadir\")",
 		   qw{-f package-initialize -l dh-elpa.el},
-		   qw{-f dhelpa-batch-install-file}, "$tmp/$elpadir", $pkg_file, $tempdir);
+		   qw{-f dhelpa-batch-install-file}, "$tmp/$elpadir", $pkg_file, @extra_args);
   } else {
     my $stagedir = "$tempdir/$elpapkg";
     File::Path::make_path $stagedir ||
@@ -213,7 +230,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		 '--eval',"(add-to-list 'package-directory-list \"$elpadir\")",
 		 qw{-f package-initialize -l dh-elpa.el},
 		 qw{-f dhelpa-batch-install-directory},
-		 "$tmp/$elpadir", $stagedir, $tempdir);
+		 "$tmp/$elpadir", $stagedir, @extra_args);
 
   }
 
-- 
cgit v1.2.3