/[emacs]/emacs/lisp/international/code-pages.el
ViewVC logotype

Diff of /emacs/lisp/international/code-pages.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by fx, Fri Feb 14 18:45:40 2003 UTC revision 1.13 by handa, Tue Mar 18 04:25:02 2003 UTC
# Line 95  See `make-coding-system'." Line 95  See `make-coding-system'."
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 ()
# Line 198  corresponding args of `make-coding-syste Line 187  corresponding args of `make-coding-syste
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))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26