branch: externals/svg-lib
commit 6876d5433dd3d75ff70fbff93d88a701fb87c5d8
Author: Hyunggyu Jang <murasakipurpl...@gmail.com>
Commit: Hyunggyu Jang <murasakipurpl...@gmail.com>
Fix `font-info` query format.
From emacs info section, info:emacs#Fonts, font size should be prepended
with `-`, not `:`. The latter is to specify key-value pair.
This commit fixes a bug with font size specification per each SVG image
creation.
---
svg-lib.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/svg-lib.el b/svg-lib.el
index efaf7c5..30f3d65 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -222,7 +222,7 @@ and style elements ARGS."
(txt-char-width (window-font-width))
(txt-char-height (window-font-height))
- (font-info (font-info (format "%s:%d" font-family font-size)))
+ (font-info (font-info (format "%s-%d" font-family font-size)))
(ascent (aref font-info 8))
(tag-char-width (aref font-info 11))
(tag-char-height (aref font-info 3))
@@ -276,7 +276,7 @@ and style elements ARGS."
(txt-char-width (window-font-width))
(txt-char-height (window-font-height))
- (font-info (font-info (format "%s:%d" font-family font-size)))
+ (font-info (font-info (format "%s-%d" font-family font-size)))
(ascent (aref font-info 8))
(tag-char-width (aref font-info 11))
(tag-char-height (aref font-info 3))
@@ -347,7 +347,7 @@ and style elements ARGS."
(txt-char-width (window-font-width))
(txt-char-height (window-font-height))
- (font-info (font-info (format "%s:%d" font-family font-size)))
+ (font-info (font-info (format "%s-%d" font-family font-size)))
(ascent (aref font-info 8))
(tag-char-width (aref font-info 11))
(tag-char-height (aref font-info 3))
@@ -510,7 +510,7 @@ and style elements ARGS."
(box-width (* width txt-char-width))
(box-height (* height txt-char-height))
- (font-info (font-info (format "%s:%d" font-family font-size)))
+ (font-info (font-info (format "%s-%d" font-family font-size)))
(ascent (aref font-info 8))
(tag-char-width (aref font-info 11))
(tag-char-height (aref font-info 3))
