comparison lisp/international/mule.el @ 22186:fc4aaf1b1772

Change term "character translation table" to "translation table".

22185:80a2aa51a6e1

;; called, and before the text is encoded by the coding system itself.
;; The arguments to this function is the same as those of a function
;; in `write-region-annotate-functions', i.e. FROM and TO specifying
;; region of a text.
;;
;; o character-translation-table-for-decode
;;
;; The value is a character translation table to be applied on
;; decoding.  See the function `make-translation-table' for the format
;; of translation table.
;;
;; o character-translation-table-for-encode
;;
;; The value is a character translation table to be applied on
;; encoding.
;;
;; o safe-charsets
;;
;; The value is a list of charsets safely supported by the coding
;; system.  The value t means that all charsets Emacs handles are

	     (setq network-coding-system-alist
		   (cons (cons regexp coding-system)
			 network-coding-system-alist)))))))

(defun make-translation-table (&rest args)
  "Make a character translation table (char table) from arguments.
Each argument is a list of the form (FROM . TO),
where FROM is a character to be translated to TO.

FROM can be a generic character (see make-char).  In this case, TO is
a generic character containing the same number of charcters or a
oridinal character.  If FROM and TO are both generic characters, all
characters belonging to FROM are translated to characters belonging to TO
without changing their position code(s)."
  (let ((table (make-char-table 'character-translation-table))
	revlist)
    (while args
      (let ((elts (car args)))
	(while elts
	  (let* ((from (car (car elts)))

	  (setq elts (cdr elts))))
      (setq args (cdr args)))
    ;; Return TABLE just created.
    table))

(defun define-character-translation-table (symbol &rest args)
  "Define SYMBOL as a name of character translation table makde by ARGS.

See the documentation of the function `make-translation-table' for the
meaning of ARGS.

This function sets properties character-translation-table and
character-translation-table-id of SYMBOL to the created table itself
and identification number of the table respectively."
  (let ((table (apply 'make-translation-table args))
	(len (length character-translation-table-vector))
	(id 0)
	(done nil))
    (put symbol 'character-translation-table table)
    (while (not done)
      (if (>= id len)
	  (setq character-translation-table-vector
		(vconcat character-translation-table-vector
			 (make-vector len nil))))
      (let ((slot (aref character-translation-table-vector id)))
	(if (or (not slot)
		(eq (car slot) symbol))
	    (progn
	      (aset character-translation-table-vector id (cons symbol table))
	      (setq done t))))
      (setq id (1+ id)))
    (put symbol 'character-translation-table-id id)
    id))

;;; Initialize some variables.

(put 'use-default-ascent 'char-table-extra-slots 0)

22186:fc4aaf1b1772

;; called, and before the text is encoded by the coding system itself.
;; The arguments to this function is the same as those of a function
;; in `write-region-annotate-functions', i.e. FROM and TO specifying
;; region of a text.
;;
;; o translation-table-for-decode
;;
;; The value is a translation table to be applied on decoding.  See
;; the function `make-translation-table' for the format of translation
;; table.
;;
;; o translation-table-for-encode
;;
;; The value is a translation table to be applied on encoding.
;;
;; o safe-charsets
;;
;; The value is a list of charsets safely supported by the coding
;; system.  The value t means that all charsets Emacs handles are

	     (setq network-coding-system-alist
		   (cons (cons regexp coding-system)
			 network-coding-system-alist)))))))

(defun make-translation-table (&rest args)
  "Make a translation table (char table) from arguments.
Each argument is a list of the form (FROM . TO),
where FROM is a character to be translated to TO.

FROM can be a generic character (see make-char).  In this case, TO is
a generic character containing the same number of charcters or a
oridinal character.  If FROM and TO are both generic characters, all
characters belonging to FROM are translated to characters belonging to TO
without changing their position code(s)."
  (let ((table (make-char-table 'translation-table))
	revlist)
    (while args
      (let ((elts (car args)))
	(while elts
	  (let* ((from (car (car elts)))

	  (setq elts (cdr elts))))
      (setq args (cdr args)))
    ;; Return TABLE just created.
    table))

(defun define-translation-table (symbol &rest args)
  "Define SYMBOL as a name of translation table makde by ARGS.

See the documentation of the function `make-translation-table' for the
meaning of ARGS.

This function sets properties translation-table and
translation-table-id of SYMBOL to the created table itself and
identification number of the table respectively."
  (let ((table (apply 'make-translation-table args))
	(len (length translation-table-vector))
	(id 0)
	(done nil))
    (put symbol 'translation-table table)
    (while (not done)
      (if (>= id len)
	  (setq translation-table-vector
		(vconcat translation-table-vector (make-vector len nil))))
      (let ((slot (aref translation-table-vector id)))
	(if (or (not slot)
		(eq (car slot) symbol))
	    (progn
	      (aset translation-table-vector id (cons symbol table))
	      (setq done t))))
      (setq id (1+ id)))
    (put symbol 'translation-table-id id)
    id))

;;; Initialize some variables.

(put 'use-default-ascent 'char-table-extra-slots 0)