Mercurial > emacs
diff lisp/international/ccl.el @ 23196:30beacf88b75
Doc fixes.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 06 Sep 1998 14:31:49 +0000 |
parents | fc4aaf1b1772 |
children | 5f51adf0b6ec |
line wrap: on
line diff
--- a/lisp/international/ccl.el Sun Sep 06 14:20:14 1998 +0000 +++ b/lisp/international/ccl.el Sun Sep 06 14:31:49 1998 +0000 @@ -100,7 +100,7 @@ ;; | < | > | == | <= | >= | != | de-sjis | en-sjis ;; ASSIGNMENT_OPERATOR := ;; += | -= | *= | /= | %= | &= | '|=' | ^= | <<= | >>= -;; ARRAY := '[' interger ... ']' +;; ARRAY := '[' integer ... ']' ;;; Code: @@ -332,7 +332,7 @@ ;;;###autoload (defun ccl-compile (ccl-program) - "Return a comiled code of CCL-PROGRAM as a vector of integer." + "Return a compiled code of CCL-PROGRAM as a vector of integer." (if (or (null (consp ccl-program)) (null (integerp (car ccl-program))) (null (listp (car (cdr ccl-program))))) @@ -1321,7 +1321,7 @@ ;;;###autoload (defun ccl-execute-with-args (ccl-prog &rest args) "Execute CCL-PROGRAM with registers initialized by the remaining args. -The return value is a vector of resulting CCL registeres." +The return value is a vector of resulting CCL registers." (let ((reg (make-vector 8 0)) (i 0)) (while (and args (< i 8))