commit:     7775d6825cd8a37cdcca83a062f7d09546981184
Author:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
AuthorDate: Sun May 18 14:37:31 2014 +0000
Commit:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
CommitDate: Sun May 18 14:37:31 2014 +0000
URL:        
http://git.overlays.gentoo.org/gitweb/?p=proj/emacs.git;a=commit;h=7775d682

elisp-common.eclass: Look for site-init files in site-gentoo.d only.

* elisp-common.eclass (elisp-site-regen): Look for site-init files
only in site-gentoo.d subdirectory.

---
 eclass/ChangeLog           |  7 ++++++-
 eclass/elisp-common.eclass | 14 +++-----------
 2 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/eclass/ChangeLog b/eclass/ChangeLog
index e46c0f1..34ffa34 100644
--- a/eclass/ChangeLog
+++ b/eclass/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-18  Ulrich Müller  <[email protected]>
+
+       * elisp-common.eclass (elisp-site-regen): Look for site-init files
+       only in site-gentoo.d subdirectory.
+
 2013-10-31  Ulrich Müller  <[email protected]>
 
        * elisp-common.eclass (elisp-site-regen): Don't create
@@ -794,5 +799,5 @@
 
        * elisp.eclass: Initial.
 
-Copyright 2002-2013 Gentoo Foundation
+Copyright 2002-2014 Gentoo Foundation
 Distributed under the terms of the GNU General Public License v2

diff --git a/eclass/elisp-common.eclass b/eclass/elisp-common.eclass
index d1e7fbb..12bbc00 100644
--- a/eclass/elisp-common.eclass
+++ b/eclass/elisp-common.eclass
@@ -1,4 +1,4 @@
-# Copyright 1999-2013 Gentoo Foundation
+# Copyright 1999-2014 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
 # $Header: $
 #
@@ -369,16 +369,8 @@ elisp-site-regen() {
 
        ebegin "Regenerating site-gentoo.el for GNU Emacs (${EBUILD_PHASE})"
 
-       for sf in "${sitelisp}"/[0-9][0-9]*-gentoo.el \
-               "${sitelisp}"/site-gentoo.d/[0-9][0-9]*.el
-       do
-               [[ -r ${sf} ]] || continue
-               # sort files by their basename. straight insertion sort.
-               for ((i=${#sflist[@]}; i>0; i--)); do
-                       [[ ${sf##*/} < ${sflist[i-1]##*/} ]] || break
-                       sflist[i]=${sflist[i-1]}
-               done
-               sflist[i]=${sf}
+       for sf in "${sitelisp}"/site-gentoo.d/[0-9][0-9]*.el; do
+               [[ -r ${sf} ]] && sflist+=("${sf}")
        done
 
        cat <<-EOF >"${T}"/site-gentoo.el

Reply via email to