$FreeBSD: ports/devel/distel/files/patch-elisp_erl-service.el,v 1.1 2007/05/31 09:15:15 olgeni Exp $

--- elisp/erl-service.el.orig
+++ elisp/erl-service.el
@@ -783,11 +783,11 @@
 (defun erl-search-function (function arity)
   "Goto the definition of FUNCTION/ARITY in the current buffer."
   (let ((origin (point))
-	(str (concat "\n" function "("))
+	(str (concat "\n" function " *("))
 	(searching t))
     (goto-char (point-min))
     (while searching
-      (cond ((search-forward str nil t)
+      (cond ((search-forward-regexp str nil t)
 	     (backward-char)
 	     (when (or (null arity)
 		       (eq (erl-arity-at-point) arity))