[Emacs-diffs] emacs-25 004f4fc 3/3: Simplify module_make_function

[Paul Eggert]

branch: emacs-25
commit 004f4fc9d48f141f920e9ae9399f2b0e585edf9c
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Simplify module_make_function
    
    * src/emacs-module.c (module_make_function):
    Simplify by calling build_unibyte_string.
---
 src/emacs-module.c |   15 +++++----------
 1 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/src/emacs-module.c b/src/emacs-module.c
index 209f99b..11aefc3 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -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,