1123 |
"Define SYMBOL as a coding-system that is defined on demand. |
"Define SYMBOL as a coding-system that is defined on demand. |
1124 |
|
|
1125 |
FROM is a form to evaluate to define the coding-system." |
FROM is a form to evaluate to define the coding-system." |
1126 |
(put symbol 'coding-system-define-form form)) |
(put symbol 'coding-system-define-form form) |
1127 |
|
(setq coding-system-alist (cons (list (symbol-name symbol)) |
1128 |
|
coding-system-alist))) |
1129 |
|
|
1130 |
(defun set-buffer-file-coding-system (coding-system &optional force) |
(defun set-buffer-file-coding-system (coding-system &optional force) |
1131 |
"Set the file coding-system of the current buffer to CODING-SYSTEM. |
"Set the file coding-system of the current buffer to CODING-SYSTEM. |