(non-iso-charset-alist): Fix typo in obsolescence declaration.

(decode-codepage-char): Remove redundant obsolescence info in docstring.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 19057f57b1303b6c6974f7344c7876ee3a9ac8da..4a5a8a8ca8674a671de0eaf21eb35c93dfe823c7 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -204,12 +204,12 @@ SORT-KEY should be `name' or `iso-spec' (default `name')."
 
 (defvar non-iso-charset-alist nil
   "Obsolete.")
-(make-obsolete-variable 'non-iso-charset-alist "no longer relevant" "23.1")
+(make-obsolete-variable 'non-iso-charset-alist "no longer relevant." "23.1")
 
 (defun decode-codepage-char (codepage code)
   "Decode a character that has code CODE in CODEPAGE.
 Return a decoded character string.  Each CODEPAGE corresponds to a
-coding system cpCODEPAGE.  This function is obsolete."
+coding system cpCODEPAGE."
   (decode-char (intern (format "cp%d" codepage)) code))
 (make-obsolete 'decode-codepage-char 'decode-char "23.1")
 
@@ -343,7 +343,7 @@ detailed meanings of these arguments."
              (push c aliases)))
        (if aliases
            (insert "Aliases: " (mapconcat #'symbol-name aliases ", ") ?\n)))
-      
+
       (dolist (elt `((:ascii-compatible-p "ASCII compatible." nil)
                     (:map "Map file: " identity)
                     (:unify-map "Unification map file: " identity)
@@ -1213,7 +1213,7 @@ The list is null if CHAR isn't found in `unicodedata-file'."
                           (string-to-number (nth 2 fields))
                           '((0 . "Spacing")
                             (1 . "Overlays and interior")
-                            (7 . "Nuktas") 
+                            (7 . "Nuktas")
                             (8 . "Hiragana/Katakana voicing marks")
                             (9 . "Viramas")
                             (10 . "Start of fixed position classes")