95 |
(nreverse pairs))) |
(nreverse pairs))) |
96 |
|
|
97 |
(defun cp-fix-safe-chars (cs) |
(defun cp-fix-safe-chars (cs) |
98 |
"Remove `char-coding-system-table' entries from previous definition of CS. |
"This is an obsolete function. |
99 |
CS is a base coding system or alias." |
It exists just for backward compatibility, and it does nothing.") |
100 |
(when (coding-system-p cs) |
(make-obsolete 'cp-fix-safe-chars |
101 |
(let ((chars (coding-system-get cs 'safe-chars))) |
"Unnecessary function. Calling it has no effect." |
102 |
(map-char-table |
"21.3") |
|
(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)))) |
|
103 |
|
|
104 |
;; Fix things that have been, or might be, done by codepage.el. |
;; Fix things that have been, or might be, done by codepage.el. |
105 |
(eval-after-load "codepage" |
(eval-after-load "codepage" |
106 |
'(progn |
'(progn |
107 |
|
|
|
(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)) |
|
|
|
|
108 |
;; Semi-dummy version for the stuff in codepage.el which we don't |
;; Semi-dummy version for the stuff in codepage.el which we don't |
109 |
;; define here. (Used by mule-diag.) |
;; define here. (Used by mule-diag.) |
110 |
(defun cp-supported-codepages () |
(defun cp-supported-codepages () |
187 |
(define-translation-table ',decoder translation-table) |
(define-translation-table ',decoder translation-table) |
188 |
(define-translation-table ',encoder |
(define-translation-table ',encoder |
189 |
(char-table-extra-slot translation-table 0)) |
(char-table-extra-slot translation-table 0)) |
|
(cp-fix-safe-chars ',name) |
|
190 |
(make-coding-system |
(make-coding-system |
191 |
',name 4 ,(or mnemonic ?*) |
',name 4 ,(or mnemonic ?*) |
192 |
(or ,doc-string (format "%s encoding" ',name)) |
(or ,doc-string (format "%s encoding" ',name)) |