From 434421207fdc1ab4da38d1df660fbab92d046a5e 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. (cherry picked from commit ebaf4241263e167e992981efb8d1bf571f311803) --- 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 884e698bc76..325430196b4 100644 --- a/test/lisp/emacs-lisp/find-func-tests.el +++ b/test/lisp/emacs-lisp/find-func-tests.el @@ -103,10 +103,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 -- 2.39.5