procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify module_make_function

Browse source 
* src/emacs-module.c (module_make_function):
Simplify by calling build_unibyte_string.
This commit is contained in:
Paul Eggert 2015-11-23 19:00:03 -08:00
parent da8c7ca264
commit 004f4fc9d4
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/emacs-module.c
View file

@ -387,16 +387,11 @@ module_make_function (emacs_env *env, ptrdiff_t min_arity, ptrdiff_t max_arity,
envptr->data = data;
Lisp_Object envobj = make_save_ptr (envptr);
Lisp_Object doc;
if (documentation == NULL)
doc = Qnil;
else
{
ptrdiff_t nbytes = strlen (documentation);
doc = make_unibyte_string (documentation, nbytes);
doc = code_convert_string_norecord (doc, Qutf_8, false);
}
Lisp_Object doc
= (documentation
? code_convert_string_norecord (build_unibyte_string (documentation),
Qutf_8, false)
: Qnil);
Lisp_Object ret = list4 (Qlambda,
list2 (Qand_rest, Qargs),
doc,