X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;fp=elpher.el;h=edde2f660b2e76617f5a9b2e8db8a2b270b3b851;hp=5b75ce3f522beb11cbcac6fa82f404cde1350ac2;hb=02e019f4cb187f6f3cffee1cfe8147baa53c6255;hpb=06f8413403015f8da746a04f6dd24f484a7f3f8c

diff --git a/elpher.el b/elpher.el
index 5b75ce3..edde2f6 100644
--- 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))