comparison lisp/international/ucs-tables.el @ 48232:6775017d289a

Revert to using translation-table-for-input instead of keyboard-translate-table.

48231:7b77f5edeace

;; extra characters, and also by the coding systems set up by
;; code-pages.el.  The decoding tables here take account of
;; `utf-fragment-on-decoding' which may specify decoding Greek and
;; Cyrillic into 8859 charsets.

;; Unification also arranges for the `keyboard-translate-table'
;; variable to be set either globally or locally.  This is used to
;; translate input characters appropriately for the buffer's coding
;; system (if possible).  Unification on decoding sets it globally to
;; translate to Unicode.  Unification on encoding uses hooks to set it
;; up locally to buffers.  Thus in the latter case, typing `"a' into a
;; Latin-1 buffer using the `latin-2-prefix' method translates the
;; generated latin-iso8859-2 `,Bd(B' into latin-iso8859-1 `,Ad(B'.

;; NB, this code depends on the default value of
;; `enable-character-translation'.  (Making it nil would anyway lead

(defvar ucs-8859-15-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-15.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(setq-default keyboard-translate-table (make-translation-table))
;; It will normally be set locally, before the major mode is invoked.
(put 'keyboard-translate-table 'permanent-local t)

(define-translation-table 'ucs-translation-table-for-decode)

;;; Set up the tables.

    (set-char-table-parent standard-translation-table-for-decode
			   ucs-mule-8859-to-mule-unicode)
    ;; For CCL coding systems other than mule-utf-*
    (define-translation-table 'ucs-translation-table-for-decode
      ucs-mule-8859-to-mule-unicode)
    ;; Translate keyboard input globally.
    (let ((table (default-value 'keyboard-translate-table)))
      (map-char-table (lambda (k v)
			(aset table k v))
		      ucs-mule-to-mule-unicode))
    ;; In case these are set up, but we should use the global
    ;; translation-table.
    (remove-hook 'set-buffer-major-mode-hook 'ucs-set-table-for-input)
    (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))

    ;; Don't Unify 8859 on decoding.
    ;; For non-CCL coding systems (e.g. iso-latin-2).
    (set-char-table-parent standard-translation-table-for-decode nil)
    ;; For CCL coding systems other than mule-utf-* (e.g. cyrillic-koi8).
    (define-translation-table 'ucs-translation-table-for-decode)
    (let ((table (default-value 'keyboard-translate-table)))
      (map-char-table (lambda (k v)
			(aset table k nil))
		      ucs-mule-to-mule-unicode)))

  (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

	  (setq safe-charsets
		(append (delq 'ascii (coding-system-get cs 'safe-charsets))
			safe-charsets)))
	(cond ((eq cs 'vietnamese-viscii)
	       (coding-system-put 'vietnamese-viscii
				  'keyboard-translate-table
				  encode-translator)
	       (coding-system-put 'vietnamese-viqr
				  'keyboard-translate-table
				  encode-translator))
	      ((memq cs '(lao thai-tis620 tibetan-iso-8bit))
	       (coding-system-put cs 'keyboard-translate-table cs)))))
    (dolist (c safe-charsets)
      (aset table (make-char c) t))))

(define-minor-mode unify-8859-on-encoding-mode
  "Set up translation-tables for unifying ISO 8859 characters on encoding.

unified representation) in a buffer saved as Latin-9 will be encoded
directly to a byte value 233.  By default, in contrast, you would be
prompted for a general coding system to use for saving the file, which
can cope with separate Latin-1 and Latin-9 representations of e-acute.

Also sets hooks that arrange `keyboard-translate-table' to be set up
locally.  This will often allow input to conform with what the
buffer's file coding system can encode.  Thus you could use a Latin-2
input method to search for e-acute in a Latin-1 buffer.

See also command `unify-8859-on-decoding-mode'."
  :group 'mule
  :global t
  :init-value t

  "Set up translation-tables for unifying ISO 8859 characters on decoding.
On decoding, i.e. input operations, non-ASCII characters from the
built-in ISO 8859 charsets are unified by mapping them into the
`iso-latin-1' and `mule-unicode-0100-24ff' charsets.

Also sets `keyboard-translate-table' globally.

See also command `unify-8859-on-encoding-mode' and the user option
`utf-fragment-on-decoding'."
  :group 'mule
  :global t

(ucs-unify-8859 t nil)

;; Arrange to set up the translation-table for keyboard input.  This
;; probably isn't foolproof.
(defun ucs-set-table-for-input ()
  "Set up an appropriate `keyboard-translate-table' for current buffer."
  (when (and unify-8859-on-encoding-mode
	     (char-table-p keyboard-translate-table))
    (let ((cs (and buffer-file-coding-system
		   (coding-system-base buffer-file-coding-system)))
	  table)
      (if (eq cs 'undecided)
	  (setq cs
		(and default-buffer-file-coding-system
		     (coding-system-base default-buffer-file-coding-system))))
      (when cs
	(setq table (coding-system-get cs 'translation-table-for-encode))
	(unless (char-table-p table)
	  (setq table (coding-system-get cs 'keyboard-translate-table)))
	(when (char-table-p table)
	  (set (make-variable-buffer-local 'keyboard-translate-table)
	       
	       (let ((new (copy-sequence table)))
		 (set-char-table-parent
		  new (default-value 'keyboard-translate-table))
		 new)))))))

;; The minibuffer needs to acquire a `buffer-file-coding-system' for
;; the above to work in it.
(defun ucs-minibuffer-setup ()
  "Set up an appropriate `buffer-file-coding-system' for current buffer.

48232:6775017d289a

;; extra characters, and also by the coding systems set up by
;; code-pages.el.  The decoding tables here take account of
;; `utf-fragment-on-decoding' which may specify decoding Greek and
;; Cyrillic into 8859 charsets.

;; Unification also arranges for `translation-table-for-input' to be
;; set either globally or locally.  This is used to translate input
;; characters appropriately for the buffer's coding system (if
;; possible).  Unification on decoding sets it globally to translate
;; to Unicode.  Unification on encoding uses hooks to set it up
;; locally to buffers.  Thus in the latter case, typing `"a' into a
;; Latin-1 buffer using the `latin-2-prefix' method translates the
;; generated latin-iso8859-2 `,Bd(B' into latin-iso8859-1 `,Ad(B'.

;; NB, this code depends on the default value of
;; `enable-character-translation'.  (Making it nil would anyway lead

(defvar ucs-8859-15-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-15.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(setq translation-table-for-input (make-translation-table))
;; It will normally be set locally, before the major mode is invoked.
(put 'translation-table-for-input 'permanent-local t)

(define-translation-table 'ucs-translation-table-for-decode)

;;; Set up the tables.

    (set-char-table-parent standard-translation-table-for-decode
			   ucs-mule-8859-to-mule-unicode)
    ;; For CCL coding systems other than mule-utf-*
    (define-translation-table 'ucs-translation-table-for-decode
      ucs-mule-8859-to-mule-unicode)

    ;; Translate Quail input globally.
    (setq-default translation-table-for-input ucs-mule-to-mule-unicode)
    ;; In case these are set up, but we should use the global
    ;; translation-table.
    (remove-hook 'set-buffer-major-mode-hook 'ucs-set-table-for-input)
    (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))

    ;; Don't Unify 8859 on decoding.
    ;; For non-CCL coding systems (e.g. iso-latin-2).
    (set-char-table-parent standard-translation-table-for-decode nil)
    ;; 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

	  (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
				  'translation-table-for-input
				  encode-translator))
	      ((memq cs '(lao thai-tis620 tibetan-iso-8bit))
	       (coding-system-put cs 'translation-table-for-input cs)))))
    (dolist (c safe-charsets)
      (aset table (make-char c) t))))

(define-minor-mode unify-8859-on-encoding-mode
  "Set up translation-tables for unifying ISO 8859 characters on encoding.

unified representation) in a buffer saved as Latin-9 will be encoded
directly to a byte value 233.  By default, in contrast, you would be
prompted for a general coding system to use for saving the file, which
can cope with separate Latin-1 and Latin-9 representations of e-acute.

Also sets hooks that arrange `translation-table-for-input' to be set
up locally.  This will often allow input generated by Quail input
methods to conform with what the buffer's file coding system can
encode.  Thus you could use a Latin-2 input method to search for
e-acute in a Latin-1 buffer.

See also command `unify-8859-on-decoding-mode'."
  :group 'mule
  :global t
  :init-value t

  "Set up translation-tables for unifying ISO 8859 characters on decoding.
On decoding, i.e. input operations, non-ASCII characters from the
built-in ISO 8859 charsets are unified by mapping them into the
`iso-latin-1' and `mule-unicode-0100-24ff' charsets.

Also sets `translation-table-for-input' globally, so that keyboard input
produces unified characters.

See also command `unify-8859-on-encoding-mode' and the user option
`utf-fragment-on-decoding'."
  :group 'mule
  :global t

(ucs-unify-8859 t nil)

;; Arrange to set up the translation-table for keyboard input.  This
;; probably isn't foolproof.
(defun ucs-set-table-for-input ()
  "Set up an appropriate `translation-table-for-input' for current buffer."
  (when (and unify-8859-on-encoding-mode
	     (char-table-p translation-table-for-input))
    (let ((cs (and buffer-file-coding-system
		   (coding-system-base buffer-file-coding-system)))
	  table)
      (if (eq cs 'undecided)
	  (setq cs
		(and default-buffer-file-coding-system
		     (coding-system-base default-buffer-file-coding-system))))
      (when cs
	(setq table (coding-system-get cs 'translation-table-for-encode))
	(unless (char-table-p table)
	  (setq table (coding-system-get cs 'translation-table-for-input)))
	(when (char-table-p table)
	  (set (make-variable-buffer-local 'translation-table-for-input)
	       table))))))

;; The minibuffer needs to acquire a `buffer-file-coding-system' for
;; the above to work in it.
(defun ucs-minibuffer-setup ()
  "Set up an appropriate `buffer-file-coding-system' for current buffer.