[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 286e308561: ; Fix system-info in url-privacy.el
From: |
Eli Zaretskii |
Subject: |
master 286e308561: ; Fix system-info in url-privacy.el |
Date: |
Tue, 2 Aug 2022 13:28:46 -0400 (EDT) |
branch: master
commit 286e308561d00a31e0321919ef36d9bc6dadbeb3
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; 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 93a512c02e..36ccbe2adc 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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 286e308561: ; Fix system-info in url-privacy.el,
Eli Zaretskii <=