annotate lisp/international/codepage.el @ 89762:e061826245f3

New file (automatically generated by admin/charset/Makefile).
author Kenichi Handa <handa@m17n.org>
date Tue, 27 Jan 2004 08:40:02 +0000
parents 2f877ed80fa6
children 68c22ea6027c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 36579
diff changeset
1 ;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1998 Free Software Foundation, Inc.
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
4
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5 ;; Author: Eli Zaretskii
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6 ;; Maintainer: FSF
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
7 ;; Keywords: i18n ms-dos ms-windows codepage obsolete
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
14 ;; any later version.
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
27
29922
9473e3466947 (cp-coding-system-for-codepage-1): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 29721
diff changeset
28 ;; Special coding systems for DOS/Windows codepage support.
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
29 ;; Obsolete.
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
31 ;;; Code:
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
32
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
33 ;; I doubt we need compatibility versions of any of these autoloaded
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
34 ;; functions apart from codepage-setup, which users may call.
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
35
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
36 ;; ;;;###autoload
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
37 ;; (defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
38 ;; "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
39 ;; whose first character is at offset OFFSET from the beginning of 8-bit
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
40 ;; ASCII table.
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
42 ;; The created coding system has the usual 3 subsidiary systems: for Unix-,
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
43 ;; DOS- and Mac-style EOL conversion. However, unlike built-in coding
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
44 ;; systems, the Mac-style EOL conversion is currently not supported by the
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
45 ;; decoder and encoder created by this function."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
46 ;; (let* ((decode-table (intern (format "%s-decode-table" codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
47 ;; (nonascii-table
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
48 ;; (intern (format "%s-nonascii-translation-table" codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
49 ;; (decode-translation
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
50 ;; (intern (format "%s-decode-translation-table" codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
51 ;; (encode-translation
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
52 ;; (intern (format "%s-encode-translation-table" codepage))))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
53 ;; (set nonascii-table
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
54 ;; (make-translation-table-from-vector
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
55 ;; (cp-decoding-vector-for-codepage
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
56 ;; (symbol-value decode-table) iso-name offset)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
57 ;; (define-translation-table encode-translation
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
58 ;; (char-table-extra-slot (symbol-value nonascii-table) 0))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
59 ;; ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
60 ;; ;; `?' for one-column charsets, and some Japanese character for
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
61 ;; ;; wide-column charsets. CCL encoder convert that Japanese
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
62 ;; ;; character to either dos-unsupported-char-glyph or "??".
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
63 ;; (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
64 ;; (undef (if (eq system-type 'ms-dos)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
65 ;; (if dos-unsupported-char-glyph
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
66 ;; (logand dos-unsupported-char-glyph 255)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
67 ;; 127)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
68 ;; ??))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
69 ;; (charsets (delq 'ascii
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
70 ;; (delq 'eight-bit-control
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
71 ;; (delq 'eight-bit-graphic
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
72 ;; (delq iso-name
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
73 ;; (copy-sequence charset-list))))))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
74 ;; (wide-column-char (make-char 'japanese-jisx0208 32 32)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
75 ;; (while charsets
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
76 ;; (aset tbl (make-char (car charsets))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
77 ;; (if (= (charset-width (car charsets)) 1) undef wide-column-char))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
78 ;; (setq charsets (cdr charsets))))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
79 ;; (define-translation-table decode-translation
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
80 ;; (symbol-value nonascii-table))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
81 ;; (cp-coding-system-for-codepage-1
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
82 ;; (intern codepage) ?D iso-name decode-translation encode-translation)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
83 ;; ))
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
84
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
85 ;; ;;;###autoload
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
86 ;; (defun cp-charset-for-codepage (codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
87 ;; "Return the charset for which there is a translation table to DOS CODEPAGE.
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
88 ;; CODEPAGE must be the name of a DOS codepage, a string."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
89 ;; (let ((cp-decoder (cp-codepage-decoder codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
90 ;; (if (null cp-decoder)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
91 ;; (error "Unsupported codepage %s" codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
92 ;; (get cp-decoder 'charset))))
36579
24048ec9f8ce (cp770-decode-table)
Eli Zaretskii <eliz@gnu.org>
parents: 34672
diff changeset
93
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
94 ;; ;;;###autoload
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
95 ;; (defun cp-language-for-codepage (codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
96 ;; "Return the name of the MULE language environment for CODEPAGE.
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
97 ;; CODEPAGE must be the name of a DOS codepage, a string."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
98 ;; (let ((cp-decoder (cp-codepage-decoder codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
99 ;; (if (null cp-decoder)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
100 ;; (error "Unsupported codepage %s" codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
101 ;; (get cp-decoder 'language))))
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
102
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
103 ;; ;;;###autoload
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
104 ;; (defun cp-offset-for-codepage (codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
105 ;; "Return the offset to be used in setting up coding systems for CODEPAGE.
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
106 ;; CODEPAGE must be the name of a DOS codepage, a string."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
107 ;; (let ((cp-decoder (cp-codepage-decoder codepage)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
108 ;; (if (null cp-decoder)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
109 ;; (error "Unsupported codepage %s" codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
110 ;; (get cp-decoder 'offset))))
24454
fe0089dd2d2f (cp1250-decode-table, cp1251-decode-table, cp1253-decode-table,
Eli Zaretskii <eliz@gnu.org>
parents: 24371
diff changeset
111
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
112 ;; ;;;###autoload
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
113 ;; (defun cp-supported-codepages ()
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
114 ;; "Return an alist of supported codepages.
24454
fe0089dd2d2f (cp1250-decode-table, cp1251-decode-table, cp1253-decode-table,
Eli Zaretskii <eliz@gnu.org>
parents: 24371
diff changeset
115
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
116 ;; Each association in the alist has the form (NNN . CHARSET), where NNN is the
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
117 ;; codepage number, and CHARSET is the MULE charset which is the closest match
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
118 ;; for the character set supported by that codepage.
24454
fe0089dd2d2f (cp1250-decode-table, cp1251-decode-table, cp1253-decode-table,
Eli Zaretskii <eliz@gnu.org>
parents: 24371
diff changeset
119
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
120 ;; A codepage NNN is supported if a variable called `cpNNN-decode-table' exists,
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
121 ;; is a vector, and has a charset property."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
122 ;; (save-match-data
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
123 ;; (let (alist chset sname)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
124 ;; (mapatoms
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
125 ;; (function
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
126 ;; (lambda (sym)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
127 ;; (if (and (boundp sym)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
128 ;; (string-match "\\`cp\\([1-9][0-9][0-9][0-9]?\\)-decode-table\\'"
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
129 ;; (setq sname (symbol-name sym)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
130 ;; (vectorp (symbol-value sym))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
131 ;; (setq chset (get sym 'charset)))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
132 ;; (setq alist
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
133 ;; (cons (cons (match-string 1 sname) chset) alist))))))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
134 ;; alist)))
24454
fe0089dd2d2f (cp1250-decode-table, cp1251-decode-table, cp1253-decode-table,
Eli Zaretskii <eliz@gnu.org>
parents: 24371
diff changeset
135
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
136 ;;;###autoload
88563
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
137 (defun codepage-setup (&optional codepage)
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
138 "Obsolete. All coding systems are set up initially."
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
139 (interactive))
1b9937bcfbf4 Most of code removed or commented
Dave Love <fx@gnu.org>
parents: 41989
diff changeset
140 (make-obsolete 'codepage-setup "no longer relevant" "22.1")
23915
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
141
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
142 (provide 'codepage)
7ce49fb0dfbc Initial revision
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
143
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 36579
diff changeset
144 ;;; codepage.el ends here