Spelling fixes

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index afc519662fb2203e0ba94c71cb70ea98a8bba154..429c14b5e44a12831dae37e41ff39fb373fe9e52 100644 (file)
--- 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)