Mercurial > emacs

comparison lisp/loadup.el @ 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 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.