Re: Defining your own defun breaks find-function-search-for-symbol

[Stefan Monnier]

> We've (the MH-E team) developed mh-defun-compat (and mh-defmacro-compat)
[...]
> The problem is that if perform describe-function or describe-variable on
> the functions and variables that these functions define, and then click
> on the file in which they are defined, you get an error:

>   Cannot find definition of `mh-letter-fill-column' in library `mh-e.el'

I believe the patch below which I've just installed fixes the problem.


        Stefan


--- orig/lisp/emacs-lisp/find-func.el
+++ mod/lisp/emacs-lisp/find-func.el
@@ -229,7 +229,7 @@
            (goto-char (point-min))
            (if (or (re-search-forward regexp nil t)
                    (re-search-forward
-                    (concat "^([^ ]+" find-function-space-re "['(]"
+                    (concat "^([^ ]+" find-function-space-re "['(]?"
                             (regexp-quote (symbol-name symbol))
                             "\\_>")
                     nil t))