From 28849ffc720d8c1d8bd5c18d62d17cff58d006f8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 7 Oct 2003 07:33:22 +0000 Subject: [PATCH] (autoload-coding-system): Add SYMBOL to coding-system-alist. --- lisp/international/mule.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 1ccd26db6c1..b86b3bac1fb 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1123,7 +1123,9 @@ Return the resulting coding system." "Define SYMBOL as a coding-system that is defined on demand. FROM is a form to evaluate to define the coding-system." - (put symbol 'coding-system-define-form form)) + (put symbol 'coding-system-define-form form) + (setq coding-system-alist (cons (list (symbol-name symbol)) + coding-system-alist))) (defun set-buffer-file-coding-system (coding-system &optional force) "Set the file coding-system of the current buffer to CODING-SYSTEM. -- 2.39.2