Mercurial > emacs

diff lisp/emacs-lisp/find-func.el @ 97060:a5fc76bb12d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 90a2847062be
children 1d05897d32a7
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el	Mon Jul 28 12:25:11 2008 +0000
+++ b/lisp/emacs-lisp/find-func.el	Mon Jul 28 13:19:10 2008 +0000
@@ -239,7 +239,7 @@
   ;; 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))))