Spelling fixes

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index afc519662fb..429c14b5e44 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1357,10 +1357,10 @@ BRANCH := (branch EXPRESSION CCL_BLOCK_0 [CCL_BLOCK_1 ...])
 ;; Execute STATEMENTs until (break) or (end) is executed.
 
 ;; Create a block of STATEMENTs for repeating.  The STATEMENTs
-;; are executed sequentially unitl REPEAT or BREAK is executed.
+;; are executed sequentially until REPEAT or BREAK is executed.
 ;; If REPEAT statement is executed, STATEMENTs are executed from the
 ;; start again.  If BREAK statements is executed, the execution
-;; exits from the block.  If neither REAPEAT nor BREAK is
+;; exits from the block.  If neither REPEAT nor BREAK is
 ;; executed, the execution exits from the block after executing the
 ;; last STATEMENT.
 LOOP := (loop STATEMENT [STATEMENT ...])
@@ -1516,7 +1516,7 @@ TRANSLATE :=
 	;; respectively.
 	;; On encoding, the charset of highest priority is selected.
 	;; After the execution, DST is specified by its charset
-	;; id number and codepouin in REG_1 and REG_2 respectively.
+	;; id number and codepoint in REG_1 and REG_2 respectively.
 	(translate-character REG_0 REG_1 REG_2)
 
 	;; Same as above except for SYMBOL specifying the name of
@@ -1540,7 +1540,7 @@ LOOKUP :=
 	| (lookup-integer SYMBOL REG(integer))
 
 MAP :=
-	;; The following statements are for internal use only. 
+	;; The following statements are for internal use only.
 	(iterate-multiple-map REG REG MAP-IDs)
 	| (map-multiple REG REG (MAP-SET))
 	| (map-single REG REG MAP-ID)