From 812cad804813f823e6754e846aaf7eeacf26f638 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 6 Jan 1999 10:32:34 +0000 Subject: [PATCH] (prefer-coding-system): Call set-coding-priority, so that the internal array of priorities is also updated. --- lisp/international/mule-cmds.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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)) -- 2.39.2