From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 24 Nov 2015 03:00:03 +0000 (-0800)
Subject: Simplify module_make_function
X-Git-Tag: emacs-25.0.90~668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=004f4fc9d48f141f920e9ae9399f2b0e585edf9c;p=emacs.git

Simplify module_make_function

* src/emacs-module.c (module_make_function):
Simplify by calling build_unibyte_string.
---

diff --git a/src/emacs-module.c b/src/emacs-module.c
index 209f99baf0f..11aefc31359 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,