gentoo-x86/eclass/elisp-common.eclass

# Copyright 1999-2007 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/elisp-common.eclass,v 1.24 2007/07/10 20:14:52 ulm Exp $
#
# Copyright 2007 Christian Faulhammer <opfer@gentoo.org>
# Copyright 2002-2004 Matthew Kennedy <mkennedy@gentoo.org>
# Copyright 2004-2005 Mamoru Komachi <usata@gentoo.org>
# Copyright 2003 Jeremy Maitin-Shepard <jbms@attbi.com>
# Copyright 2007 Ulrich Mueller <ulm@gentoo.org>
#
# @ECLASS: elisp-common.eclass
# @MAINTAINER:
# Feel free to contact the Emacs team through emacs@gentoo.org if you have
# problems, suggestions or questions.
# @BLURB: Emacs-related installation utilities
# @DESCRIPTION:
#
# Usually you want to use this eclass for (optional) GNU Emacs support of
# your package.  This is NOT for XEmacs!
#
# Many of the steps here are sometimes done by the build system of your
# package (especially compilation), so this is mainly for standalone elisp
# files you gathered from somewhere else.
#
# When relying on the emacs USE flag, you need to add
#
#               emacs? ( virtual/emacs )
#
# to your DEPEND/RDEPEND line and use the functions provided here to bring
# the files to the correct locations.
#
# .SS
# src_compile() usage:
#
# An elisp file is compiled by the elisp-compile() function defined here and
# simply takes the source files as arguments.
#
#               elisp-compile *.el || die "elisp-compile failed"
#
# In the case of interdependent elisp files, you can use the elisp-comp()
# function which makes sure all files are loadable.
#
#               elisp-comp *.el || die "elisp-comp failed"
#
# Function elisp-make-autoload-file() can be used to generate a file with
# autoload definitions for the lisp functions.  It takes the output file name
# (default: "${PN}-autoloads.el") and a list of directories (default: working
# directory) as its arguments.  Use of this function requires that the elisp
# source files contain magic ";;;###autoload" comments. See the Emacs Lisp
# Reference Manual (node "Autoload") for a detailed explanation.
#
# .SS
# src_install() usage:
#
# The resulting compiled files (.elc) should be put in a subdirectory of
# /usr/share/emacs/site-lisp/ which is named after the first argument
# of elisp-install().  The following parameters are the files to be put in
# that directory.  Usually the subdirectory should be ${PN}, you can choose
# something else, but remember to tell elisp-site-file-install() (see below)
# the change, as it defaults to ${PN}.
#
#               elisp-install ${PN} *.el *.elc || die "elisp-install failed"
#
# To let the Emacs support be activated by Emacs on startup, you need
# to provide a site file (shipped in ${FILESDIR}) which contains the startup
# code (have a look in the documentation of your software).  Normally this
# would look like this:
#
# .nf
#               ;;; csv-mode site-lisp configuration
#
#               (add-to-list 'load-path "@SITELISP@")
#               (add-to-list 'auto-mode-alist '("\\.csv\\'" . csv-mode))
#               (autoload 'csv-mode "csv-mode" "Major mode for csv files." t)
# .fi
#
# If your Emacs support files are installed in a subdirectory of
# /usr/share/emacs/site-lisp/ (which is recommended if more than one file is
# installed), you need to extend Emacs' load-path as shown in the first
# non-comment.  The elisp-site-file-install() function of this eclass will
# replace "@SITELISP@" by the actual path.
#
# The next line tells Emacs to load the mode opening a file ending with
# ".csv" and load functions depending on the context and needed features.
# Be careful though.  Commands as "load-library" or "require" bloat the
# editor as they are loaded on every startup.  When having a lot of Emacs
# support files, users may be annoyed by the start-up time.  Also avoid
# keybindings as they might interfere with the user's settings.  Give a hint
# in pkg_postinst(), which should be enough.
#
# The naming scheme for this site file is "[0-9][0-9]*-gentoo.el", where the
# two digits at the beginning define the loading order.  So if you depend on
# another Emacs package, your site file's number must be higher!
#
# Best practice is to define a SITEFILE variable in the global scope of your
# ebuild (right after DEPEND e.g.):
#
#               SITEFILE=50${PN}-gentoo.el
#
# Which is then installed by
#
#               elisp-site-file-install "${FILESDIR}/${SITEFILE}"
#
# in src_install().  If your subdirectory is not named ${PN}, give the
# differing name as second argument.
#
# .SS
# pkg_postinst() / pkg_postrm() usage:
#
# After that you need to recreate the start-up file of Emacs after emerging
# and unmerging by using
#
# .nf
#               pkg_postinst() {
#                       elisp-site-regen
#               }
#
#               pkg_postrm() {
#                       elisp-site-regen
#               }
# .fi
#
# When having optional Emacs support, you should prepend "use emacs &&" to
# above calls of elisp-site-regen().  Don't use "has_version virtual/emacs"!
# When unmerging the state of the emacs USE flag is taken from the package
# database and not from the environment, so it is no problem when you unset
# USE=emacs between merge and unmerge of a package.
#
# .SS
# Miscellaneous functions:
#
# elisp-emacs-version() outputs the version of the currently active Emacs.

SITELISP=/usr/share/emacs/site-lisp
SITEFILE=50${PN}-gentoo.el

# @FUNCTION: elisp-compile
# @USAGE: <list of elisp files>
# @DESCRIPTION:
# Byte-compile Emacs Lisp files.

elisp-compile() {
        einfo "Compiling GNU Emacs Elisp files ..."
        /usr/bin/emacs -batch -q --no-site-file -f batch-byte-compile $*
}

# @FUNCTION: elisp-emacs-version
# @DESCRIPTION:
# Output version of currently active Emacs.

elisp-emacs-version() {
        # The following will work for at least versions 18-22.
        echo "(princ emacs-version)" >"${T}"/emacs-version.el
        /usr/bin/emacs -batch -q --no-site-file -l "${T}"/emacs-version.el
}

# @FUNCTION: elisp-make-autoload-file
# @USAGE: [output file] [list of directories]
# @DESCRIPTION:
# Generate a file with autoload definitions for the lisp functions.

elisp-make-autoload-file () {
        local f="${1:-${PN}-autoloads.el}"
        shift
        einfo "Generating autoload file for GNU Emacs ..."

        sed 's/^FF/\f/' >"${f}" <<-EOF
        ;;; ${f##*/} --- autoloads for ${P}

        ;;; Commentary:
        ;; Automatically generated by elisp-common.eclass
        ;; DO NOT EDIT THIS FILE

        ;;; Code:
        FF
        ;; Local Variables:
        ;; version-control: never
        ;; no-byte-compile: t
        ;; no-update-autoloads: t
        ;; End:
        ;;; ${f##*/} ends here
        EOF

        /usr/bin/emacs -batch -q --no-site-file \
                --eval "(setq make-backup-files nil)" \
                --eval "(setq generated-autoload-file (expand-file-name \"${f}\"))" \
                -f batch-update-autoloads "${@-.}"
}

# @FUNCTION: elisp-install
# @USAGE: <subdirectory> <list of files>
# @DESCRIPTION:
# Install files in SITELISP directory.

elisp-install() {
        local subdir=$1
        einfo "Installing Elisp files for GNU Emacs support ..."
        dodir "${SITELISP}/${subdir}"
        insinto "${SITELISP}/${subdir}"
        shift
        doins $@
}

# @FUNCTION: elisp-site-file-install
# @USAGE: <site-init file> [subdirectory]
# @DESCRIPTION:
# Install Emacs site-init file in SITELISP directory.

elisp-site-file-install() {
        local sitefile=$1 my_pn=${2:-${PN}}
        einfo "Installing site initialisation file for GNU Emacs ..."
        pushd "${S}"
        cp ${sitefile} "${T}"
        sed -i "s:@SITELISP@:${SITELISP}/${my_pn}:g" "${T}/$(basename ${sitefile})"
        insinto ${SITELISP}
        doins "${T}/$(basename ${sitefile})" || die "failed to install site file"
        popd
}

# @FUNCTION: elisp-site-regen
# @DESCRIPTION:
# Regenerate site-gentoo.el file.

elisp-site-regen() {
        local sflist sf line

        einfon "Regenerating ${SITELISP}/site-gentoo.el ..."
        cat <<-EOF >"${T}"/site-gentoo.el
        ;;; site-gentoo.el --- site initialisation for Gentoo-installed packages

        ;;; Commentary:
        ;; Automatically generated by elisp-common.eclass
        ;; DO NOT EDIT THIS FILE

        ;;; Code:
        EOF

        for sf in "${ROOT}${SITELISP}"/[0-9][0-9]*-gentoo.el
        do
                [ -r "${sf}" ] || continue
                sflist="${sflist} $(basename "${sf}")"
                cat "${sf}" >>"${T}"/site-gentoo.el
        done

        cat <<-EOF >>"${T}"/site-gentoo.el

        ;;; site-gentoo.el ends here
        EOF

        if cmp -s "${ROOT}${SITELISP}"/site-gentoo.el "${T}"/site-gentoo.el; then
                # This prevents outputting unnecessary text when there
                # was actually no change
                # A case is a remerge where we have doubled output
                echo " no changes."
        else
                mv "${T}"/site-gentoo.el "${ROOT}${SITELISP}"/site-gentoo.el
                echo; einfo
                for sf in ${sflist}; do
                        einfo "  Adding ${sf} ..."
                done
                while read line; do einfo "${line}"; done <<EOF

All site initialisation for Gentoo-installed packages is added to
/usr/share/emacs/site-lisp/site-gentoo.el; site-start.el is no longer
managed by Gentoo. You are responsible for all maintenance of
site-start.el if there is such a file.

In order for this site initialisation to be loaded for all users
automatically, you can add a line like this:

        (load "/usr/share/emacs/site-lisp/site-gentoo" nil t)

to /usr/share/emacs/site-lisp/site-start.el.  Alternatively, that line
can be added by individual users to their initialisation files, or for
greater flexibility, users can select which of the package-specific
initialisation files in /usr/share/emacs/site-lisp to load.
EOF
                echo
        fi
}

# @FUNCTION: elisp-comp
# @USAGE: <list of elisp files>
# @DESCRIPTION:
# Byte-compile interdependent Emacs Lisp files.
# Originally taken from GNU autotools.

elisp-comp() {
        # Copyright 1995 Free Software Foundation, Inc.
        # François Pinard <pinard@iro.umontreal.ca>, 1995.
        # This script byte-compiles all `.el' files which are part of its
        # arguments, using GNU Emacs, and put the resulting `.elc' files into
        # the current directory, so disregarding the original directories used
        # in `.el' arguments.
        #
        # This script manages in such a way that all Emacs LISP files to
        # be compiled are made visible between themselves, in the event
        # they require or load-library one another.

        test $# -gt 0 || return 1

        if test -z "${EMACS}" || test "${EMACS}" = "t"; then
                # Value of "t" means we are running in a shell under Emacs.
                # Just assume Emacs is called "emacs".
                EMACS=/usr/bin/emacs
        fi
        einfo "Compiling GNU Emacs Elisp files ..."

        tempdir=elc.$$
        mkdir ${tempdir}
        cp $* ${tempdir}
        pushd ${tempdir}

        echo "(add-to-list 'load-path \"../\")" > script
        ${EMACS} -batch -q --no-site-file --no-init-file -l script \
                -f batch-byte-compile *.el
        local status=$?
        mv *.elc ..

        popd
        rm -fr ${tempdir}
        return ${status}
}
1	opfer	1.15	# Copyright 1999-2007 Gentoo Foundation
2	mkennedy	1.1	# Distributed under the terms of the GNU General Public License v2
3	ulm	1.25	# $Header: /var/cvsroot/gentoo-x86/eclass/elisp-common.eclass,v 1.24 2007/07/10 20:14:52 ulm Exp $
4	mkennedy	1.1	#
5	opfer	1.15	# Copyright 2007 Christian Faulhammer <opfer@gentoo.org>
6	ulm	1.24	# Copyright 2002-2004 Matthew Kennedy <mkennedy@gentoo.org>
7			# Copyright 2004-2005 Mamoru Komachi <usata@gentoo.org>
8	mkennedy	1.2	# Copyright 2003 Jeremy Maitin-Shepard <jbms@attbi.com>
9	opfer	1.15	# Copyright 2007 Ulrich Mueller <ulm@gentoo.org>
10	mkennedy	1.1	#
11	ulm	1.25	# @ECLASS: elisp-common.eclass
12			# @MAINTAINER:
13			# Feel free to contact the Emacs team through emacs@gentoo.org if you have
14			# problems, suggestions or questions.
15			# @BLURB: Emacs-related installation utilities
16			# @DESCRIPTION:
17	opfer	1.15	#
18			# Usually you want to use this eclass for (optional) GNU Emacs support of
19	ulm	1.18	# your package. This is NOT for XEmacs!
20	ulm	1.25	#
21			# Many of the steps here are sometimes done by the build system of your
22	opfer	1.15	# package (especially compilation), so this is mainly for standalone elisp
23			# files you gathered from somewhere else.
24	ulm	1.25	#
25			# When relying on the emacs USE flag, you need to add
26	opfer	1.15	#
27			# emacs? ( virtual/emacs )
28			#
29			# to your DEPEND/RDEPEND line and use the functions provided here to bring
30			# the files to the correct locations.
31			#
32	ulm	1.25	# .SS
33	opfer	1.15	# src_compile() usage:
34			#
35			# An elisp file is compiled by the elisp-compile() function defined here and
36	ulm	1.25	# simply takes the source files as arguments.
37	opfer	1.15	#
38	ulm	1.24	# elisp-compile *.el \|\| die "elisp-compile failed"
39	ulm	1.25	#
40			# In the case of interdependent elisp files, you can use the elisp-comp()
41			# function which makes sure all files are loadable.
42			#
43	ulm	1.24	# elisp-comp *.el \|\| die "elisp-comp failed"
44	opfer	1.15	#
45	ulm	1.25	# Function elisp-make-autoload-file() can be used to generate a file with
46	ulm	1.18	# autoload definitions for the lisp functions. It takes the output file name
47	opfer	1.15	# (default: "${PN}-autoloads.el") and a list of directories (default: working
48	ulm	1.18	# directory) as its arguments. Use of this function requires that the elisp
49	opfer	1.15	# source files contain magic ";;;###autoload" comments. See the Emacs Lisp
50			# Reference Manual (node "Autoload") for a detailed explanation.
51			#
52	ulm	1.25	# .SS
53	opfer	1.15	# src_install() usage:
54			#
55			# The resulting compiled files (.elc) should be put in a subdirectory of
56			# /usr/share/emacs/site-lisp/ which is named after the first argument
57			# of elisp-install(). The following parameters are the files to be put in
58			# that directory. Usually the subdirectory should be ${PN}, you can choose
59			# something else, but remember to tell elisp-site-file-install() (see below)
60			# the change, as it defaults to ${PN}.
61			#
62	ulm	1.24	# elisp-install ${PN} .el .elc \|\| die "elisp-install failed"
63	opfer	1.15	#
64	ulm	1.25	# To let the Emacs support be activated by Emacs on startup, you need
65	opfer	1.15	# to provide a site file (shipped in ${FILESDIR}) which contains the startup
66	ulm	1.18	# code (have a look in the documentation of your software). Normally this
67	opfer	1.15	# would look like this:
68			#
69	ulm	1.25	# .nf
70			# ;;; csv-mode site-lisp configuration
71	opfer	1.15	#
72	ulm	1.25	# (add-to-list 'load-path "@SITELISP@")
73			# (add-to-list 'auto-mode-alist '("\\.csv\\'" . csv-mode))
74			# (autoload 'csv-mode "csv-mode" "Major mode for csv files." t)
75			# .fi
76	opfer	1.15	#
77	ulm	1.25	# If your Emacs support files are installed in a subdirectory of
78	opfer	1.15	# /usr/share/emacs/site-lisp/ (which is recommended if more than one file is
79			# installed), you need to extend Emacs' load-path as shown in the first
80	ulm	1.18	# non-comment. The elisp-site-file-install() function of this eclass will
81	opfer	1.15	# replace "@SITELISP@" by the actual path.
82	ulm	1.25	#
83			# The next line tells Emacs to load the mode opening a file ending with
84	opfer	1.15	# ".csv" and load functions depending on the context and needed features.
85			# Be careful though. Commands as "load-library" or "require" bloat the
86			# editor as they are loaded on every startup. When having a lot of Emacs
87	ulm	1.18	# support files, users may be annoyed by the start-up time. Also avoid
88			# keybindings as they might interfere with the user's settings. Give a hint
89	opfer	1.15	# in pkg_postinst(), which should be enough.
90	ulm	1.25	#
91			# The naming scheme for this site file is "[0-9][0-9]*-gentoo.el", where the
92	ulm	1.18	# two digits at the beginning define the loading order. So if you depend on
93	opfer	1.15	# another Emacs package, your site file's number must be higher!
94	ulm	1.25	#
95			# Best practice is to define a SITEFILE variable in the global scope of your
96	opfer	1.15	# ebuild (right after DEPEND e.g.):
97			#
98			# SITEFILE=50${PN}-gentoo.el
99			#
100	ulm	1.25	# Which is then installed by
101	opfer	1.15	#
102			# elisp-site-file-install "${FILESDIR}/${SITEFILE}"
103			#
104	ulm	1.18	# in src_install(). If your subdirectory is not named ${PN}, give the
105	opfer	1.15	# differing name as second argument.
106			#
107	ulm	1.25	# .SS
108	opfer	1.15	# pkg_postinst() / pkg_postrm() usage:
109			#
110			# After that you need to recreate the start-up file of Emacs after emerging
111			# and unmerging by using
112			#
113	ulm	1.25	# .nf
114	opfer	1.15	# pkg_postinst() {
115			# elisp-site-regen
116			# }
117	opfer	1.22	#
118	opfer	1.15	# pkg_postrm() {
119			# elisp-site-regen
120			# }
121	ulm	1.25	# .fi
122	opfer	1.15	#
123	ulm	1.25	# When having optional Emacs support, you should prepend "use emacs &&" to
124	opfer	1.22	# above calls of elisp-site-regen(). Don't use "has_version virtual/emacs"!
125	ulm	1.25	# When unmerging the state of the emacs USE flag is taken from the package
126	opfer	1.22	# database and not from the environment, so it is no problem when you unset
127	ulm	1.25	# USE=emacs between merge and unmerge of a package.
128	opfer	1.22	#
129	ulm	1.25	# .SS
130	opfer	1.22	# Miscellaneous functions:
131			#
132			# elisp-emacs-version() outputs the version of the currently active Emacs.
133	mkennedy	1.1
134			SITELISP=/usr/share/emacs/site-lisp
135	ulm	1.25	SITEFILE=50${PN}-gentoo.el
136
137			# @FUNCTION: elisp-compile
138			# @USAGE: <list of elisp files>
139			# @DESCRIPTION:
140			# Byte-compile Emacs Lisp files.
141	mkennedy	1.1
142	mkennedy	1.2	elisp-compile() {
143	opfer	1.22	einfo "Compiling GNU Emacs Elisp files ..."
144			/usr/bin/emacs -batch -q --no-site-file -f batch-byte-compile $*
145			}
146
147	ulm	1.25	# @FUNCTION: elisp-emacs-version
148			# @DESCRIPTION:
149			# Output version of currently active Emacs.
150
151	opfer	1.22	elisp-emacs-version() {
152			# The following will work for at least versions 18-22.
153			echo "(princ emacs-version)" >"${T}"/emacs-version.el
154			/usr/bin/emacs -batch -q --no-site-file -l "${T}"/emacs-version.el
155	mkennedy	1.2	}
156
157	ulm	1.25	# @FUNCTION: elisp-make-autoload-file
158			# @USAGE: [output file] [list of directories]
159			# @DESCRIPTION:
160			# Generate a file with autoload definitions for the lisp functions.
161
162	opfer	1.15	elisp-make-autoload-file () {
163	opfer	1.17	local f="${1:-${PN}-autoloads.el}"
164	opfer	1.15	shift
165	opfer	1.22	einfo "Generating autoload file for GNU Emacs ..."
166
167	ulm	1.21	sed 's/^FF/\f/' >"${f}" <<-EOF
168			;;; ${f##*/} --- autoloads for ${P}
169
170			;;; Commentary:
171			;; Automatically generated by elisp-common.eclass
172			;; DO NOT EDIT THIS FILE
173
174			;;; Code:
175			FF
176			;; Local Variables:
177			;; version-control: never
178			;; no-byte-compile: t
179			;; no-update-autoloads: t
180			;; End:
181			;;; ${f##*/} ends here
182			EOF
183	opfer	1.22
184			/usr/bin/emacs -batch -q --no-site-file \
185	opfer	1.15	--eval "(setq make-backup-files nil)" \
186			--eval "(setq generated-autoload-file (expand-file-name \"${f}\"))" \
187			-f batch-update-autoloads "${@-.}"
188			}
189
190	ulm	1.25	# @FUNCTION: elisp-install
191			# @USAGE: <subdirectory> <list of files>
192			# @DESCRIPTION:
193			# Install files in SITELISP directory.
194
195	mkennedy	1.1	elisp-install() {
196			local subdir=$1
197	opfer	1.22	einfo "Installing Elisp files for GNU Emacs support ..."
198	opfer	1.15	dodir "${SITELISP}/${subdir}"
199			insinto "${SITELISP}/${subdir}"
200	mkennedy	1.1	shift
201			doins $@
202			}
203
204	ulm	1.25	# @FUNCTION: elisp-site-file-install
205			# @USAGE: <site-init file> [subdirectory]
206			# @DESCRIPTION:
207			# Install Emacs site-init file in SITELISP directory.
208
209	mkennedy	1.1	elisp-site-file-install() {
210	usata	1.6	local sitefile=$1 my_pn=${2:-${PN}}
211	opfer	1.22	einfo "Installing site initialisation file for GNU Emacs ..."
212	opfer	1.15	pushd "${S}"
213			cp ${sitefile} "${T}"
214			sed -i "s:@SITELISP@:${SITELISP}/${my_pn}:g" "${T}/$(basename ${sitefile})"
215	mkennedy	1.1	insinto ${SITELISP}
216	opfer	1.15	doins "${T}/$(basename ${sitefile})" \|\| die "failed to install site file"
217	mkennedy	1.1	popd
218			}
219
220	ulm	1.25	# @FUNCTION: elisp-site-regen
221			# @DESCRIPTION:
222			# Regenerate site-gentoo.el file.
223
224	mkennedy	1.1	elisp-site-regen() {
225	opfer	1.22	local sflist sf line
226
227	ulm	1.25	einfon "Regenerating ${SITELISP}/site-gentoo.el ..."
228	ulm	1.24	cat <<-EOF >"${T}"/site-gentoo.el
229			;;; site-gentoo.el --- site initialisation for Gentoo-installed packages
230
231			;;; Commentary:
232			;; Automatically generated by elisp-common.eclass
233			;; DO NOT EDIT THIS FILE
234
235			;;; Code:
236			EOF
237	mkennedy	1.1
238	opfer	1.22	for sf in "${ROOT}${SITELISP}"/[0-9][0-9]*-gentoo.el
239	mkennedy	1.1	do
240	ulm	1.20	[ -r "${sf}" ] \|\| continue
241	opfer	1.22	sflist="${sflist} $(basename "${sf}")"
242			cat "${sf}" >>"${T}"/site-gentoo.el
243	mkennedy	1.1	done
244	opfer	1.22
245	ulm	1.24	cat <<-EOF >>"${T}"/site-gentoo.el
246
247			;;; site-gentoo.el ends here
248			EOF
249
250	opfer	1.22	if cmp -s "${ROOT}${SITELISP}"/site-gentoo.el "${T}"/site-gentoo.el; then
251			# This prevents outputting unnecessary text when there
252			# was actually no change
253			# A case is a remerge where we have doubled output
254	ulm	1.25	echo " no changes."
255	opfer	1.22	else
256	ulm	1.24	mv "${T}"/site-gentoo.el "${ROOT}${SITELISP}"/site-gentoo.el
257	ulm	1.25	echo; einfo
258	opfer	1.22	for sf in ${sflist}; do
259			einfo " Adding ${sf} ..."
260			done
261			while read line; do einfo "${line}"; done <<EOF
262	jbms	1.4
263	ulm	1.25	All site initialisation for Gentoo-installed packages is added to
264	jbms	1.4	/usr/share/emacs/site-lisp/site-gentoo.el; site-start.el is no longer
265	usata	1.8	managed by Gentoo. You are responsible for all maintenance of
266			site-start.el if there is such a file.
267	jbms	1.4
268	ulm	1.24	In order for this site initialisation to be loaded for all users
269	ulm	1.25	automatically, you can add a line like this:
270	jbms	1.4
271	ulm	1.19	(load "/usr/share/emacs/site-lisp/site-gentoo" nil t)
272	jbms	1.4
273			to /usr/share/emacs/site-lisp/site-start.el. Alternatively, that line
274	ulm	1.24	can be added by individual users to their initialisation files, or for
275	jbms	1.4	greater flexibility, users can select which of the package-specific
276	ulm	1.24	initialisation files in /usr/share/emacs/site-lisp to load.
277	jbms	1.4	EOF
278	opfer	1.22	echo
279			fi
280	mkennedy	1.3	}
281
282	ulm	1.25	# @FUNCTION: elisp-comp
283			# @USAGE: <list of elisp files>
284			# @DESCRIPTION:
285			# Byte-compile interdependent Emacs Lisp files.
286			# Originally taken from GNU autotools.
287	mkennedy	1.3
288			elisp-comp() {
289	opfer	1.22	# Copyright 1995 Free Software Foundation, Inc.
290			# François Pinard <pinard@iro.umontreal.ca>, 1995.
291			# This script byte-compiles all `.el' files which are part of its
292			# arguments, using GNU Emacs, and put the resulting `.elc' files into
293			# the current directory, so disregarding the original directories used
294			# in `.el' arguments.
295			#
296			# This script manages in such a way that all Emacs LISP files to
297			# be compiled are made visible between themselves, in the event
298			# they require or load-library one another.
299
300			test $# -gt 0 \|\| return 1
301	mkennedy	1.3
302	opfer	1.22	if test -z "${EMACS}" \|\| test "${EMACS}" = "t"; then
303	jbms	1.4	# Value of "t" means we are running in a shell under Emacs.
304			# Just assume Emacs is called "emacs".
305	opfer	1.22	EMACS=/usr/bin/emacs
306			fi
307			einfo "Compiling GNU Emacs Elisp files ..."
308	mkennedy	1.3
309	opfer	1.22	tempdir=elc.$$
310			mkdir ${tempdir}
311			cp $* ${tempdir}
312			pushd ${tempdir}
313
314			echo "(add-to-list 'load-path \"../\")" > script
315			${EMACS} -batch -q --no-site-file --no-init-file -l script \
316			-f batch-byte-compile *.el
317			local status=$?
318			mv *.elc ..
319	mkennedy	1.3
320	opfer	1.22	popd
321			rm -fr ${tempdir}
322			return ${status}
323	mkennedy	1.1	}