mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(prefer-coding-system): Call set-coding-priority, so that the internal

Browse Source 
array of priorities is also updated.
This commit is contained in:
Eli Zaretskii 1999-01-06 10:32:34 +00:00
parent 26d8704095
commit 812cad8048
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/international/mule-cmds.el
View File

@ -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))