From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 6 Jan 1999 10:32:34 +0000 (+0000)
Subject: (prefer-coding-system): Call set-coding-priority, so that the internal
X-Git-Tag: emacs-20.4~941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=812cad804813f823e6754e846aaf7eeacf26f638;p=emacs.git

(prefer-coding-system): Call set-coding-priority, so that the internal
array of priorities is also updated.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 56a34f38044..e469d573e62 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -298,11 +298,9 @@ startup."
 	(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))