Commit 14f798ff authored by Adrian Robert's avatar Adrian Robert
Browse files

apply patch from Seiji Zenitani to find doc strings in ns*.m files

parent ddaa36e1
2008-07-28 Seiji Zenitani <zenitani <at>>
* help-fns.el (help-C-file-name): Add .m (Obj-C code) for Cocoa port.
* emacs-lisp/find-func.el (find-function-search-for-symbol): Likewise.
2008-07-28 Stephen Leake <>
* progmodes/ada-mode.el (ada-mode): Clean up XEmacs handling.
......@@ -239,7 +239,7 @@ The search is done in the source for library LIBRARY."
;; that defines something else.
(while (and (symbolp symbol) (get symbol 'definition-name))
(setq symbol (get symbol 'definition-name)))
(if (string-match "\\`src/\\(.*\\.c\\)\\'" library)
(if (string-match "\\`src/\\(.*\\.\\(c\\|m\\)\\)\\'" library)
(find-function-C-source symbol (match-string 1 library) type)
(when (string-match "\\.el\\(c\\)\\'" library)
(setq library (substring library 0 (match-beginning 1))))
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment