From 97218c311b506614db84233de120a012cc9b0493 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 26 Dec 2021 10:20:05 +0200 Subject: [PATCH] ; Fix last change: use 'utf-8-emacs-unix' encoding. --- lisp/emacs-lisp/multisession.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el index ca15b407819..c58a9abe020 100644 --- a/lisp/emacs-lisp/multisession.el +++ b/lisp/emacs-lisp/multisession.el @@ -260,7 +260,7 @@ DOC should be a doc string, and ARGS are keywords as applicable to (with-temp-buffer (let* ((time (file-attribute-modification-time (file-attributes file))) - (coding-system-for-read 'utf-8-emacs)) + (coding-system-for-read 'utf-8-emacs-unix)) (insert-file-contents file) (let ((stored (read (current-buffer)))) (setf (multisession--cached-value object) stored @@ -329,7 +329,7 @@ DOC should be a doc string, and ARGS are keywords as applicable to (error (error "Unable to store unreadable value: %s" (buffer-string)))) ;; Write to a temp file in the same directory and rename to the ;; file for somewhat better atomicity. - (let ((coding-system-for-write 'utf-8-emacs) + (let ((coding-system-for-write 'utf-8-emacs-unix) (create-lockfiles nil) (temp (make-temp-name file)) (write-region-inhibit-fsync nil)) @@ -346,7 +346,7 @@ DOC should be a doc string, and ARGS are keywords as applicable to (url-unhex-string (file-name-sans-extension (car (last bits)))) (with-temp-buffer - (let ((coding-system-for-read 'utf-8-emacs)) + (let ((coding-system-for-read 'utf-8-emacs-unix)) (insert-file-contents file) (read (current-buffer))))))) (directory-files-recursively -- 2.39.2