emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/svg-lib 6876d54 26/32: Fix `font-info` query format.


From: ELPA Syncer
Subject: [elpa] externals/svg-lib 6876d54 26/32: Fix `font-info` query format.
Date: Mon, 27 Sep 2021 16:57:50 -0400 (EDT)

branch: externals/svg-lib
commit 6876d5433dd3d75ff70fbff93d88a701fb87c5d8
Author: Hyunggyu Jang <murasakipurplez5@gmail.com>
Commit: Hyunggyu Jang <murasakipurplez5@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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]