Commit 75c663f8 authored by Philipp Stephani's avatar Philipp Stephani

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.
parent f3d0db7f
......@@ -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. */
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment