From d32f136eb7c8c6ee5411a5cc0eaf2d83c2325988 Mon Sep 17 00:00:00 2001 From: mir Date: Tue, 23 Jan 2024 21:16:59 -0900 Subject: [PATCH] only fix vertical border glyph when in terminal --- lisp/mir-defuns.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mir-defuns.el b/lisp/mir-defuns.el index 88bc5b0..a89f810 100644 --- a/lisp/mir-defuns.el +++ b/lisp/mir-defuns.el @@ -49,9 +49,10 @@ declarations for color schemes." (add-to-list 'default-frame-alist '(cursor-color . "white")) (add-to-list 'default-frame-alist '(fullscreen . maximized)) ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4 - (let ((display-table (or standard-display-table (make-display-table)))) - (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│)) - (setq standard-display-table display-table))) + (unless (display-graphic-p) + (let ((display-table (or standard-display-table (make-display-table)))) + (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│)) + (setq standard-display-table display-table)))) (defun mir/graphical-setup () "Commands to run at the beginning of init when on a graphical display. This prevents errors in termux and speeds up init when editing from the