[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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4155619: Assume package archive-contents are UTF8-encoded,
Artur Malabarba <=