diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/url/url-privacy.el | 11 |
1 files 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 @@ | |||
| 41 | nil) | 41 | nil) |
| 42 | ;; First, we handle the inseparable OS/Windowing system | 42 | ;; First, we handle the inseparable OS/Windowing system |
| 43 | ;; combinations | 43 | ;; combinations |
| 44 | ((eq system-type 'windows-nt) "Windows-NT; 32bit") | 44 | ((memq system-type '(windows-nt cygwin)) |
| 45 | (concat "MS-Windows; " | ||
| 46 | (if (string-match-p "\\`x86_64" system-configuration) | ||
| 47 | "64bit" | ||
| 48 | "32bit") | ||
| 49 | "; " | ||
| 50 | (cond ((eq window-system 'w32) "w32") | ||
| 51 | ((eq window-system 'x) "X11") | ||
| 52 | (t "TTY")))) | ||
| 45 | ((eq system-type 'ms-dos) "MS-DOS; 32bit") | 53 | ((eq system-type 'ms-dos) "MS-DOS; 32bit") |
| 46 | ((memq window-system '(win32 w32)) "Windows; 32bit") | ||
| 47 | (t | 54 | (t |
| 48 | (pcase (or window-system 'tty) | 55 | (pcase (or window-system 'tty) |
| 49 | ('x "X11") | 56 | ('x "X11") |