Mercurial > emacs
changeset 94154:2b060bb498d6
(non-iso-charset-alist): Fix typo in obsolescence declaration.
(decode-codepage-char): Remove redundant obsolescence info in docstring.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Apr 2008 10:15:09 +0000 |
| parents | 27a3a0b2d3d2 |
| children | 1acbae4306b2 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Fri Apr 18 10:10:47 2008 +0000 +++ b/lisp/international/mule-diag.el Fri Apr 18 10:15:09 2008 +0000 @@ -204,12 +204,12 @@ (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 @@ (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 @@ (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")