; Fix last change

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f4938cf9a01a37519fc26356c12ed28c317e92b0..31d36f81740389e2896c77631c985b312f0e75a4 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2687,7 +2687,9 @@ This checks also `file-name-as-directory', `file-name-directory',
              (let ((bfcs buffer-file-coding-system))
                (should (buffer-modified-p))
                (should (null (save-buffer)))
-               (should (eq buffer-file-coding-system bfcs)))))
+               (should
+                 (eq (coding-system-get buffer-file-coding-system :mime-charset)
+                     (coding-system-get  bfcs :mime-charset))))))
 
        ;; Cleanup.
        (ignore-errors (delete-file tmp-name))))))