From: Dave Love <fx@gnu.org>
Date: Wed, 18 Dec 2002 23:19:01 +0000 (+0000)
Subject: (ucs-fragment-8859): Don't modify
X-Git-Tag: ttn-vms-21-2-B4~11974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c45bb3b1174811090f907bdda4ff257546f55815;p=emacs.git

(ucs-fragment-8859): Don't modify
char-coding-system-table elements destructively.  Use
optimize-char-coding-system-table.
---

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)