From 248ec838aa8b1a720a05b422be760f6ab32aa630 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 15 May 2021 12:38:01 +0300 Subject: [PATCH] Fix launching net-utils on MS-Windows * lisp/net/net-utils.el (net-utils-run-simple): Bind coding-system-for-read around the code which starts the process. (Bug#48375) --- lisp/net/net-utils.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index 24f2aba8b86..90cca7d415c 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -363,24 +363,24 @@ This variable is only used if the variable (when proc (set-process-filter proc nil) (delete-process proc))) - (let ((inhibit-read-only t) - (coding-system-for-read - ;; MS-Windows versions of network utilities output text - ;; encoded in the console (a.k.a. "OEM") codepage, which is - ;; different from the default system (a.k.a. "ANSI") - ;; codepage. - (if (eq system-type 'windows-nt) - (intern (format "cp%d" (w32-get-console-output-codepage))) - coding-system-for-read))) + (let ((inhibit-read-only t)) (erase-buffer)) (net-utils-mode) (setq-local net-utils--revert-cmd `(net-utils-run-simple ,(current-buffer) ,program-name ,args nodisplay)) - (set-process-filter - (apply #'start-process program-name - (current-buffer) program-name args) - #'net-utils-remove-ctrl-m-filter) + (let ((coding-system-for-read + ;; MS-Windows versions of network utilities output text + ;; encoded in the console (a.k.a. "OEM") codepage, which is + ;; different from the default system (a.k.a. "ANSI") + ;; codepage. + (if (eq system-type 'windows-nt) + (intern (format "cp%d" (w32-get-console-output-codepage))) + coding-system-for-read))) + (set-process-filter + (apply #'start-process program-name + (current-buffer) program-name args) + #'net-utils-remove-ctrl-m-filter)) (unless nodisplay (display-buffer (current-buffer))))) (defun net-utils--revert-function (&optional _ignore-auto _noconfirm) -- 2.39.5