From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 14 May 1998 04:58:47 +0000 (+0000)
Subject: (install-arch-indep): Don't alter site-lisp/subdirs.el if it exists.
X-Git-Tag: emacs-20.3~1019
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f059d3c2157377329af2fc35f8439fe63fef5e9;p=emacs.git

(install-arch-indep): Don't alter site-lisp/subdirs.el if it exists.
---

diff --git a/Makefile.in b/Makefile.in
index 5410bbdaff8..5073bbf4034 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -338,15 +338,21 @@ install-arch-indep: mkdir
 	done
 	-rm -f ${lispdir}/subdirs.el
 	$(srcdir)/update-subdirs ${lispdir}
-	-rm -f ${datadir}/emacs/${version}/site-lisp/subdirs.el
-	-(echo "(if (fboundp 'normal-top-level-add-subdirs-to-load-path)"; \
-	 echo "    (normal-top-level-add-subdirs-to-load-path))") \
-	  > ${datadir}/emacs/${version}/site-lisp/subdirs.el
+	if [ -f ${datadir}/emacs/${version}/site-lisp/subdirs.el ]; \
+	then true; \
+	else \
+	  (echo "(if (fboundp 'normal-top-level-add-subdirs-to-load-path)"; \
+	   echo "    (normal-top-level-add-subdirs-to-load-path))") \
+	    > ${datadir}/emacs/${version}/site-lisp/subdirs.el \
+	fi
 	chmod a+r ${datadir}/emacs/${version}/site-lisp/subdirs.el
-	-rm -f ${datadir}/emacs/site-lisp/subdirs.el
-	-(echo "(if (fboundp 'normal-top-level-add-subdirs-to-load-path)"; \
-	 echo "    (normal-top-level-add-subdirs-to-load-path))") \
-	  > ${datadir}/emacs/site-lisp/subdirs.el
+	if [ -f ${datadir}/emacs/site-lisp/subdirs.el ]; \
+	then true; \
+	else \
+	  (echo "(if (fboundp 'normal-top-level-add-subdirs-to-load-path)"; \
+	   echo "    (normal-top-level-add-subdirs-to-load-path))") \
+	    > ${datadir}/emacs/site-lisp/subdirs.el \
+	fi
 	chmod a+r ${datadir}/emacs/site-lisp/subdirs.el
 	if [ `(cd ./etc; /bin/pwd)` != `(cd ${docdir}; /bin/pwd)` ]; \
 	then \