From 9810f49adc009cbe74b61640412cacca5a659444 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 21 Jun 2003 02:32:04 +0000 Subject: [PATCH] (ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change: xxx-utf-16-{le,be} -> xxx-utf-16{le,be}. --- lisp/international/ucs-tables.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index 26989e2b4db..c718796256e 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -1165,7 +1165,7 @@ everything on input operations." (when for-encode ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode. - (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))) + (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le))) (define-translation-table 'utf-translation-table-for-encode ucs-mule-to-mule-unicode) (dolist (coding coding-list) @@ -1207,7 +1207,7 @@ unification on input operations." (when for-encode ;; Make mule-utf-* disabled for all characters in ;; ucs-mule-to-mule-unicode but what originally supported. - (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le)) + (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le)) (safe (coding-system-get 'mule-utf-8 'safe-chars))) (dolist (coding coding-list) (set-char-table-parent (coding-system-get coding 'safe-chars) nil)) @@ -2459,7 +2459,7 @@ See also command `unify-8859-on-decoding-mode'." ;; bootstrapping. So, as a workaround, we set nil here, and later ;; call: ;; (unify-8859-on-encoding-mode 1) - :init-value nil + :init-value t (if unify-8859-on-encoding-mode (ucs-unify-8859 t nil) (ucs-fragment-8859 t nil))) -- 2.39.5