Mercurial > emacs

changeset 24008:1d70b06238e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(prefer-coding-system): Call set-coding-priority, so that the internal array of priorities is also updated.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 06 Jan 1999 10:32:34 +0000
parents 0e0b1cdfbfe3
children d026025237b5
files lisp/international/mule-cmds.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))