diff options
| author | Kenichi Handa | 2003-10-07 07:33:22 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-10-07 07:33:22 +0000 |
| commit | 28849ffc720d8c1d8bd5c18d62d17cff58d006f8 (patch) | |
| tree | 9834aef799da6ff593db171eb320df8d02dd6aa0 | |
| parent | f82ac129c78e13b9615b3c92bf59b51ae149c517 (diff) | |
| download | emacs-28849ffc720d8c1d8bd5c18d62d17cff58d006f8.tar.gz emacs-28849ffc720d8c1d8bd5c18d62d17cff58d006f8.zip | |
(autoload-coding-system): Add SYMBOL to coding-system-alist.
| -rw-r--r-- | lisp/international/mule.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 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. |