Merge remote-tracking branch 'upstream/patch_emacs_tty' into main

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index 5b75ce3..edde2f6 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -1401,7 +1401,11 @@ by HEADER-LINE."
                    (1 'elpher-gemini-heading1)
                    (2 'elpher-gemini-heading2)
                    (3 'elpher-gemini-heading3)
-                   (_ 'default))))
+                   (_ 'default)))
+          (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))