# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 715303335 0
# Node ID f7477db25e8cb3c8e2ceb2e28bade3550c4575f4
# Parent  e699ce19609f2e54f956b080b4d7ec4b659b7ec5
*** empty log message ***

diff -r e699ce19609f -r f7477db25e8c lisp/loadup.el
--- a/lisp/loadup.el	Mon Aug 31 21:42:28 1992 +0000
+++ b/lisp/loadup.el	Mon Aug 31 23:22:15 1992 +0000
@@ -116,12 +116,14 @@
 	(setq name (concat (downcase (substring name 0 (match-beginning 0)))
 			   "-"
 			   (substring name (match-end 0)))))
-      (delete-file (concat (expand-file-name "../etc/DOC-") name))
+      (setq name (concat (expand-file-name "../etc/DOC-") name))
+      (if (file-exists-p name)
+	  (delete-file name))
       (copy-file (expand-file-name "../etc/DOC")
-		 (concat (expand-file-name "../etc/DOC-") name)
+		 name
 		 t)
-      (Snarf-documentation (concat "DOC-" name)))
-    (Snarf-documentation "DOC"))
+      (Snarf-documentation (file-name-nondirectory name)))
+  (Snarf-documentation "DOC"))
 (message "Finding pointers to doc strings...done")
 
 ;Note: You can cause additional libraries to be preloaded