Mercurial > emacs

changeset 52799:482664d12a27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(autoload-coding-system): Add SYMBOL to coding-system-alist.
author Kenichi Handa <handa@m17n.org>
date Tue, 07 Oct 2003 07:33:22 +0000
parents 1a813cb591b2
children d738115b4197
files lisp/international/mule.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Tue Oct 07 06:46:04 2003 +0000
+++ b/lisp/international/mule.el	Tue Oct 07 07:33:22 2003 +0000
@@ -1123,7 +1123,9 @@
   "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.