228 |
(if (eobp) |
(if (eobp) |
229 |
(insert-file-contents-literally |
(insert-file-contents-literally |
230 |
(expand-file-name internal-doc-file-name doc-directory))) |
(expand-file-name internal-doc-file-name doc-directory))) |
231 |
(search-forward (concat "" name "\n")) |
(let ((file (catch 'loop |
232 |
|
(while t |
233 |
|
(let ((pnt (search-forward (concat "" name "\n")))) |
234 |
(re-search-backward "S\\(.*\\)") |
(re-search-backward "S\\(.*\\)") |
235 |
(let ((file (match-string 1))) |
(let ((file (match-string 1))) |
236 |
|
(if (member file build-files) |
237 |
|
(throw 'loop file) |
238 |
|
(goto-char pnt)))))))) |
239 |
(if (string-match "\\.\\(o\\|obj\\)\\'" file) |
(if (string-match "\\.\\(o\\|obj\\)\\'" file) |
240 |
(setq file (replace-match ".c" t t file))) |
(setq file (replace-match ".c" t t file))) |
241 |
(if (string-match "\\.c\\'" file) |
(if (string-match "\\.c\\'" file) |