# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1144938683 0
# Node ID d30be4cf861ace33b9209d4a6db1cbeb128c20cf
# Parent  5ef1c2eeca24e7341692cae8d65ceb5463f7d073
(find-function-search-for-symbol): Add comments.

diff -r 5ef1c2eeca24 -r d30be4cf861a lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Thu Apr 13 13:50:07 2006 +0000
+++ b/lisp/emacs-lisp/find-func.el	Thu Apr 13 14:31:23 2006 +0000
@@ -228,6 +228,14 @@
 	  (with-syntax-table emacs-lisp-mode-syntax-table
 	    (goto-char (point-min))
 	    (if (or (re-search-forward regexp nil t)
+                    ;; `regexp' matches definitions using known forms like
+                    ;; `defun', or `defvar'.  But some functions/variables
+                    ;; are defined using special macros (or functions), so
+                    ;; if `regexp' can't find the definition, we look for
+                    ;; something of the form "(SOMETHING <symbol> ...)".
+                    ;; This fails to distinguish function definitions from
+                    ;; variable declarations (or even uses thereof), but is
+                    ;; a good pragmatic fallback.
 		    (re-search-forward
 		     (concat "^([^ ]+" find-function-space-re "['(]?"
 			     (regexp-quote (symbol-name symbol))