entered into RCS

[bpt/emacs.git] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index f995996..f13f6c7 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -119,11 +119,9 @@
       (setq name (concat (expand-file-name "../etc/DOC-") name))
       (if (file-exists-p name)
          (delete-file name))
-      (copy-file (expand-file-name "../etc/DOC")
-                name
-                t)
+      (copy-file (expand-file-name "../etc/DOC") name t)
       (Snarf-documentation (file-name-nondirectory name)))
-  (Snarf-documentation "DOC"))
+    (Snarf-documentation "DOC"))
 (message "Finding pointers to doc strings...done")
 
 ;Note: You can cause additional libraries to be preloaded