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
1ada3dab
Commit
1ada3dab
authored
Jul 25, 2008
by
Jason Rumney
Browse files
(Fx_select_font): Reverse sense of second arg.
parent
2bbcd618
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
src/ChangeLog
src/ChangeLog
+4
-0
src/w32font.c
src/w32font.c
+5
-5
No files found.
src/ChangeLog
View file @
1ada3dab
2008-07-25 Jason Rumney <jasonr@gnu.org>
* w32font.c (Fx_select_font): Reverse sense of second arg.
2008-07-24 Stefan Monnier <monnier@iro.umontreal.ca>
2008-07-24 Stefan Monnier <monnier@iro.umontreal.ca>
* syntax.c (struct lisp_parse_state, char_quoted, inc_bytepos)
* syntax.c (struct lisp_parse_state, char_quoted, inc_bytepos)
...
...
src/w32font.c
View file @
1ada3dab
...
@@ -2328,10 +2328,10 @@ DEFUN ("x-select-font", Fx_select_font, Sx_select_font, 0, 2, 0,
...
@@ -2328,10 +2328,10 @@ DEFUN ("x-select-font", Fx_select_font, Sx_select_font, 0, 2, 0,
Return fontconfig style font string corresponding to the selection.
Return fontconfig style font string corresponding to the selection.
If FRAME is omitted or nil, it defaults to the selected frame.
If FRAME is omitted or nil, it defaults to the selected frame.
If
IN
CLUDE-PROPORTIONAL is non-nil,
in
clude proportional fonts
If
EX
CLUDE-PROPORTIONAL is non-nil,
ex
clude proportional fonts
in the font selection dialog. */
)
in the font selection dialog. */
)
(
frame
,
in
clude_proportional
)
(
frame
,
ex
clude_proportional
)
Lisp_Object
frame
,
in
clude_proportional
;
Lisp_Object
frame
,
ex
clude_proportional
;
{
{
FRAME_PTR
f
=
check_x_frame
(
frame
);
FRAME_PTR
f
=
check_x_frame
(
frame
);
CHOOSEFONT
cf
;
CHOOSEFONT
cf
;
...
@@ -2348,9 +2348,9 @@ in the font selection dialog. */)
...
@@ -2348,9 +2348,9 @@ in the font selection dialog. */)
cf
.
hwndOwner
=
FRAME_W32_WINDOW
(
f
);
cf
.
hwndOwner
=
FRAME_W32_WINDOW
(
f
);
cf
.
Flags
=
CF_FORCEFONTEXIST
|
CF_SCREENFONTS
|
CF_NOVERTFONTS
;
cf
.
Flags
=
CF_FORCEFONTEXIST
|
CF_SCREENFONTS
|
CF_NOVERTFONTS
;
/*
Unless in
clude_proportional is non-nil, limit the selection to
/*
If ex
clude_proportional is non-nil, limit the selection to
monospaced fonts. */
monospaced fonts. */
if
(
NILP
(
in
clude_proportional
))
if
(
!
NILP
(
ex
clude_proportional
))
cf
.
Flags
|=
CF_FIXEDPITCHONLY
;
cf
.
Flags
|=
CF_FIXEDPITCHONLY
;
cf
.
lpLogFont
=
&
lf
;
cf
.
lpLogFont
=
&
lf
;
...
...
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