Mercurial > emacs

changeset 1065:f7477db25e8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Mon, 31 Aug 1992 23:22:15 +0000
parents e699ce19609f
children 9b788095582b
files lisp/loadup.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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