From 8485d41e1948c8966a19343533988f6d26656037 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 29 Oct 2015 19:37:24 +0200 Subject: [PATCH] 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) --- lisp/help-fns.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.5