diff options
| author | Stephen Gildea <stepheng+emacs@gildea.com> | 2025-01-16 06:10:57 -0800 |
|---|---|---|
| committer | Stephen Gildea <stepheng+emacs@gildea.com> | 2025-01-16 06:10:57 -0800 |
| commit | d30351e03815e5914ec486607441e449c02c6c45 (patch) | |
| tree | b545da93df2564f0a56f7bcecf1c287718c63336 /lisp/emacs-lisp | |
| parent | ec20ebf2413ca1042cd41e3a278d18f1fc1debf6 (diff) | |
| download | emacs-d30351e03815e5914ec486607441e449c02c6c45.tar.gz emacs-d30351e03815e5914ec486607441e449c02c6c45.tar.bz2 emacs-d30351e03815e5914ec486607441e449c02c6c45.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 643b6aba2a6..40bcdfe756a 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -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) |