From 7c7966862bc0126e0f5b8c6d760cc3293d9a87f6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 6 Aug 2023 14:30:57 +0200 Subject: [PATCH] * test/lisp/net/tramp-tests.el (tramp-test10-write-region): Extend test. --- test/lisp/net/tramp-tests.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 00e368abe4d..f4938cf9a01 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -2676,7 +2676,18 @@ This checks also `file-name-as-directory', `file-name-directory', :type 'file-already-exists) (should-error (write-region "foo" nil tmp-name nil nil nil 'excl) - :type 'file-already-exists)) + :type 'file-already-exists) + (delete-file tmp-name) + + ;; Check `buffer-file-coding-system'. Bug#65022. + (with-temp-buffer + (setq buffer-file-name tmp-name) + (insert "foo") + (set-buffer-file-coding-system 'cp1251) + (let ((bfcs buffer-file-coding-system)) + (should (buffer-modified-p)) + (should (null (save-buffer))) + (should (eq buffer-file-coding-system bfcs))))) ;; Cleanup. (ignore-errors (delete-file tmp-name)))))) -- 2.39.2