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, |