From 9f059d3c2157377329af2fc35f8439fe63fef5e9 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 14 May 1998 04:58:47 +0000
Subject: [PATCH] (install-arch-indep): Don't alter site-lisp/subdirs.el if it
 exists.

---
 Makefile.in | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

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 \
-- 
2.39.2