Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use 'defalias' in test module instead of 'fset'.

Browse source 
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.
This commit is contained in:
Philipp Stephani 2018-02-02 20:40:10 +01:00
parent f3d0db7f0f
commit 75c663f834
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/data/emacs-module/mod-test.c
View file

@ -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. */

5
test/src/emacs-module-tests.el
View file

@ -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)