From 75c663f834528c5431973bf8dc6386c327f9fe0f Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Fri, 2 Feb 2018 20:40:10 +0100 Subject: [PATCH] Use 'defalias' in test module instead of 'fset'. This puts functions defined in the module into the 'load-history'. * test/data/emacs-module/mod-test.c (bind_function): Use 'defalias' instead of 'fset'. * test/src/emacs-module-tests.el (module/describe-function-1): Adapt unit test. --- test/data/emacs-module/mod-test.c | 4 ++-- test/src/emacs-module-tests.el | 5 +++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/test/data/emacs-module/mod-test.c b/test/data/emacs-module/mod-test.c index a1c115f00d2..db05e90bc49 100644 --- a/test/data/emacs-module/mod-test.c +++ b/test/data/emacs-module/mod-test.c @@ -299,11 +299,11 @@ provide (emacs_env *env, const char *feature) static void bind_function (emacs_env *env, const char *name, emacs_value Sfun) { - emacs_value Qfset = env->intern (env, "fset"); + emacs_value Qdefalias = env->intern (env, "defalias"); emacs_value Qsym = env->intern (env, name); emacs_value args[] = { Qsym, Sfun }; - env->funcall (env, Qfset, 2, args); + env->funcall (env, Qdefalias, 2, args); } /* Module init function. */ diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 05be8383dcc..052f5c2f12c 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -268,8 +268,9 @@ during garbage collection." (let ((standard-output (current-buffer))) (describe-function-1 #'mod-test-sum) (should (equal (buffer-substring-no-properties 1 (point-max)) - ;; FIXME: This should print the filename. - "a module function. + ;; FIXME: This should print the actual module + ;; filename. + "a module function in `src/emacs-module-tests.el'. (mod-test-sum a b) -- 2.39.2