From 450a90e2ea55a592346ed0a10d2e5a5e2597d920 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 31 Aug 1992 23:22:15 +0000 Subject: *** empty log message *** --- lisp/loadup.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lisp/loadup.el') diff --git a/lisp/loadup.el b/lisp/loadup.el index 7710e47582..f995996686 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -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 -- cgit v1.2.3