[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/code-pages.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/code-pages.el |
Date: |
Fri, 04 Apr 2003 01:22:20 -0500 |
Index: emacs/lisp/international/code-pages.el
diff -c emacs/lisp/international/code-pages.el:1.12
emacs/lisp/international/code-pages.el:1.13
*** emacs/lisp/international/code-pages.el:1.12 Fri Feb 14 13:45:40 2003
--- emacs/lisp/international/code-pages.el Mon Mar 17 23:25:02 2003
***************
*** 95,121 ****
(nreverse pairs)))
(defun cp-fix-safe-chars (cs)
! "Remove `char-coding-system-table' entries from previous definition of CS.
! CS is a base coding system or alias."
! (when (coding-system-p cs)
! (let ((chars (coding-system-get cs 'safe-chars)))
! (map-char-table
! (lambda (k v)
! (if (and v (not (eq v t)))
! (aset char-coding-system-table
! k
! (remq cs (aref char-coding-system-table k)))))
! chars))))
;; Fix things that have been, or might be, done by codepage.el.
(eval-after-load "codepage"
'(progn
- (dolist (cs '(cp857 cp861 cp1253 cp852 cp866 cp437 cp855 cp869 cp775
- cp862 cp864 cp1250 cp863 cp865 cp1251 cp737 cp1257 cp850
- cp860 cp851 720))
- (cp-fix-safe-chars cs))
-
;; Semi-dummy version for the stuff in codepage.el which we don't
;; define here. (Used by mule-diag.)
(defun cp-supported-codepages ()
--- 95,110 ----
(nreverse pairs)))
(defun cp-fix-safe-chars (cs)
! "This is an obsolete function.
! It exists just for backward compatibility, and it does nothing.")
! (make-obsolete 'cp-fix-safe-chars
! "Unnecessary function. Calling it has no effect."
! "21.3")
;; Fix things that have been, or might be, done by codepage.el.
(eval-after-load "codepage"
'(progn
;; Semi-dummy version for the stuff in codepage.el which we don't
;; define here. (Used by mule-diag.)
(defun cp-supported-codepages ()
***************
*** 198,204 ****
(define-translation-table ',decoder translation-table)
(define-translation-table ',encoder
(char-table-extra-slot translation-table 0))
- (cp-fix-safe-chars ',name)
(make-coding-system
',name 4 ,(or mnemonic ?*)
(or ,doc-string (format "%s encoding" ',name))
--- 187,192 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/code-pages.el,
Miles Bader <=