[Emacs-diffs] trunk r116801: lisp/emacs-lisp/package.el (describe-package-1): Decode commentary (bug#16733).

[Juanma Barranquero]

------------------------------------------------------------
revno: 116801
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16733
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-19 17:14:26 +0100
message:
  lisp/emacs-lisp/package.el (describe-package-1): Decode commentary 
(bug#16733).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-18 23:31:17 +0000
+++ b/lisp/ChangeLog    2014-03-19 16:14:26 +0000
@@ -1,3 +1,8 @@
+2014-03-19  Juanma Barranquero  <address@hidden>
+
+       * emacs-lisp/package.el (describe-package-1):
+       Decode commentary (bug#16733).
+
 2014-03-18  Juanma Barranquero  <address@hidden>
 
        * custom.el (defcustom): Doc fix: recommend avoiding destructive

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2014-03-14 20:55:40 +0000
+++ b/lisp/emacs-lisp/package.el        2014-03-19 16:14:26 +0000
@@ -1531,7 +1531,8 @@
                        (setq readme-string (buffer-string))
                        t))
                 (error nil))
-              (insert readme-string))
+              (let ((coding (detect-coding-string readme-string t)))
+                (insert (decode-coding-string readme-string coding t))))
              ((file-readable-p readme)
               (insert-file-contents readme)
               (goto-char (point-max))))))))