X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=ebc2737b89eb54f05f993e31eca2ca2f9544f328;hp=be4a04ac6666cbbb2db52355595d47880d7ebbc9;hb=refs%2Fheads%2Fpatch_header_text_termina;hpb=b0582668d08172a2f17e016940dd745a76baa7b2 diff --git a/elpher.el b/elpher.el index be4a04a..ebc2737 100644 --- a/elpher.el +++ b/elpher.el @@ -4,7 +4,7 @@ ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.10.1 +;; Version: 2.10.2 ;; Keywords: comm gopher ;; Homepage: http://thelambdalab.xyz/elpher ;; Package-Requires: ((emacs "26.2")) @@ -71,7 +71,7 @@ ;;; Global constants ;; -(defconst elpher-version "2.10.0" +(defconst elpher-version "2.10.2" "Current version of elpher.") (defconst elpher-margin-width 6 @@ -1372,9 +1372,9 @@ by HEADER-LINE." (2 'elpher-gemini-heading2) (3 'elpher-gemini-heading3) (_ 'default))) - (fill-column (/ (* fill-column + (fill-column (if (face-font 'default) (/ (* fill-column (font-get (font-spec :name (face-font 'default)) :size)) - (font-get (font-spec :name (face-font face)) :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))