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