Fix duplicated words in comments

* src/coding.c (encode_string_utf_8):
* src/keyboard.c (syms_of_keyboard):
* src/mini-gmp.c (gmp_lucas_mod, mpz_export):
* src/pdumper.c (dump_set_referrer, dump_queue_compute_score):
* src/timefns.c (Ftime_convert): Remove duplicated words.

src/coding.c

@@ -9613,7 +9613,7 @@ get_char_bytes (int c, int *len)
    byte of the same value.
 
    If HANDLE-OVER-UNI is Qt, encode an over-unicode character
-   into the the same 4 or 5-byte sequence.
+   into the same 4 or 5-byte sequence.
 
    If the two arguments are Qnil, return Qnil if STRING has a
    non-Unicode character.  */

src/keyboard.c

@@ -12063,7 +12063,7 @@ and the minor mode maps regardless of `overriding-local-map'.  */);
 The special values `dragging' and `dropping' assert that the mouse
 cursor retains its appearance during mouse motion.  Any non-nil value
 but `dropping' asserts that motion events always relate to the frame
-where the the mouse movement started.  The value `dropping' asserts
+where the mouse movement started.  The value `dropping' asserts
 that motion events relate to the frame where the mouse cursor is seen
 when generating the event.  If there's no such frame, such motion
 events relate to the frame where the mouse movement started.  */);

src/mini-gmp.c

@@ -3427,7 +3427,7 @@ gmp_lucas_mod (mpz_t V, mpz_t Qk, long Q,
       gmp_lucas_step_k_2k (V, Qk, n);
 
       /* A step k->k+1 is performed if the bit in $n$ is 1	*/
-      /* mpz_tstbit(n,bs) or the the bit is 0 in $n$ but	*/
+      /* mpz_tstbit(n,bs) or the bit is 0 in $n$ but	*/
       /* should be 1 in $n+1$ (bs == b0)			*/
       if (b0 == bs || mpz_tstbit (n, bs))
 	{
@@ -4492,7 +4492,7 @@ mpz_export (void *r, size_t *countp, int order, size_t size, int endian,
       ptrdiff_t word_step;
       /* The current (partial) limb. */
       mp_limb_t limb;
-      /* The number of bytes left to to in this limb. */
+      /* The number of bytes left to do in this limb. */
       size_t bytes;
       /* The index where the limb was read. */
       mp_size_t i;

src/pdumper.c

@@ -630,7 +630,7 @@ dump_set_have_current_referrer (struct dump_context *ctx, bool have)
 #endif
 }
 
-/* Return true if if objects should be enqueued in CTX to refer to an
+/* Return true if objects should be enqueued in CTX to refer to an
    object that the caller should store into CTX->current_referrer.
 
    Until dump_clear_referrer is called, any objects enqueued are being
@@ -1093,7 +1093,7 @@ dump_calc_link_score (dump_off basis,
   return powf (link_score, (float) link_weight / 1000.0f);
 }
 
-/* Compute the score score for a queued object.
+/* Compute the score for a queued object.
 
    OBJECT is the object to query, which must currently be queued for
    dumping.  BASIS is the offset at which we would be

src/timefns.c

@@ -1719,7 +1719,7 @@ DEFUN ("time-convert", Ftime_convert, Stime_convert, 1, 2, 0,
 With optional FORM, convert to that timestamp form.
 Truncate the returned value toward minus infinity.
 
-If FORM is nil (the default), return the the same form as `current-time'.
+If FORM is nil (the default), return the same form as `current-time'.
 If FORM is a positive integer, return a pair of integers (TICKS . FORM),
 where TICKS is the number of clock ticks and FORM is the clock frequency
 in ticks per second.  (Currently the positive integer should be at least