diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:15:09 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:15:09 +0000 |
| commit | bc01a1781473c152dd0d401ab9ea075c024c7f48 (patch) | |
| tree | cadcf08aa37f7007385fe40cc87c64cdeac78de4 /lisp/international/mule-diag.el | |
| parent | 0adf61c9c791232f033fbf3b3bbe44e8f219b5f2 (diff) | |
| download | emacs-bc01a1781473c152dd0d401ab9ea075c024c7f48.tar.gz | |
(non-iso-charset-alist): Fix typo in obsolescence declaration.
(decode-codepage-char): Remove redundant obsolescence info in docstring.
Diffstat (limited to 'lisp/international/mule-diag.el')
| -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") |