mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-21 06:55:39 +00:00
Allow customization of decoding of "man" command
* lisp/man.el (Man-coding-system): New defcustom. (Man-start-calling): Use it, and also pay attention to user overriding coding-system-for-read. (Bug#29872)
This commit is contained in:
parent
f8240815ea
commit
39ca289a7a
15
lisp/man.el
15
lisp/man.el
@ -268,6 +268,16 @@ Used in `bookmark-set' to get the default bookmark name."
|
||||
:type 'string
|
||||
:group 'man)
|
||||
|
||||
;; This is for people who have UTF-8 encoded man pages in non-UTF-8
|
||||
;; locales, or who use Cygwin 'man' command from a native MS-Windows
|
||||
;; build of Emacs.
|
||||
(defcustom Man-coding-system nil
|
||||
"Coding-system to decode output from the commands run by `man'.
|
||||
If this is nil, `man' will use `locale-coding-system'."
|
||||
:type 'coding-system
|
||||
:group 'man
|
||||
:version "26.1")
|
||||
|
||||
(defcustom Man-mode-hook nil
|
||||
"Hook run when Man mode is enabled."
|
||||
:type 'hook
|
||||
@ -1003,7 +1013,10 @@ names or descriptions. The pattern argument is usually an
|
||||
(coding-system-for-write 'raw-text-unix)
|
||||
;; We must decode the output by a coding system that the
|
||||
;; system's locale suggests in multibyte mode.
|
||||
(coding-system-for-read locale-coding-system)
|
||||
(coding-system-for-read
|
||||
(or coding-system-for-read ; allow overriding with "C-x RET c"
|
||||
Man-coding-system
|
||||
locale-coding-system))
|
||||
;; Avoid possible error by using a directory that always exists.
|
||||
(default-directory
|
||||
(if (and (file-directory-p default-directory)
|
||||
|
Loading…
Reference in New Issue
Block a user