From 28380f179dbf70c116a9e2937591c93fe4d6621b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 22 Nov 2003 07:46:20 +0000 Subject: [PATCH] (make-coding-system): Fix generation of properties. --- lisp/international/mule.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (setq key :valids))) (setq plist (plist-put plist key (cdr elt)))) plist)) - (plist-put properties :mnemonic mnemonic) + (setq properties (plist-put properties :mnemonic mnemonic)) (plist-put properties :coding-type type) (cond ((eq eol-type 0) (setq eol-type 'unix)) ((eq eol-type 1) (setq eol-type 'dos)) -- 2.39.5