diff options
author | Roland McGrath <roland@gnu.org> | 1992-08-31 23:22:15 +0000 |
---|---|---|
committer | Roland McGrath <roland@gnu.org> | 1992-08-31 23:22:15 +0000 |
commit | 278e894c3c5c0d69251257297f1e36a49cefc913 (patch) | |
tree | 4d1bcef12c8a5e39f169463d365760e3beb1b710 /lisp/loadup.el | |
parent | 3fce46462d91c6af95d0d6104e76249c41c70bec (diff) | |
download | emacs-278e894c3c5c0d69251257297f1e36a49cefc913.tar.gz |
*** 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 7710e47582f..f9959966861 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 |