From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 6 Aug 2023 13:46:58 +0000 (+0200)
Subject: ; Fix last change
X-Git-Tag: emacs-29.1.90~247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de1effd73b4;p=emacs.git

; Fix last change
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f4938cf9a01..31d36f81740 100644
--- 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))))))