diff options
| author | Eli Zaretskii <eliz@gnu.org> | 1999-01-06 10:32:34 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 1999-01-06 10:32:34 +0000 |
| commit | 812cad804813f823e6754e846aaf7eeacf26f638 (patch) | |
| tree | 57d442446d7df6e6b755ceed55a0cd7446308e3a /lisp | |
| parent | 26d87040957118b3b66c892ad32222af436a86a8 (diff) | |
| download | emacs-812cad804813f823e6754e846aaf7eeacf26f638.tar.gz | |
(prefer-coding-system): Call set-coding-priority, so that the internal
array of priorities is also updated.
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)) |