procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix typos

Browse source
This commit is contained in:
Stefan Kangas 2021-04-27 18:54:37 +02:00
parent d8e037eeaa
commit 233c0af31e
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/comp.c
View file

@ -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)
{

8
test/src/comp-tests.el
View file

@ -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))))