Commit a7a461ef authored by Eli Zaretskii's avatar Eli Zaretskii

File removed, as even ms-dos does not need it anymore.

parent d9fd9333
2008-09-30 Eli Zaretskii <eliz@gnu.org>
* 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.
......
;;; 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 <http://www.gnu.org/licenses/>.
;;; 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment