emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 97218c311b 2/2: ; Fix last change: use 'utf-8-emacs-unix' encodin


From: Eli Zaretskii
Subject: master 97218c311b 2/2: ; Fix last change: use 'utf-8-emacs-unix' encoding.
Date: Sun, 26 Dec 2021 03:20:29 -0500 (EST)

branch: master
commit 97218c311b506614db84233de120a012cc9b0493
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; 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 ca15b40781..c58a9abe02 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]