procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix system-info in url-privacy.el

Browse source 
* lisp/url/url-privacy.el (url-setup-privacy-info): Fix MS-Windows
configurations.
This commit is contained in:
Eli Zaretskii 2022-08-02 20:27:46 +03:00
parent 8af91dee9a
commit 286e308561
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/url/url-privacy.el
View file

@ -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")