From 286e308561d00a31e0321919ef36d9bc6dadbeb3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 2 Aug 2022 20:27:46 +0300 Subject: [PATCH] ; Fix system-info in url-privacy.el * lisp/url/url-privacy.el (url-setup-privacy-info): Fix MS-Windows configurations. --- lisp/url/url-privacy.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el index 93a512c02ed..36ccbe2adc1 100644 --- a/lisp/url/url-privacy.el +++ b/lisp/url/url-privacy.el @@ -41,9 +41,16 @@ nil) ;; First, we handle the inseparable OS/Windowing system ;; combinations - ((eq system-type 'windows-nt) "Windows-NT; 32bit") + ((memq system-type '(windows-nt cygwin)) + (concat "MS-Windows; " + (if (string-match-p "\\`x86_64" system-configuration) + "64bit" + "32bit") + "; " + (cond ((eq window-system 'w32) "w32") + ((eq window-system 'x) "X11") + (t "TTY")))) ((eq system-type 'ms-dos) "MS-DOS; 32bit") - ((memq window-system '(win32 w32)) "Windows; 32bit") (t (pcase (or window-system 'tty) ('x "X11") -- 2.39.5