Mercurial > emacs

changeset 48890:f4d223f5f6ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ucs-fragment-8859): Don't modify char-coding-system-table elements destructively. Use optimize-char-coding-system-table.
author Dave Love <fx@gnu.org>
date Wed, 18 Dec 2002 23:19:01 +0000
parents ec1a96fb72d6
children 49c591ef85fb
files lisp/international/ucs-tables.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)