diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-10-29 19:37:24 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-10-29 19:37:24 +0200 |
| commit | 8485d41e1948c8966a19343533988f6d26656037 (patch) | |
| tree | 42b4f0a8273879c7a1a1fb0d85c400bd92551a80 | |
| parent | 84dcdbeb740222a9e3da636b87a2b757acc11334 (diff) | |
| download | emacs-8485d41e1948c8966a19343533988f6d26656037.tar.gz | |
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)
| -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) |