diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 |
1 files 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)) |