comparison lisp/international/code-pages.el @ 50184:fb92861f566e

(cp-fix-safe-chars): Make it obsolete. (cp-make-coding-system): Don't call cp-fix-safe-chars.

50183:42387e68072a

      (setq i (1+ i)))
    (if start (push (cons start end) pairs))
    (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 ()
  "Return an alist of supported codepages.

    `(let ((translation-table (cp-make-translation-table ,v))
	   (codes (cp-valid-codes ,v)))
       (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))
	(cons ,ccl-decoder ,ccl-encoder)
	(list (cons 'safe-chars (get ',encoder 'translation-table))

50184:fb92861f566e

      (setq i (1+ i)))
    (if start (push (cons start end) pairs))
    (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 ()
  "Return an alist of supported codepages.

    `(let ((translation-table (cp-make-translation-table ,v))
	   (codes (cp-valid-codes ,v)))
       (define-translation-table ',decoder translation-table)
       (define-translation-table ',encoder
	 (char-table-extra-slot translation-table 0))
       (make-coding-system
	',name 4 ,(or mnemonic ?*)
	(or ,doc-string (format "%s encoding" ',name))
	(cons ,ccl-decoder ,ccl-encoder)
	(list (cons 'safe-chars (get ',encoder 'translation-table))