(make-coding-system): Fix generation of properties.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 143f3342879a21ba0a4e67a7f0f27c4ec0883fe2..757f4c1e049998cd5a433840f86d4edf50176999 100644 (file)
--- 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))