emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master 4155619: Assume package archive-contents are UTF8-e


From: Artur Malabarba
Subject: [Emacs-diffs] master 4155619: Assume package archive-contents are UTF8-encoded
Date: Sun, 19 Apr 2015 16:59:28 +0000

branch: master
commit 4155619aacae2a225cec7ba9008f15258d30a7e0
Author: Steve Purcell <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Assume package archive-contents are UTF8-encoded
    
    * lisp/emacs-lisp/package.el (package--read-archive-file):
    Set `coding-system-for-read' explicitly to 'utf-8 when reading the
    downloaded and cached archive-contents files, so that non-ASCII
    characters in package descriptions are displayed correctly in the
    `list-packages' menu. (Bug#20231)
    
    Co-authored-by: Steve Purcell <address@hidden>
---
 lisp/emacs-lisp/package.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 2fb54f0..9cd6b3b 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1283,7 +1283,8 @@ Will throw an error if the archive version is too new."
   (let ((filename (expand-file-name file package-user-dir)))
     (when (file-exists-p filename)
       (with-temp-buffer
-        (insert-file-contents-literally filename)
+        (let ((coding-system-for-read 'utf-8))
+          (insert-file-contents filename))
         (let ((contents (read (current-buffer))))
           (if (> (car contents) package-archive-version)
               (error "Package archive version %d is higher than %d"



reply via email to

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