diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-diag.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 19057f57b13..4a5a8a8ca86 100644 --- 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") |