From ebaf4241263e167e992981efb8d1bf571f311803 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 13 Apr 2025 13:53:29 +0200 Subject: [PATCH] ; Fix recently broken test (bug#77777). * test/lisp/emacs-lisp/find-func-tests.el (find-func-tests--locate-macro-generated-symbols): bind 'trusted-content' to names of files in which we want to expand macros during this test. --- test/lisp/emacs-lisp/find-func-tests.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/test/lisp/emacs-lisp/find-func-tests.el b/test/lisp/emacs-lisp/find-func-tests.el index 3faf9f99aff..5a2dbc5d8d7 100644 --- a/test/lisp/emacs-lisp/find-func-tests.el +++ b/test/lisp/emacs-lisp/find-func-tests.el @@ -118,10 +118,13 @@ expected function symbol and function library, respectively." (declare-function compilation--message->loc nil "compile") (ert-deftest find-func-tests--locate-macro-generated-symbols () ;bug#45443 - (should (cdr (find-function-search-for-symbol - #'compilation--message->loc nil "compile"))) - (should (cdr (find-function-search-for-symbol - 'c-mode-hook 'defvar "cc-mode")))) + (let ((trusted-content + (list (abbreviate-file-name (find-library-name "compile")) + (abbreviate-file-name (find-library-name "cc-mode"))))) + (should (cdr (find-function-search-for-symbol + #'compilation--message->loc nil "compile"))) + (should (cdr (find-function-search-for-symbol + 'c-mode-hook 'defvar "cc-mode"))))) (provide 'find-func-tests) ;;; find-func-tests.el ends here