From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 29 Oct 2015 17:37:24 +0000 (+0200)
Subject: Fix encoding of saving *Help* buffers
X-Git-Tag: emacs-25.0.90~976
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8485d41e1948c8966a19343533988f6d26656037;p=emacs.git

Fix encoding of saving *Help* buffers

* lisp/help-fns.el (describe-function-1): If we use curved quotes,
set help buffer's buffer-file-coding-system to UTF-8.  (Bug#21780)
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 945b4d523cc..f7d05a4bf79 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -623,7 +623,12 @@ FILE is the file where FUNCTION was probably defined."
                                           real-function key-bindings-buffer)))
             (run-hook-with-args 'help-fns-describe-function-functions function)
             (insert "\n"
-                    (or doc "Not documented."))))))))
+                    (or doc "Not documented."))
+            ;; Avoid asking the user annoyng questions if she decides
+            ;; to save the help buffer, when her locale's codeset
+            ;; isn't UTF-8.
+            (unless (memq text-quoting-style '(straight grave))
+              (set-buffer-file-coding-system 'utf-8))))))))
 
 ;; Add defaults to `help-fns-describe-function-functions'.
 (add-hook 'help-fns-describe-function-functions #'help-fns--obsolete)