diff options
| author | Kenichi Handa | 1998-05-25 08:08:51 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-05-25 08:08:51 +0000 |
| commit | 2feaf204b04935ceeb81f919781dc83944042d4b (patch) | |
| tree | 51256887dc28fea61af5d0fd2832672f7bf279e2 | |
| parent | 66cfb53089e4b3ac8ed54f253a70306afc27b67a (diff) | |
| download | emacs-2feaf204b04935ceeb81f919781dc83944042d4b.tar.gz emacs-2feaf204b04935ceeb81f919781dc83944042d4b.zip | |
(set-coding-priority): Call
set-coding-priority-internal at the tail.
| -rw-r--r-- | lisp/international/mule.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 769 | (setq current-list (delq (car l) current-list)) | 769 | (setq current-list (delq (car l) current-list)) |
| 770 | (setq l (cdr l))) | 770 | (setq l (cdr l))) |
| 771 | ;; Update `coding-category-list' and return it. | 771 | ;; Update `coding-category-list' and return it. |
| 772 | (setq coding-category-list (append arg current-list)))) | 772 | (setq coding-category-list (append arg current-list)) |
| 773 | (set-coding-priority-internal))) | ||
| 773 | 774 | ||
| 774 | ;;; FILE I/O | 775 | ;;; FILE I/O |
| 775 | 776 | ||