From: Eli Zaretskii Date: Tue, 30 Sep 2008 16:26:10 +0000 (+0000) Subject: File removed, as even ms-dos does not need it anymore. X-Git-Tag: emacs-pretest-23.0.90~2711 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7a461efcc86da6c5b47e2ed6986b9d1b05ae445;p=emacs.git File removed, as even ms-dos does not need it anymore. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9be3f696c6b..e3f7fc52841 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2008-09-30 Eli Zaretskii + * international/codepage.el: File removed, as even ms-dos doesn't + need it anymore. + + * loadup.el [ms-dos]: Don't load ccl and codepage. + * term/internal.el: Remove coding: cookie and no-byte-compile flag. (IT-character-translations, cjk-codepages-alist): Remove variables. (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 @@ -;;; codepage.el --- MS-DOS/MS-Windows specific coding systems - -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, -;; 2007, 2008 Free Software Foundation, Inc. -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 -;; National Institute of Advanced Industrial Science and Technology (AIST) -;; Registration Number H14PRO021 - -;; Author: Eli Zaretskii -;; Maintainer: FSF -;; Keywords: i18n ms-dos ms-windows codepage obsolete - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;; Special coding systems for DOS/Windows codepage support. -;; Obsolete. - -;;; Code: - -(defvar dos-unsupported-char-glyph) - -;; I doubt we need compatibility versions of any of these autoloaded -;; functions apart from codepage-setup, which users may call. - -;; ;;;###autoload -;; (defun cp-make-coding-systems-for-codepage (codepage iso-name offset) -;; "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME -;; whose first character is at offset OFFSET from the beginning of 8-bit -;; ASCII table. - -;; The created coding system has the usual 3 subsidiary systems: for Unix-, -;; DOS- and Mac-style EOL conversion. However, unlike built-in coding -;; systems, the Mac-style EOL conversion is currently not supported by the -;; decoder and encoder created by this function." -;; (let* ((decode-table (intern (format "%s-decode-table" codepage))) -;; (nonascii-table -;; (intern (format "%s-nonascii-translation-table" codepage))) -;; (decode-translation -;; (intern (format "%s-decode-translation-table" codepage))) -;; (encode-translation -;; (intern (format "%s-encode-translation-table" codepage)))) -;; (set nonascii-table -;; (make-translation-table-from-vector -;; (cp-decoding-vector-for-codepage -;; (symbol-value decode-table) iso-name offset))) -;; (define-translation-table encode-translation -;; (char-table-extra-slot (symbol-value nonascii-table) 0)) -;; ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set -;; ;; `?' for one-column charsets, and some Japanese character for -;; ;; wide-column charsets. CCL encoder convert that Japanese -;; ;; character to either dos-unsupported-char-glyph or "??". -;; (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0)) -;; (undef (if (eq system-type 'ms-dos) -;; (if dos-unsupported-char-glyph -;; (logand dos-unsupported-char-glyph 255) -;; 127) -;; ??)) -;; (charsets (delq 'ascii -;; (delq 'eight-bit-control -;; (delq 'eight-bit-graphic -;; (delq iso-name -;; (copy-sequence charset-list)))))) -;; (wide-column-char (make-char 'japanese-jisx0208 32 32))) -;; (while charsets -;; (aset tbl (make-char (car charsets)) -;; (if (= (charset-width (car charsets)) 1) undef wide-column-char)) -;; (setq charsets (cdr charsets)))) -;; (define-translation-table decode-translation -;; (symbol-value nonascii-table)) -;; (cp-coding-system-for-codepage-1 -;; (intern codepage) ?D iso-name decode-translation encode-translation) -;; )) - -;; ;;;###autoload -;; (defun cp-charset-for-codepage (codepage) -;; "Return the charset for which there is a translation table to DOS CODEPAGE. -;; CODEPAGE must be the name of a DOS codepage, a string." -;; (let ((cp-decoder (cp-codepage-decoder codepage))) -;; (if (null cp-decoder) -;; (error "Unsupported codepage %s" codepage) -;; (get cp-decoder 'charset)))) - -;; ;;;###autoload -;; (defun cp-language-for-codepage (codepage) -;; "Return the name of the MULE language environment for CODEPAGE. -;; CODEPAGE must be the name of a DOS codepage, a string." -;; (let ((cp-decoder (cp-codepage-decoder codepage))) -;; (if (null cp-decoder) -;; (error "Unsupported codepage %s" codepage) -;; (get cp-decoder 'language)))) - -;; ;;;###autoload -;; (defun cp-offset-for-codepage (codepage) -;; "Return the offset to be used in setting up coding systems for CODEPAGE. -;; CODEPAGE must be the name of a DOS codepage, a string." -;; (let ((cp-decoder (cp-codepage-decoder codepage))) -;; (if (null cp-decoder) -;; (error "Unsupported codepage %s" codepage) -;; (get cp-decoder 'offset)))) - -;; ;;;###autoload -;; (defun cp-supported-codepages () -;; "Return an alist of supported codepages. - -;; Each association in the alist has the form (NNN . CHARSET), where NNN is the -;; codepage number, and CHARSET is the MULE charset which is the closest match -;; for the character set supported by that codepage. - -;; A codepage NNN is supported if a variable called `cpNNN-decode-table' exists, -;; is a vector, and has a charset property." -;; (save-match-data -;; (let (alist chset sname) -;; (mapatoms -;; (function -;; (lambda (sym) -;; (if (and (boundp sym) -;; (string-match "\\`cp\\([1-9][0-9][0-9][0-9]?\\)-decode-table\\'" -;; (setq sname (symbol-name sym))) -;; (vectorp (symbol-value sym)) -;; (setq chset (get sym 'charset))) -;; (setq alist -;; (cons (cons (match-string 1 sname) chset) alist)))))) -;; alist))) - -;;;###autoload -(defun codepage-setup (&optional codepage) - "Obsolete. All coding systems are set up initially." - (interactive)) -(make-obsolete 'codepage-setup "no longer relevant." "23.1") - -(provide 'codepage) - -;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0 -;;; codepage.el ends here