diff options
| author | Kenichi Handa | 2003-11-22 07:46:20 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-11-22 07:46:20 +0000 |
| commit | 28380f179dbf70c116a9e2937591c93fe4d6621b (patch) | |
| tree | bee3bca99fa190d702d31de8fddb7f094ad6cb9b | |
| parent | 05bf144a85731a339a2dfd85ed96c075c7206e7a (diff) | |
| download | emacs-28380f179dbf70c116a9e2937591c93fe4d6621b.tar.gz emacs-28380f179dbf70c116a9e2937591c93fe4d6621b.zip | |
(make-coding-system): Fix generation of properties.
| -rw-r--r-- | lisp/international/mule.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 143f3342879..757f4c1e049 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -1041,7 +1041,7 @@ Use `define-coding-system' instead." | |||
| 1041 | (setq key :valids))) | 1041 | (setq key :valids))) |
| 1042 | (setq plist (plist-put plist key (cdr elt)))) | 1042 | (setq plist (plist-put plist key (cdr elt)))) |
| 1043 | plist)) | 1043 | plist)) |
| 1044 | (plist-put properties :mnemonic mnemonic) | 1044 | (setq properties (plist-put properties :mnemonic mnemonic)) |
| 1045 | (plist-put properties :coding-type type) | 1045 | (plist-put properties :coding-type type) |
| 1046 | (cond ((eq eol-type 0) (setq eol-type 'unix)) | 1046 | (cond ((eq eol-type 0) (setq eol-type 'unix)) |
| 1047 | ((eq eol-type 1) (setq eol-type 'dos)) | 1047 | ((eq eol-type 1) (setq eol-type 'dos)) |