From 22462735d43377874d01871e9749116916d180f5 Mon Sep 17 00:00:00 2001 From: plugd Date: Sun, 18 Jul 2021 19:50:26 +0200 Subject: [PATCH] Header-wrapping code was broken for terminal emacs. --- elpher.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/elpher.el b/elpher.el index 307647a..77ef234 100644 --- a/elpher.el +++ b/elpher.el @@ -1372,9 +1372,11 @@ by HEADER-LINE." (2 'elpher-gemini-heading2) (3 'elpher-gemini-heading3) (_ 'default))) - (fill-column (/ (* fill-column - (font-get (font-spec :name (face-font 'default)) :size)) - (font-get (font-spec :name (face-font face)) :size)))) + (fill-column (if (display-graphic-p) + (/ (* fill-column + (font-get (font-spec :name (face-font 'default)) :size)) + (font-get (font-spec :name (face-font face)) :size)) + fill-column))) (unless (display-graphic-p) (insert (make-string level ?#) " ")) (insert (propertize header 'face face)) -- 2.20.1