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)
This commit is contained in:
Eli Zaretskii 2015-10-29 19:37:24 +02:00
parent 84dcdbeb74
commit 8485d41e19

View file

@ -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)