diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-01-17 15:44:51 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-01-17 15:44:51 +0200 |
| commit | 09e9d7c749680fd3580e9b1795e39051e3709917 (patch) | |
| tree | f76023e9c6012ac6b2a8caff1d0d1886d7af9099 /lisp/emacs-lisp | |
| parent | bd094207c76c500f8a3bffe8231d8c6ae0fd0778 (diff) | |
| download | emacs-09e9d7c749680fd3580e9b1795e39051e3709917.tar.gz emacs-09e9d7c749680fd3580e9b1795e39051e3709917.tar.bz2 emacs-09e9d7c749680fd3580e9b1795e39051e3709917.zip | |
Fix display of warnings on w32 console
* lisp/emacs-lisp/warnings.el (warnings-suppress): Use alternative
symbol for TTY frames on MS-Windows.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 9505c935816..31b840d6c83 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -204,8 +204,12 @@ SUPPRESS-LIST is the list of kinds of warnings to suppress." some-match)) (define-icon warnings-suppress button - '((emoji "⛔") - (symbol " ■ ") + `((emoji "⛔") + ;; Many MS-Windows console fonts don't have good glyphs for U+25A0. + (symbol ,(if (and (eq system-type 'windows-nt) + (null window-system)) + " » " + " ■ ")) (text " stop ")) "Suppress warnings." :version "29.1" |