aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2008-09-30 16:26:10 +0000
committerEli Zaretskii2008-09-30 16:26:10 +0000
commita7a461efcc86da6c5b47e2ed6986b9d1b05ae445 (patch)
tree1490ef97349c83e3db2ba62f31111987144b7e80
parentd9fd933369b432ff2c751d754cdd743feb89f6d9 (diff)
downloademacs-a7a461efcc86da6c5b47e2ed6986b9d1b05ae445.tar.gz
emacs-a7a461efcc86da6c5b47e2ed6986b9d1b05ae445.zip
File removed, as even ms-dos does not need it anymore.
Diffstat
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/international/codepage.el149
2 files changed, 5 insertions, 149 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9be3f696c6b..e3f7fc52841 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
12008-09-30 Eli Zaretskii <eliz@gnu.org> 12008-09-30 Eli Zaretskii <eliz@gnu.org>
2 2
3 * international/codepage.el: File removed, as even ms-dos doesn't
4 need it anymore.
5
6 * loadup.el [ms-dos]: Don't load ccl and codepage.
7
3 * term/internal.el: Remove coding: cookie and no-byte-compile flag. 8 * term/internal.el: Remove coding: cookie and no-byte-compile flag.
4 (IT-character-translations, cjk-codepages-alist): Remove variables. 9 (IT-character-translations, cjk-codepages-alist): Remove variables.
5 (IT-display-table-setup, dos-cpNNN-setup): Remove functions. 10 (IT-display-table-setup, dos-cpNNN-setup): Remove functions.
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
deleted file mode 100644
index c92ade7c603..00000000000
--- a/lisp/international/codepage.el
+++ /dev/null
@@ -1,149 +0,0 @@
1;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
2
3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
4;; 2007, 2008 Free Software Foundation, Inc.
5;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021
8
9;; Author: Eli Zaretskii
10;; Maintainer: FSF
11;; Keywords: i18n ms-dos ms-windows codepage obsolete
12
13;; This file is part of GNU Emacs.
14
15;; GNU Emacs is free software: you can redistribute it and/or modify
16;; it under the terms of the GNU General Public License as published by
17;; the Free Software Foundation, either version 3 of the License, or
18;; (at your option) any later version.
19
20;; GNU Emacs is distributed in the hope that it will be useful,
21;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23;; GNU General Public License for more details.
24
25;; You should have received a copy of the GNU General Public License
26;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27
28;;; Commentary:
29
30;; Special coding systems for DOS/Windows codepage support.
31;; Obsolete.
32
33;;; Code:
34
35(defvar dos-unsupported-char-glyph)
36
37;; I doubt we need compatibility versions of any of these autoloaded
38;; functions apart from codepage-setup, which users may call.
39
40;; ;;;###autoload
41;; (defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
42;; "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME
43;; whose first character is at offset OFFSET from the beginning of 8-bit
44;; ASCII table.
45
46;; The created coding system has the usual 3 subsidiary systems: for Unix-,
47;; DOS- and Mac-style EOL conversion. However, unlike built-in coding
48;; systems, the Mac-style EOL conversion is currently not supported by the
49;; decoder and encoder created by this function."
50;; (let* ((decode-table (intern (format "%s-decode-table" codepage)))
51;; (nonascii-table
52;; (intern (format "%s-nonascii-translation-table" codepage)))
53;; (decode-translation
54;; (intern (format "%s-decode-translation-table" codepage)))
55;; (encode-translation
56;; (intern (format "%s-encode-translation-table" codepage))))
57;; (set nonascii-table
58;; (make-translation-table-from-vector
59;; (cp-decoding-vector-for-codepage
60;; (symbol-value decode-table) iso-name offset)))
61;; (define-translation-table encode-translation
62;; (char-table-extra-slot (symbol-value nonascii-table) 0))
63;; ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set
64;; ;; `?' for one-column charsets, and some Japanese character for
65;; ;; wide-column charsets. CCL encoder convert that Japanese
66;; ;; character to either dos-unsupported-char-glyph or "??".
67;; (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
68;; (undef (if (eq system-type 'ms-dos)
69;; (if dos-unsupported-char-glyph
70;; (logand dos-unsupported-char-glyph 255)
71;; 127)
72;; ??))
73;; (charsets (delq 'ascii
74;; (delq 'eight-bit-control
75;; (delq 'eight-bit-graphic
76;; (delq iso-name
77;; (copy-sequence charset-list))))))
78;; (wide-column-char (make-char 'japanese-jisx0208 32 32)))
79;; (while charsets
80;; (aset tbl (make-char (car charsets))
81;; (if (= (charset-width (car charsets)) 1) undef wide-column-char))
82;; (setq charsets (cdr charsets))))
83;; (define-translation-table decode-translation
84;; (symbol-value nonascii-table))
85;; (cp-coding-system-for-codepage-1
86;; (intern codepage) ?D iso-name decode-translation encode-translation)
87;; ))
88
89;; ;;;###autoload
90;; (defun cp-charset-for-codepage (codepage)
91;; "Return the charset for which there is a translation table to DOS CODEPAGE.
92;; CODEPAGE must be the name of a DOS codepage, a string."
93;; (let ((cp-decoder (cp-codepage-decoder codepage)))
94;; (if (null cp-decoder)
95;; (error "Unsupported codepage %s" codepage)
96;; (get cp-decoder 'charset))))
97
98;; ;;;###autoload
99;; (defun cp-language-for-codepage (codepage)
100;; "Return the name of the MULE language environment for CODEPAGE.
101;; CODEPAGE must be the name of a DOS codepage, a string."
102;; (let ((cp-decoder (cp-codepage-decoder codepage)))
103;; (if (null cp-decoder)
104;; (error "Unsupported codepage %s" codepage)
105;; (get cp-decoder 'language))))
106
107;; ;;;###autoload
108;; (defun cp-offset-for-codepage (codepage)
109;; "Return the offset to be used in setting up coding systems for CODEPAGE.
110;; CODEPAGE must be the name of a DOS codepage, a string."
111;; (let ((cp-decoder (cp-codepage-decoder codepage)))
112;; (if (null cp-decoder)
113;; (error "Unsupported codepage %s" codepage)
114;; (get cp-decoder 'offset))))
115
116;; ;;;###autoload
117;; (defun cp-supported-codepages ()
118;; "Return an alist of supported codepages.
119
120;; Each association in the alist has the form (NNN . CHARSET), where NNN is the
121;; codepage number, and CHARSET is the MULE charset which is the closest match
122;; for the character set supported by that codepage.
123
124;; A codepage NNN is supported if a variable called `cpNNN-decode-table' exists,
125;; is a vector, and has a charset property."
126;; (save-match-data
127;; (let (alist chset sname)
128;; (mapatoms
129;; (function
130;; (lambda (sym)
131;; (if (and (boundp sym)
132;; (string-match "\\`cp\\([1-9][0-9][0-9][0-9]?\\)-decode-table\\'"
133;; (setq sname (symbol-name sym)))
134;; (vectorp (symbol-value sym))
135;; (setq chset (get sym 'charset)))
136;; (setq alist
137;; (cons (cons (match-string 1 sname) chset) alist))))))
138;; alist)))
139
140;;;###autoload
141(defun codepage-setup (&optional codepage)
142 "Obsolete. All coding systems are set up initially."
143 (interactive))
144(make-obsolete 'codepage-setup "no longer relevant." "23.1")
145
146(provide 'codepage)
147
148;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
149;;; codepage.el ends here
generated by cgit v1.2.1 (git 2.18.0) at 2026-02-06 07:35:13 +0000