From 10d44a9905e7168f96e128dbcfac2f2645937d25 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 9 Dec 2002 18:01:21 +0000 Subject: [PATCH] Fix properly. --- lisp/international/ucs-tables.el | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index e26364e468a..8f0f1e1e36f 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -70,18 +70,9 @@ ;; 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. +;; 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. @@ -1226,9 +1217,9 @@ unification on input operations." (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 + ;; 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))) @@ -2444,9 +2435,10 @@ Interactively, prompts for a hex string giving the code." (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))) + (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 -- 2.39.5