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."
                    (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))