The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3561c28
)
Avoid a crash when displaying page in Emacs without X support
author
Étienne Deparis
<etienne@depar.is>
Mon, 7 Dec 2020 17:38:08 +0000
(18:38 +0100)
committer
Étienne Deparis
<etienne@depar.is>
Mon, 7 Dec 2020 17:38:08 +0000
(18:38 +0100)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
4c34f52
..
d14c5de
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-1367,14
+1367,11
@@
by HEADER-LINE."
(when (string-match "^\\(#+\\)[ \t]*" header-line)
(let* ((level (length (match-string 1 header-line)))
(header (substring header-line (match-end 0)))
(when (string-match "^\\(#+\\)[ \t]*" header-line)
(let* ((level (length (match-string 1 header-line)))
(header (substring header-line (match-end 0)))
- (face (pcase level
+
(face (pcase level
(1 'elpher-gemini-heading1)
(2 'elpher-gemini-heading2)
(3 'elpher-gemini-heading3)
(1 'elpher-gemini-heading1)
(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))))
+ (_ 'default))))
(unless (display-graphic-p)
(insert (make-string level ?#) " "))
(insert (propertize header 'face face))
(unless (display-graphic-p)
(insert (make-string level ?#) " "))
(insert (propertize header 'face face))