# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 915618754 0
# Node ID 1d70b06238e81342f0aa017331db217fcfeed899
# Parent  0e0b1cdfbfe3af8a752458d927f106ce2c630e2b
(prefer-coding-system): Call set-coding-priority, so that the internal
array of priorities is also updated.

diff -r 0e0b1cdfbfe3 -r 1d70b06238e8 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Jan 06 10:25:34 1999 +0000
+++ b/lisp/international/mule-cmds.el	Wed Jan 06 10:32:34 1999 +0000
@@ -298,11 +298,9 @@
 	(error "Can't prefer the coding system `%s'" coding-system))
     (set coding-category (or base coding-system))
     (update-coding-systems-internal)
-    (if (not (eq coding-category (car coding-category-list)))
+    (or (eq coding-category (car coding-category-list))
 	;; We must change the order.
-	(setq coding-category-list
-	      (cons coding-category
-		    (delq coding-category coding-category-list))))
+	(set-coding-priority (list coding-category)))
     (if (and base (interactive-p))
 	(message "Highest priority is set to %s (base of %s)"
 		 base coding-system))