summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/coding.c2
-rw-r--r--src/keyboard.c2
-rw-r--r--src/mini-gmp.c4
-rw-r--r--src/pdumper.c4
-rw-r--r--src/timefns.c2
5 files changed, 7 insertions, 7 deletions
diff --git a/src/coding.c b/src/coding.c
index 21e6dc4c192..560ec0883ff 100644
--- 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 40aaf496384..d67d18a801e 100644
--- 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 e92e7cf9c72..bf8a6164981 100644
--- 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 ca272a2e7f7..74f198c4ae3 100644
--- 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 6afeca1cb38..fe08efd4c10 100644
--- 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