mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-28 19:42:02 +00:00
File removed, as even ms-dos does not need it anymore.
This commit is contained in:
Eli Zaretskii
parent
d9fd933369
commit
a7a461efcc
@ -1,5 +1,10 @@
|
||||
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.
|
||||
|
||||
@ -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 <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
|
||||
Loading…
Reference in New Issue
Block a user