Doc fixes.

9 files changed, 46 insertions, 46 deletions

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index e0b12e35abe..b232ede8426 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -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 @@ register CCL-PROGRAM by name NAME, and return NAME."
 ;;;###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))
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index e23d9c4bd75..dda5190707e 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -118,7 +118,7 @@
 (put 'encoded-kbd-iso2022-invocations 'permanent-local t)
 
 (defun encoded-kbd-iso2022-designation ()
-  "Do ISO2022 designation according to the curren key in Encoded-kbd mode.
+  "Do ISO2022 designation according to the current key in Encoded-kbd mode.
 The following key sequence may cause multilingual text insertion."
   (interactive)
   (let ((key-seq (this-command-keys))
@@ -156,16 +156,16 @@ The following key sequence may cause multilingual text insertion."
         ;; Graphic plane 0 (0x20..0x7f) is for ASCII.  We don't have
         ;; to handle characters in this range specially.
         (if (not (memq prev-g0-charset '(ascii latin-jisx0201)))
-            ;; We must exit recusive edit now.
+            ;; We must exit recursive edit now.
             (throw 'exit nil))
       ;; Graphic plane 0 is for non-ASCII.
       (if (memq prev-g0-charset '(ascii latin-jisx0201))
-          ;; We must handle kyes specially.
+          ;; We must handle keys specially.
           (let ((overriding-local-map encoded-kbd-iso2022-non-ascii-map))
             (recursive-edit))))))
 
 (defun encoded-kbd-handle-8bit ()
-  "Handle an 8-bit character enterned in Encoded-kbd mode."
+  "Handle an 8-bit character entered in Encoded-kbd mode."
   (interactive)
   (cond ((eq encoded-kbd-coding 'iso2022-7)
          (error "Can't handle the character code %d" last-command-char))
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 06c5ada9d25..aaa53d88fe5 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -27,10 +27,10 @@
 ;; Set standard REGISTRY property of charset to find an appropriate
 ;; font for each charset.  This is used to generate a font name in a
 ;; fontset.  If the value contains a character `-', the string before
-;; that is embeded in `CHARSET_REGISTRY' field, and the string after
-;; that is embeded in `CHARSET_ENCODING' field.  If the value does not
-;; contain `-', the whole string is embeded in `CHARSET_REGISTRY'
-;; field, and a wild card character `*' is embeded in
+;; that is embedded in `CHARSET_REGISTRY' field, and the string after
+;; that is embedded in `CHARSET_ENCODING' field.  If the value does not
+;; contain `-', the whole string is embedded in `CHARSET_REGISTRY'
+;; field, and a wild card character `*' is embedded in
 ;; `CHARSET_ENCODING' field.
 
 (defvar x-charset-registries
@@ -327,7 +327,7 @@ automatically."
           (let ((l x-font-name-charset-alist))
             ;; If the ASCII font can also be used for another
             ;; charsets, use that font instead of what generated based
-            ;; on x-charset-registery in the previous code.
+            ;; on x-charset-registry in the previous code.
             (while l
               (if (string-match (car (car l)) ascii-font)
                   (let ((charsets (cdr (car l))))
@@ -530,7 +530,7 @@ It returns a name of the created fontset."
                         (or font
                             (x-modify-font-name resolved-ascii-font style)))
                   ;; but leave fonts for the other charsets unmodified
-                  ;; for the momemnt.  They are modified for the style
+                  ;; for the moment.  They are modified for the style
                   ;; in instantiate-fontset.
                   (setq uninstantiated-fontset-alist
                         (cons (list new-name
@@ -557,8 +557,8 @@ Optional 2nd arg FONTSET-NAME is a string to be used in
 an appropriate name is generated automatically.
 
 Style variants of the fontset is created too.  Font names in the
-variants are generated automatially from FONT unless X resources
-XXX.attribyteFont explicitly specify them.
+variants are generated automatically from FONT unless X resources
+XXX.attributeFont explicitly specify them.
 
 It returns a name of the created fontset."
   (or resolved-font
@@ -602,7 +602,7 @@ It returns a name of the created fontset."
                                           styles))))
 
 (defun instantiate-fontset (fontset)
-  "Make FONTSET be readly to use.
+  "Make FONTSET be ready to use.
 FONTSET should be in the variable `uninstantiated-fontset-alist' in advance.
 Return FONTSET if it is created successfully, else return nil."
   (let ((fontset-data (assoc fontset uninstantiated-fontset-alist)))
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el
index 53c26f7d593..96ac532c9ac 100644
--- a/lisp/international/kinsoku.el
+++ b/lisp/international/kinsoku.el
@@ -47,7 +47,7 @@ The value 0 means there's no limitation.")
          ;; ASCII
          "!)-_~}]:;',.?"
          ;; Latin JISX0201
-         ;; Instead of putting Latin JISX0201 string directyly, we
+         ;; Instead of putting Latin JISX0201 string directly, we
          ;; generate the string as below to avoid character
          ;; unification problem.
          (let* ((str1 "!)-_~}]:;',.?")
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 8b872630d5d..6338dc10ed8 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -237,7 +237,7 @@ and the return value is the length of the conversion."
         (goto-char to)
         (kkc-update-conversion 'all)
 
-        ;; Then, ask users to selecte a desirable conversion.
+        ;; Then, ask users to select a desirable conversion.
         (force-mode-line-update)
         (setq kkc-converting t)
         (while kkc-converting
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 22d52eb7502..a41ec0503ee 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -269,7 +269,7 @@ Comparison done with EQ."
 All coding systems in the list can safely encode any multibyte characters
 in the text.
 
-If the text contains no multibyte charcters, return a list of a single
+If the text contains no multibyte characters, return a list of a single
 element `undecided'."
   (find-coding-systems-for-charsets (find-charset-region from to)))
 
@@ -278,7 +278,7 @@ element `undecided'."
 All coding systems in the list can safely encode any multibyte characters
 in STRING.
 
-If STRING contains no multibyte charcters, return a list of a single
+If STRING contains no multibyte characters, return a list of a single
 element `undecided'."
   (find-coding-systems-for-charsets (find-charset-string string)))
 
@@ -329,7 +329,7 @@ where
   COUNT is a number of characters,
   CHARs are found characters of the character set.
 Optional 3rd arg MAXCOUNT limits how many CHARs are put in the above list.
-Optioanl 4th arg EXCLUDE is a list of character sets to be ignored."
+Optional 4th arg EXCLUDE is a list of character sets to be ignored."
   (let ((chars nil)
         charset char)
     (if (stringp from)
@@ -561,7 +561,7 @@ globally disabled, i.e. the value of `default-enable-multibyte-characters'
 is nil.
 
   unibyte-syntax     value is a library name to load to set
-                        unibyte 8-bit charcater syntaxes for this
+                        unibyte 8-bit character syntaxes for this
                         language environment.
 
   unibyte-display    value is a coding system to encode characters
@@ -685,7 +685,7 @@ Emacs loads this file at startup time.")
 ;;; %s -- list of LEIM (Library of Emacs Input Method)
 ;;
 ;; This file contains a list of LEIM (Library of Emacs Input Method)
-;; in the same directory as this file.  Loading this file registeres
+;; in the same directory as this file.  Loading this file registers
 ;; the whole input methods in Emacs.
 ;;
 ;; Each entry has the form:
@@ -1017,7 +1017,7 @@ But, if this flag is non-nil, it displays them in echo area instead.")
   "This flag controls the behaviour of an input method on invalid key input.
 Usually, when a user types a key which doesn't start any character
 handled by the input method, the key is handled by turning off the
-input method temporarily.  After that key, the input method is renabled.
+input method temporarily.  After that key, the input method is re-enabled.
 But, if this flag is non-nil, the input method is never back on.")
 
 
@@ -1034,7 +1034,7 @@ cancel the effect.")
 When this hook is run, the variable `current-language-environment'
 is still bound to the language environment being exited.
 
-This hook is mainly used for cancelling the effect of
+This hook is mainly used for canceling the effect of
 `set-language-environment-hook' (which-see).")
 
 (defun setup-specified-language-environment ()
@@ -1080,7 +1080,7 @@ The default status is as follows:
         coding-category-sjis            japanese-shift-jis
         coding-category-big5            chinese-big5
         coding-category-ccl             nil
-        coding-category-binarry         no-conversion
+        coding-category-binary          no-conversion
 "
   (interactive)
   ;; This function formerly set default-enable-multibyte-characters to t,
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index bda1267a3cd..c7489b642f3 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -304,7 +304,7 @@
  '((safe-charsets ascii)))
 
 ;; Use iso-safe for terminal output if some other coding system is not
-;; specified explicitely.
+;; specified explicitly.
 (set-safe-terminal-coding-system-internal 'iso-safe)
 
 ;; The other coding-systems are defined in each language specific
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 96a69730583..39eb9e3a9b1 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -124,7 +124,7 @@ the resulting string may be narrower than END-COLUMN."
           (concat head-padding str tail-padding)
         str))))
 
-;;; For backward compatiblity ...
+;;; For backward compatibility ...
 ;;;###autoload
 (defalias 'truncate-string 'truncate-string-to-width)
 (make-obsolete 'truncate-string 'truncate-string-to-width)
@@ -134,7 +134,7 @@ the resulting string may be narrower than END-COLUMN."
 
 ;;;###autoload
 (defsubst nested-alist-p (obj)
-  "Return t if OBJ is a nesetd alist.
+  "Return t if OBJ is a nested alist.
 
 Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
 any Lisp object, and BRANCHES is a list of cons cells of the form
@@ -148,13 +148,13 @@ can be a string, a vector, or a list."
 ;;;###autoload
 (defun set-nested-alist (keyseq entry alist &optional len branches)
   "Set ENTRY for KEYSEQ in a nested alist ALIST.
-Optional 4th arg LEN non-nil means the firlst LEN elements in KEYSEQ
+Optional 4th arg LEN non-nil means the first LEN elements in KEYSEQ
  is considered.
 Optional argument BRANCHES if non-nil is branches for a keyseq
 longer than KEYSEQ.
 See the documentation of `nested-alist-p' for more detail."
   (or (nested-alist-p alist)
-      (error "Invalid arguement %s" alist))
+      (error "Invalid argument %s" alist))
   (let ((islist (listp keyseq))
         (len (or len (length keyseq)))
         (i 0)
@@ -189,7 +189,7 @@ If ALIST is not deep enough for KEYSEQ, return number which is
 Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
  even if ALIST is not deep enough."
   (or (nested-alist-p alist)
-      (error "invalid arguement %s" alist))
+      (error "invalid argument %s" alist))
   (or len
       (setq len (length keyseq)))
   (let ((i (or start 0)))
@@ -266,9 +266,9 @@ If optional arg BASE-ONLY is non-nil, only base coding systems are listed."
       (let* ((coding (car (cdr tail)))
              (aliases (coding-system-get coding 'alias-coding-systems)))
         (if (or
-             ;; CODING is an eol varinant if not in ALIASES.
+             ;; CODING is an eol variant if not in ALIASES.
              (not (memq coding aliases))
-             ;; CODING is an alias if it is not car of ALISES.
+             ;; CODING is an alias if it is not car of ALIASES.
              (and base-only (not (eq coding (car aliases)))))
             (setcdr tail (cdr (cdr tail)))
           (setq tail (cdr tail)))))
@@ -347,7 +347,7 @@ coding systems ordered by priority."
 ;;;###autoload
 (defun detect-coding-with-language-environment (from to lang-env)
   "Detect a coding system of the text between FROM and TO with LANG-ENV.
-The detection takes into accont the coding system priorities for the
+The detection takes into account the coding system priorities for the
 language environment LANG-ENV."
   (let ((coding-priority (get-language-info lang-env 'coding-priority)))
     (if coding-priority
@@ -359,7 +359,7 @@ language environment LANG-ENV."
       (detect-coding-region from to))))
 
 
-;;; Composite charcater manipulations.
+;;; Composite character manipulations.
 
 ;;;###autoload
 (defun compose-region (start end)
@@ -483,7 +483,7 @@ overall glyph is updated as follows:
 ;;;###autoload
 (defun compose-chars (first-component &rest args)
   "Return one char string composed from the arguments.
-Each argument is a character (including a composite chararacter)
+Each argument is a character (including a composite character)
 or a composition rule.
 A composition rule has the form \(GLOBAL-REF-POINT . NEW-REF-POINT).
 See the documentation of `reference-point-alist' for more detail."
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 03de406c3f3..df0cb79fa1c 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -235,7 +235,7 @@ See the function `charset-info' for more detail."
     `(aref (charset-info ,charset) 14)))
 
 (defun set-charset-plist (charset plist)
-  "Set CHARSET's property list to PLIST, and retrun PLIST."
+  "Set CHARSET's property list to PLIST, and return PLIST."
   (aset (charset-info  charset) 14 plist))
 
 (defun make-char (charset &optional c1 c2)
@@ -355,7 +355,7 @@ See also the documentation of make-char."
 ;; The value is a list to indicate valid byte ranges of the encoded
 ;; file.  Each element of the list is an integer or a cons of integer.
 ;; In the former case, the integer value is a valid byte code.  In the
-;; latter case, the integers specifies the range of valie byte codes.
+;; latter case, the integers specifies the range of valid byte codes.
 
 
 ;; Return coding-spec of CODING-SYSTEM
@@ -535,7 +535,7 @@ a value of `safe-charsets' in PLIST."
     (if (or (not (integerp type)) (< type 0) (> type 5))
         (error "TYPE argument must be 0..5"))
     (if (or (not (integerp mnemonic)) (<= mnemonic ? ) (> mnemonic 127))
-        (error "MNEMONIC arguemnt must be an ASCII printable character."))
+        (error "MNEMONIC argument must be an ASCII printable character."))
     (aset coding-spec coding-spec-type-idx type)
     (aset coding-spec coding-spec-mnemonic-idx mnemonic)
     (aset coding-spec coding-spec-doc-string-idx
@@ -763,7 +763,7 @@ the text is encoded or decoded by CODING-SYSTEM."
   (check-coding-system coding-system)
   (setq selection-coding-system coding-system))
 
-;; Coding system lastly specfied by the command
+;; Coding system lastly specified by the command
 ;; set-next-selection-coding-system.
 (defvar last-next-selection-coding-system nil)
 
@@ -789,7 +789,7 @@ This setting is effective for the next communication only."
 LIST is a list of coding categories ordered by priority."
   (let ((l arg)
         (current-list (copy-sequence coding-category-list)))
-    ;; Check the varidity of ARG while deleting coding categories in
+    ;; Check the validity of ARG while deleting coding categories in
     ;; ARG from CURRENT-LIST.  We assume that CODING-CATEGORY-LIST
     ;; contains all coding categories.
     (while l
@@ -827,7 +827,7 @@ and the last 3k of the file, but the middle may be omitted.
 It checks FILENAME against the variable `auto-coding-alist'.
 If FILENAME doesn't match any entries in the variable,
 it checks for a `coding:' tag in the first one or two lines following
-point.  If no `coding:' tag is found, it checks for alocal variables
+point.  If no `coding:' tag is found, it checks for local variables
 list in the last 3K bytes out of the SIZE bytes.
 
 The return value is the specified coding system,
@@ -851,7 +851,7 @@ function by default."
                (tail-end (+ head-start size))
                coding-system head-found tail-found pos)
           ;; Try a short cut by searching for the string "coding:"
-          ;; and for "unibyte:" at th ehead and tail of SIZE bytes.
+          ;; and for "unibyte:" at the head and tail of SIZE bytes.
           (setq head-found (or (search-forward "coding:" head-end t)
                                (search-forward "unibyte:" head-end t)))
           (if (and head-found (> head-found tail-start))
@@ -1018,7 +1018,7 @@ There are three of such tables, `file-coding-system-alist',
 TARGET-TYPE specifies which of them to modify.
 If it is `file', it affects `file-coding-system-alist' (which see).
 If it is `process', it affects `process-coding-system-alist' (which see).
-If it is `network', it affects `network-codign-system-alist' (which see).
+If it is `network', it affects `network-coding-system-alist' (which see).
 
 REGEXP is a regular expression matching a target of I/O operation.
 The target is a file name if TARGET-TYPE is `file', a program name if
@@ -1158,7 +1158,7 @@ See also the variable `nonascii-translation-table'."
     table))
 
 (defun define-translation-table (symbol &rest args)
-  "Define SYMBOL as a name of translation table makde by ARGS.
+  "Define SYMBOL as a name of translation table made by ARGS.
 
 See the documentation of the function `make-translation-table' for the
 meaning of ARGS.