Mercurial > emacs

changeset 98419:765f690d14ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
File removed, as even ms-dos does not need it anymore.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 30 Sep 2008 16:24:13 +0000
parents 3fdcdddf14a8
children d3a3750544e6
files lisp/international/codepage.el
diffstat 1 files changed, 0 insertions(+), 149 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/codepage.el	Tue Sep 30 16:22:46 2008 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -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