1041 |
(setq coding-category (plist-get plist 'coding-category)) |
(setq coding-category (plist-get plist 'coding-category)) |
1042 |
(aset coding-spec coding-spec-plist-idx plist)) |
(aset coding-spec coding-spec-plist-idx plist)) |
1043 |
(put coding-system 'coding-system coding-spec) |
(put coding-system 'coding-system coding-spec) |
1044 |
|
(put coding-system 'coding-system-define-form nil) |
1045 |
(put coding-category 'coding-systems |
(put coding-category 'coding-systems |
1046 |
(cons coding-system (get coding-category 'coding-systems)))) |
(cons coding-system (get coding-category 'coding-systems)))) |
1047 |
|
|
1103 |
(defun define-coding-system-alias (alias coding-system) |
(defun define-coding-system-alias (alias coding-system) |
1104 |
"Define ALIAS as an alias for coding system CODING-SYSTEM." |
"Define ALIAS as an alias for coding system CODING-SYSTEM." |
1105 |
(put alias 'coding-system (coding-system-spec coding-system)) |
(put alias 'coding-system (coding-system-spec coding-system)) |
1106 |
|
(put alias 'coding-system-define-form nil) |
1107 |
(add-to-coding-system-list alias) |
(add-to-coding-system-list alias) |
1108 |
(setq coding-system-alist (cons (list (symbol-name alias)) |
(setq coding-system-alist (cons (list (symbol-name alias)) |
1109 |
coding-system-alist)) |
coding-system-alist)) |