; Fix typos

diff --git a/src/comp.c b/src/comp.c
index 5309be46dec7cd9a7f2e6037aafde26f9cee1501..c2da5b2ebf5c24993be71ab2c3d2b391510b0405 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1,4 +1,4 @@
-/* Compile elisp into native code.
+/* Compile Emacs Lisp into native code.
    Copyright (C) 2019-2021 Free Software Foundation, Inc.
 
 Author: Andrea Corallo <akrl@sdf.org>
@@ -4716,7 +4716,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
        return;
     }
 
-  /* This is to have deferred compilaiton able to compile comp
+  /* This is to have deferred compilation able to compile comp
      dependencies breaking circularity.  */
   if (!NILP (Ffeaturep (Qcomp, Qnil)))
     {
@@ -4949,7 +4949,7 @@ load_comp_unit (struct Lisp_Native_Comp_Unit *comp_u, bool loading_dump,
       /* In case another load of the same CU is active on the stack
         all ephemeral data is hold by that frame.  Re-writing
         'data_ephemeral_vec' would be not only a waste of cycles but
-        more importanly would lead to crashed if the contained data
+        more importantly would lead to crashed if the contained data
         is not cons hashed.  */
       if (!recursive_load)
        {

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index a1893fde5c068df397ce376e004510ab0557a067..ba8b8b009366886319986a8b8e02a74bffbcf9fe 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -293,7 +293,7 @@ Check that the resulting binaries do not differ."
                (comp-tests-throw-f 3)))))
 
 (comp-deftest gc ()
-  "Try to do some longer computation to let the gc kick in."
+  "Try to do some longer computation to let the GC kick in."
   (dotimes (_ 100000)
     (comp-tests-cons-cdr-f 3))
   (should (= (comp-tests-cons-cdr-f 3) 3)))
@@ -317,7 +317,7 @@ Check that the resulting binaries do not differ."
   (should (string= (comp-tests-string-trim-f "dsaf ") "dsaf")))
 
 (comp-deftest trampoline-removal ()
-  ;; This tests that we can can call primitives with no dedicated bytecode.
+  ;; This tests that we can call primitives with no dedicated bytecode.
   ;; At speed >= 2 the trampoline will not be used.
   (should (hash-table-p (comp-tests-trampoline-removal-f))))
 
@@ -399,7 +399,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
   (should (string= " ➊" (comp-test-45342-f 1))))
 
 (comp-deftest assume-double-neg ()
-  "In fwprop assumtions (not (not (member x))) /= (member x)."
+  "In fwprop assumptions (not (not (member x))) /= (member x)."
   (should-not (comp-test-assume-double-neg-f "bar" "foo")))
 
 (comp-deftest assume-in-loop-1 ()
@@ -416,7 +416,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
 
 (defvar comp-test-primitive-advice)
 (comp-deftest primitive-advice ()
-  "Test effectiveness of primitive advicing."
+  "Test effectiveness of primitive advising."
   (let (comp-test-primitive-advice
         (f (lambda (&rest args)
              (setq comp-test-primitive-advice args))))