Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
bc9a2afe
Commit
bc9a2afe
authored
Jun 28, 2006
by
Kenichi Handa
Browse files
(ftfont_list): Handle properties dpi, spacing, and
scalable.
parent
a703d27d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
28 additions
and
3 deletions
+28
-3
src/ftfont.c
src/ftfont.c
+28
-3
No files found.
src/ftfont.c
View file @
bc9a2afe
...
...
@@ -312,6 +312,9 @@ ftfont_list (frame, spec)
FcObjectSet
*
objset
=
NULL
;
Lisp_Object
registry
=
Qunicode_bmp
;
int
weight
=
0
;
double
dpi
=
-
1
;
int
spacing
=
-
1
;
int
scalable
=
-
1
;
val
=
null_vector
;
...
...
@@ -347,6 +350,13 @@ ftfont_list (frame, spec)
font_name
=
Qnil
;
if
(
CONSP
(
extra
))
{
tmp
=
assq_no_quit
(
QCname
,
extra
);
if
(
CONSP
(
tmp
))
{
font_name
=
XCDR
(
tmp
);
if
(
SDATA
(
font_name
)[
0
]
!=
':'
)
return
val
;
}
tmp
=
assq_no_quit
(
QCotf
,
extra
);
if
(
!
NILP
(
tmp
))
return
val
;
...
...
@@ -371,9 +381,6 @@ ftfont_list (frame, spec)
tmp
=
XCDR
(
tmp
);
}
}
tmp = Fassq (QCname, extra);
if (CONSP (tmp))
font_name = XCDR (tmp);
tmp
=
assq_no_quit
(
QCscript
,
extra
);
if
(
CONSP
(
tmp
)
&&
!
charset
)
{
...
...
@@ -392,6 +399,15 @@ ftfont_list (frame, spec)
goto
err
;
}
}
tmp
=
assq_no_quit
(
QCdpi
,
extra
);
if
(
CONSP
(
tmp
))
dpi
=
XINT
(
XCDR
(
tmp
));
tmp
=
assq_no_quit
(
QCspacing
,
extra
);
if
(
CONSP
(
tmp
))
spacing
=
XINT
(
XCDR
(
tmp
));
tmp
=
assq_no_quit
(
QCscalable
,
extra
);
if
(
CONSP
(
tmp
))
spacing
=
!
NILP
(
XCDR
(
tmp
));
}
if
(
STRINGP
(
font_name
))
...
...
@@ -430,6 +446,15 @@ ftfont_list (frame, spec)
if
(
langset
&&
!
FcPatternAddLangSet
(
pattern
,
FC_LANG
,
langset
))
goto
err
;
if
(
dpi
>=
0
&&
!
FcPatternAddDouble
(
pattern
,
FC_DPI
,
dpi
))
goto
err
;
if
(
spacing
>=
0
&&
!
FcPatternAddInteger
(
pattern
,
FC_SPACING
,
spacing
))
goto
err
;
if
(
scalable
>=
0
&&
!
FcPatternAddBool
(
pattern
,
FC_SPACING
,
spacing
?
FcTrue
:
FcFalse
))
goto
err
;
objset
=
FcObjectSetBuild
(
FC_FOUNDRY
,
FC_FAMILY
,
FC_WEIGHT
,
FC_SLANT
,
FC_WIDTH
,
FC_PIXEL_SIZE
,
FC_SPACING
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment