(codepage-setup): Doc fix.

(cp-decoding-vector-for-codepage): Likewise.

1 files changed, 3 insertions, 4 deletions

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index a804792385d..026aa6c2ea1 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -132,7 +132,7 @@ variety is actually just an alias for the -unix variety)."
 (defun cp-decoding-vector-for-codepage (table charset offset)
   "Create a vector for decoding IBM PC characters using conversion table
 TABLE into an ISO-8859 character set CHARSET whose first non-ASCII
-character' is generated by (make-char CHARSET OFFSET)."
+character is generated by (make-char CHARSET OFFSET)."
   (let* ((len (length table))
          (undefined-char
           (if (eq system-type 'ms-dos)
@@ -513,12 +513,11 @@ is a vector, and has a charset property."
 
 ;;;###autoload
 (defun codepage-setup (codepage)
-  "Create 2 coding systems for codepage CODEPAGE: cpCODEPAGE-dos and
-cpCODEPAGE-unix.
+  "Create a coding system cpCODEPAGE to support the IBM codepage CODEPAGE.
 
 These coding systems are meant for encoding and decoding 8-bit non-ASCII
 characters used by the IBM codepages, typically in conjunction with files
-read/written by MS-DOS software, or for display on MS-DOS terminal."
+read/written by MS-DOS software, or for display on the MS-DOS terminal."
   (interactive
    (let ((completion-ignore-case t)
          (candidates (cp-supported-codepages)))