diff options
-rw-r--r-- | lisp/help-fns.el | 7 |
1 files changed, 6 insertions, 1 deletions
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) |