only fix vertical border glyph when in terminal

This commit is contained in:
mir 2024-01-23 21:16:59 -09:00
parent 064c950326
commit d32f136eb7

View File

@ -49,9 +49,10 @@ declarations for color schemes."
(add-to-list 'default-frame-alist '(cursor-color . "white")) (add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized)) (add-to-list 'default-frame-alist '(fullscreen . maximized))
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4 ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
(unless (display-graphic-p)
(let ((display-table (or standard-display-table (make-display-table)))) (let ((display-table (or standard-display-table (make-display-table))))
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│)) (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
(setq standard-display-table display-table))) (setq standard-display-table display-table))))
(defun mir/graphical-setup () (defun mir/graphical-setup ()
"Commands to run at the beginning of init when on a graphical display. "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 This prevents errors in termux and speeds up init when editing from the