1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

*** empty log message ***

This commit is contained in:
Roland McGrath 1992-08-31 23:22:15 +00:00
parent 6ec3899e16
commit 450a90e2ea

View File

@ -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