diff options
| author | Adrian Robert <Adrian.B.Robert@gmail.com> | 2008-07-28 13:19:10 +0000 |
|---|---|---|
| committer | Adrian Robert <Adrian.B.Robert@gmail.com> | 2008-07-28 13:19:10 +0000 |
| commit | 14f798ff7e357b537ff47f65041588a153530621 (patch) | |
| tree | 4d46cf6c4a79a5103612d91884b7172d3aa124f6 /lisp/help-fns.el | |
| parent | ddaa36e16efa267f40158baca709a58d2d748743 (diff) | |
| download | emacs-14f798ff7e357b537ff47f65041588a153530621.tar.gz | |
apply patch from Seiji Zenitani to find doc strings in ns*.m files
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index f2e9b1e1b98..d251ab0e349 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -149,9 +149,11 @@ KIND should be `var' for a variable or `subr' for a subroutine." (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))))) |