Update recent find-func change to fix elisp-mode-tests

* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol):
Check that symbol is a symbol before trying to get a property.
This commit is contained in:
Stephen Gildea 2025-01-16 06:10:57 -08:00
parent ec20ebf241
commit d30351e038

View file

@ -413,7 +413,8 @@ The search is done in the source for library LIBRARY."
;; that defines something else.
(while (and (symbolp symbol) (get symbol 'definition-name))
(setq symbol (get symbol 'definition-name)))
(setq type (or (get symbol 'definition-type)
(setq type (or (and (symbolp symbol)
(get symbol 'definition-type))
type))
(if (string-match "\\`src/\\(.*\\.\\(c\\|m\\)\\)\\'" library)
(find-function-C-source symbol (match-string 1 library) type)