115 |
(defun find-function-search-for-symbol (symbol variable-p library) |
(defun find-function-search-for-symbol (symbol variable-p library) |
116 |
"Search for SYMBOL. |
"Search for SYMBOL. |
117 |
If VARIABLE-P is nil, `find-function-regexp' is used, otherwise |
If VARIABLE-P is nil, `find-function-regexp' is used, otherwise |
118 |
`find-variable-regexp' is used. The search is done in library LIBRARY." |
`find-variable-regexp' is used. The search is done in library LIBRARY." |
119 |
(if (null library) |
(if (null library) |
120 |
(error "Don't know where `%s' is defined" symbol)) |
(error "Don't know where `%s' is defined" symbol)) |
121 |
;; Some functions are defined as part of the construct |
;; Some functions are defined as part of the construct |