1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00

(symbol-file): Fix C-h v pcase where cl-struct lacks file info

* lisp/subr.el (symbol-file): Return an actual (and absolute) file name
for the autoload case, as is done for other cases.
This commit is contained in:
Stefan Monnier 2024-10-18 14:51:13 -04:00
parent e807d62cdd
commit 0886ef01a8

View File

@ -3067,7 +3067,8 @@ instead."
(if (and (or (null type) (eq type 'defun))
(symbolp symbol)
(autoloadp (symbol-function symbol)))
(nth 1 (symbol-function symbol))
(locate-library
(nth 1 (symbol-function symbol)))
(if (and native-p (or (null type) (eq type 'defun))
(symbolp symbol)
(native-comp-available-p)