Use known length of a Lisp string to copy it faster.

* lisp.h (lispstrcpy): New function.  Add comment.
* callproc.c (child_setup):
* dbusbind.c (xd_append_arg):
* doc.c (get_doc_string):
* font.c (Ffont_xlfd_name):
* frame.c (xrdb_get_resource):
* process.c (Fmake_network_process, network_interface_info):
* w32fns.c (Fx_open_connection):
* w32proc.c (sys_spawnve):
* xfns.c (select_visual):
* xfont.c (xfont_list):
* xsmfns.c (x_session_initialize):
* xterm.c (x_term_init): Use it.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/dbusbind.c b/src/dbusbind.c
index 8997e01b068..58302df4927 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -761,7 +761,7 @@ xd_append_arg (int dtype, Lisp_Object object, DBusMessageIter *iter)
                 && STRINGP (CAR_SAFE (XD_NEXT_VALUE (object)))
                 && NILP (CDR_SAFE (XD_NEXT_VALUE (object))))
               {
-                strcpy (signature, SSDATA (CAR_SAFE (XD_NEXT_VALUE (object))));
+                lispstrcpy (signature, CAR_SAFE (XD_NEXT_VALUE (object)));
                 object = CDR_SAFE (XD_NEXT_VALUE (object));
               }