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.

diff --git a/src/coding.c b/src/coding.c
index 21e6dc4c192c585b2a2168c350f10136804483b4..560ec0883ffda9ba945d48ec741f5ab49dfa1fe2 100644 (file)
--- a/src/coding.c
+++ b/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.  */

diff --git a/src/keyboard.c b/src/keyboard.c
index 40aaf49638474266e961a20e5d202c5f3def839c..d67d18a801e528536be470434c093b60540e479b 100644 (file)
--- a/src/keyboard.c
+++ b/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.  */);

diff --git a/src/mini-gmp.c b/src/mini-gmp.c
index e92e7cf9c72eabef3434ee0be37464a634d7bc83..bf8a61649813b786d4da3fb2533d297d8ac69729 100644 (file)
--- a/src/mini-gmp.c
+++ b/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;

diff --git a/src/pdumper.c b/src/pdumper.c
index ca272a2e7f7d2346cb099099c72ad9be9e102f52..74f198c4ae3b2132811e4216fcb8ac455131f3ea 100644 (file)
--- a/src/pdumper.c
+++ b/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

diff --git a/src/timefns.c b/src/timefns.c
index 6afeca1cb38c6775f9ce873a1163adf7666f82d8..fe08efd4c10efd943ab94dfece96d253811af757 100644 (file)
--- a/src/timefns.c
+++ b/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