Mercurial > emacs
diff lisp/help-fns.el @ 97060:a5fc76bb12d1
apply patch from Seiji Zenitani to find doc strings in ns*.m files
| author | Adrian Robert <Adrian.B.Robert@gmail.com> |
|---|---|
| date | Mon, 28 Jul 2008 13:19:10 +0000 |
| parents | 0f9baaf9427f |
| children | 52bbade97925 |
line wrap: on
line diff
--- a/lisp/help-fns.el Mon Jul 28 12:25:11 2008 +0000 +++ b/lisp/help-fns.el Mon Jul 28 13:19:10 2008 +0000 @@ -149,9 +149,11 @@ (if (member file build-files) (throw 'loop file) (goto-char pnt)))))))) - (if (string-match "\\.\\(o\\|obj\\)\\'" file) - (setq file (replace-match ".c" t t file))) - (if (string-match "\\.c\\'" file) + (if (string-match "^ns.*\\(\\.o\\|obj\\)\\'" file) + (setq file (replace-match ".m" t t file 1)) + (if (string-match "\\.\\(o\\|obj\\)\\'" file) + (setq file (replace-match ".c" t t file)))) + (if (string-match "\\.\\(c\\|m\\)\\'" file) (concat "src/" file) file)))))