comparison lisp/international/ucs-tables.el @ 48767:b5d58a537069

Fix properly.

48766:c413ffa94be5

;; NB, this code depends on the default value of
;; `enable-character-translation'.  (Making it nil would anyway lead
;; to inconsistent behaviour between CCL-based coding systems which
;; use explicit translation tables and the rest.)

;; Command `ucs-insert' is convenient for inserting a given Unicode.
;; (See also the `ucs' input method.)

;; A replacement CCL program is provided which allows characters in
;; the `ucs-mule-to-mule-unicode' table to be displayed with an
;; iso-10646-encoded font.  E.g. to use a `Unicode' font for Cyrillic:
;;
;;   (set-fontset-font "fontset-startup"
;;                     (cons (make-char 'cyrillic-iso8859-5 160)
;;                           (make-char 'cyrillic-iso8859-5 255))
;;                     '(nil . "ISO10646-1"))

;;; Code:

;;; Define tables, to be populated later.

    ;; For CCL coding systems other than mule-utf-* (e.g. cyrillic-koi8).
    (define-translation-table 'ucs-translation-table-for-decode)
    (setq-default translation-table-for-input nil))

  (when for-encode
    ;; Make mule-utf-* disabled for all characters in
    ;; ucs-mule-to-mule-unicode but what originally supported and what
    ;; translated bt utf-translation-table-for-decode when
    ;; `utf-fragment-on-decoding' is non-nil.
    (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
	  (safe (coding-system-get 'mule-utf-8 'safe-chars)))
      (dolist (coding coding-list)
	(set-char-table-parent (coding-system-get coding 'safe-chars) nil))

	      (aset encode-translator (cdr pair) (car pair))))
	(if encode-translator
	    (optimize-char-table encode-translator))
	(if (charsetp cs)
	    (push cs safe-charsets)
	  (setq safe-charsets
		(append (delq 'ascii (coding-system-get cs 'safe-charsets))
			safe-charsets)))
	(cond ((eq cs 'vietnamese-viscii)
	       (coding-system-put 'vietnamese-viscii
				  'translation-table-for-input
				  encode-translator)
	       (coding-system-put 'vietnamese-viqr

48767:b5d58a537069

;; NB, this code depends on the default value of
;; `enable-character-translation'.  (Making it nil would anyway lead
;; to inconsistent behaviour between CCL-based coding systems which
;; use explicit translation tables and the rest.)

;; Command `ucs-insert' is convenient for inserting a given unicode.
;; (See also the `ucs' input method.)

;;; Code:

;;; Define tables, to be populated later.

    ;; For CCL coding systems other than mule-utf-* (e.g. cyrillic-koi8).
    (define-translation-table 'ucs-translation-table-for-decode)
    (setq-default translation-table-for-input nil))

  (when for-encode
    ;; Disable mule-utf-* encoding for all characters in
    ;; ucs-mule-to-mule-unicode except what was originally supported
    ;; and what is translated by utf-translation-table-for-decode when
    ;; `utf-fragment-on-decoding' is non-nil.
    (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
	  (safe (coding-system-get 'mule-utf-8 'safe-chars)))
      (dolist (coding coding-list)
	(set-char-table-parent (coding-system-get coding 'safe-chars) nil))

	      (aset encode-translator (cdr pair) (car pair))))
	(if encode-translator
	    (optimize-char-table encode-translator))
	(if (charsetp cs)
	    (push cs safe-charsets)
	  (if (coding-system-p cs)
	      (setq safe-charsets
		    (append (delq 'ascii (coding-system-get cs 'safe-charsets))
			    safe-charsets))))
	(cond ((eq cs 'vietnamese-viscii)
	       (coding-system-put 'vietnamese-viscii
				  'translation-table-for-input
				  encode-translator)
	       (coding-system-put 'vietnamese-viqr