From 6f525962ef7a53053d381e49f82a5a37bf3baed6 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 23 Jan 2001 23:00:54 +0000
Subject: [PATCH] Correct misspellings. * emu.el (code-convert-string): *
 path-util.el (add-path): * pccl.el (define-ccl-program): *
 poem.el (charset-after): * product.el
 (product-set-checkers, product-find):

---
 emu.el       |    4 ++--
 path-util.el |    2 +-
 pccl.el      |    2 +-
 poem.el      |    2 +-
 product.el   |    4 ++--
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/emu.el b/emu.el
index fce2080..40b70b2 100644
--- a/emu.el
+++ b/emu.el
@@ -130,7 +130,7 @@ TABLE defaults to the current buffer's category table."
        
        (defun code-convert-string (str ic oc)
 	 "Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
+On successful conversion, returns the result string,
 else returns nil."
 	 (if (not (eq ic oc))
 	     (convert-string-kanji-code str ic oc)
@@ -157,7 +157,7 @@ else returns nil."
        
        (defun code-convert-string (str ic oc)
 	 "Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
+On successful conversion, returns the result string,
 else returns nil. [emu-latin1.el; old MULE emulating function]"
 	 str)
 
diff --git a/path-util.el b/path-util.el
index db87fc7..8e37115 100644
--- a/path-util.el
+++ b/path-util.el
@@ -38,7 +38,7 @@ directories and it does not exist in `load-path'.
 
 You can use following PATH styles:
 	load-path relative: \"PATH/\"
-			(it is searched from `defaul-load-path')
+			(it is searched from `default-load-path')
 	home directory relative: \"~/PATH/\" \"~USER/PATH/\"
 	absolute path: \"/HOO/BAR/BAZ/\"
 
diff --git a/pccl.el b/pccl.el
index c696f75..7f7f3a9 100644
--- a/pccl.el
+++ b/pccl.el
@@ -50,7 +50,7 @@
 
   (defadvice define-ccl-program
     (before accept-long-ccl-program activate)
-    "When CCL-PROGRAM is too long, internal buffer is extended automaticaly."
+    "When CCL-PROGRAM is too long, internal buffer is extended automatically."
     (let ((try-ccl-compile t)
           (prog (eval (ad-get-arg 1))))
       (ad-set-arg 1 (` '(, prog)))
diff --git a/poem.el b/poem.el
index ec752a3..ec87a43 100644
--- a/poem.el
+++ b/poem.el
@@ -64,7 +64,7 @@ If STRING is multibyte, the result is STRING itself.
 
 (defun-maybe charset-after (&optional pos)
   "Return charset of a character in current buffer at position POS.
-If POS is nil, it defauls to the current point.
+If POS is nil, it defaults to the current point.
 If POS is out of range, the value is nil.
 \[Emacs 20.3 emulating function]"
   (char-charset (char-after pos))
diff --git a/product.el b/product.el
index 70eae24..a91606e 100644
--- a/product.el
+++ b/product.el
@@ -96,7 +96,7 @@ numbers.  Optional 4th argument CODE-NAME is a string."
   "Set code-name of PRODUCT to CODE-NAME."
   (aset product 3 code-name))
 (defun product-set-checkers (product checkers)
-  "Set ckecker functions of PRODUCT to CHECKERS."
+  "Set checker functions of PRODUCT to CHECKERS."
   (aset product 4 checkers))
 (defun product-set-family-products (product products)
   "Set family products of PRODUCT to PRODUCTS."
@@ -205,7 +205,7 @@ FEATURE is a symbol of the feature."
 
 (defun product-find (product)
   "Find product information.
-If PROCUCT is a product structure, then return PRODUCT itself.
+If PRODUCT is a product structure, then return PRODUCT itself.
 If PRODUCT is a string, then find product by name and return a
 product structure.  If PRODUCT is symbol of feature, then return
 the feature's product."
-- 
1.7.10.4