# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1040253541 0
# Node ID f4d223f5f6efe4133b0c63bf84d60224aeb015f0
# Parent  ec1a96fb72d682250422a2af4ca3bbaf8fb776ab
(ucs-fragment-8859): Don't modify
char-coding-system-table elements destructively.  Use
optimize-char-coding-system-table.

diff -r ec1a96fb72d6 -r f4d223f5f6ef lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Wed Dec 18 20:24:51 2002 +0000
+++ b/lisp/international/ucs-tables.el	Wed Dec 18 23:19:01 2002 +0000
@@ -1232,9 +1232,9 @@
 	 (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 @@
 	     (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)