Mercurial > emacs
comparison lisp/loadup.el @ 1065:f7477db25e8c
*** empty log message ***
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Mon, 31 Aug 1992 23:22:15 +0000 |
parents | e699ce19609f |
children | 0ffcf74fb8ad |
comparison
equal
deleted
inserted
replaced
1064:e699ce19609f | 1065:f7477db25e8c |
---|---|
114 (let ((name emacs-version)) | 114 (let ((name emacs-version)) |
115 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | 115 (while (string-match "[^-+_.a-zA-Z0-9]+" name) |
116 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | 116 (setq name (concat (downcase (substring name 0 (match-beginning 0))) |
117 "-" | 117 "-" |
118 (substring name (match-end 0))))) | 118 (substring name (match-end 0))))) |
119 (delete-file (concat (expand-file-name "../etc/DOC-") name)) | 119 (setq name (concat (expand-file-name "../etc/DOC-") name)) |
120 (if (file-exists-p name) | |
121 (delete-file name)) | |
120 (copy-file (expand-file-name "../etc/DOC") | 122 (copy-file (expand-file-name "../etc/DOC") |
121 (concat (expand-file-name "../etc/DOC-") name) | 123 name |
122 t) | 124 t) |
123 (Snarf-documentation (concat "DOC-" name))) | 125 (Snarf-documentation (file-name-nondirectory name))) |
124 (Snarf-documentation "DOC")) | 126 (Snarf-documentation "DOC")) |
125 (message "Finding pointers to doc strings...done") | 127 (message "Finding pointers to doc strings...done") |
126 | 128 |
127 ;Note: You can cause additional libraries to be preloaded | 129 ;Note: You can cause additional libraries to be preloaded |
128 ;by writing a site-init.el that loads them. | 130 ;by writing a site-init.el that loads them. |
129 ;See also "site-load" above. | 131 ;See also "site-load" above. |