From c45bb3b1174811090f907bdda4ff257546f55815 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 18 Dec 2002 23:19:01 +0000 Subject: [PATCH] (ucs-fragment-8859): Don't modify char-coding-system-table elements destructively. Use optimize-char-coding-system-table. --- lisp/international/ucs-tables.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index 8f0f1e1e36f..01ec4ec0873 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -1232,9 +1232,9 @@ unification on input operations." (if (and (>= key 128) val (not (aref safe key))) (aset char-coding-system-table key - (delq 'mule-utf-8 - (delq 'mule-utf-16-le - (delq 'mule-utf-16-be + (remq 'mule-utf-8 + (remq 'mule-utf-16-le + (remq 'mule-utf-16-be (aref char-coding-system-table key))))))) ucs-mule-to-mule-unicode) @@ -1260,11 +1260,11 @@ unification on input operations." (if (and (>= key 128) val) (let ((codings (aref char-coding-system-table key))) (aset char-coding-system-table key - (delq coding-system codings))))) + (remq coding-system codings))))) (char-table-parent safe)) (set-char-table-parent safe nil)) (coding-system-put coding-system 'translation-table-for-encode nil))) - (optimize-char-table char-coding-system-table) + (optimize-char-coding-system-table) (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))) (defun ucs-insert (arg) -- 2.39.2