From 2feaf204b04935ceeb81f919781dc83944042d4b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 25 May 1998 08:08:51 +0000 Subject: [PATCH] (set-coding-priority): Call set-coding-priority-internal at the tail. --- lisp/international/mule.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 523a9802df4..438839479ba 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -769,7 +769,8 @@ LIST is a list of coding categories ordered by priority." (setq current-list (delq (car l) current-list)) (setq l (cdr l))) ;; Update `coding-category-list' and return it. - (setq coding-category-list (append arg current-list)))) + (setq coding-category-list (append arg current-list)) + (set-coding-priority-internal))) ;;; FILE I/O -- 2.39.2