diff options
| author | Roland McGrath <[email protected]> | 1992-08-31 23:22:15 +0000 |
|---|---|---|
| committer | Roland McGrath <[email protected]> | 1992-08-31 23:22:15 +0000 |
| commit | 450a90e2ea55a592346ed0a10d2e5a5e2597d920 (patch) | |
| tree | 518a22d2420739dd7aff899331bbf11d6b41bb8e /lisp/loadup.el | |
| parent | 6ec3899e1629c6f954d12fc7773ddd5a8f1a76be (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 10 |
1 files changed, 6 insertions, 4 deletions
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 |