Mercurial > emacs
comparison lisp/international/mule.el @ 52799:482664d12a27
(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 | 2e3d2f94a2ba |
children | 810931aa5f2d |
comparison
equal
deleted
inserted
replaced
52798:1a813cb591b2 | 52799:482664d12a27 |
---|---|
1121 | 1121 |
1122 (defun autoload-coding-system (symbol form) | 1122 (defun autoload-coding-system (symbol form) |
1123 "Define SYMBOL as a coding-system that is defined on demand. | 1123 "Define SYMBOL as a coding-system that is defined on demand. |
1124 | 1124 |
1125 FROM is a form to evaluate to define the coding-system." | 1125 FROM is a form to evaluate to define the coding-system." |
1126 (put symbol 'coding-system-define-form form)) | 1126 (put symbol 'coding-system-define-form form) |
1127 (setq coding-system-alist (cons (list (symbol-name symbol)) | |
1128 coding-system-alist))) | |
1127 | 1129 |
1128 (defun set-buffer-file-coding-system (coding-system &optional force) | 1130 (defun set-buffer-file-coding-system (coding-system &optional force) |
1129 "Set the file coding-system of the current buffer to CODING-SYSTEM. | 1131 "Set the file coding-system of the current buffer to CODING-SYSTEM. |
1130 This means that when you save the buffer, it will be converted | 1132 This means that when you save the buffer, it will be converted |
1131 according to CODING-SYSTEM. For a list of possible values of CODING-SYSTEM, | 1133 according to CODING-SYSTEM. For a list of possible values of CODING-SYSTEM, |