diff options
Diffstat (limited to 'lisp/url/url-privacy.el')
| -rw-r--r-- | lisp/url/url-privacy.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el index 78bb78b1ee2..36ccbe2adc1 100644 --- a/lisp/url/url-privacy.el +++ b/lisp/url/url-privacy.el @@ -41,13 +41,21 @@ 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 (or window-system 'tty) '(win32 w32)) "Windows; 32bit") (t (pcase (or window-system 'tty) ('x "X11") ('ns "OpenStep") + ('pgtk "PureGTK") ('tty "TTY") (_ nil))))) |