procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get rid of duplicate pgtk function

Browse source 
* src/pgtkfns.c (Fpgtk_popup_font_panel): Remove function.
(syms_of_pgtkfns): Get rid of removed subr.
This commit is contained in:
Po Lu 2021-12-02 18:18:00 +08:00
parent 4844aaac19
commit 105c7562dc
1 changed files with 0 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/pgtkfns.c
View file

@ -1840,44 +1840,6 @@ Some window managers may refuse to restack windows. */)
return Qt;
}
DEFUN ("pgtk-popup-font-panel", Fpgtk_popup_font_panel, Spgtk_popup_font_panel,
0, 1, "",
doc: /* Pop up the font panel. */)
(Lisp_Object frame)
{
struct frame *f = decode_window_system_frame (frame);
Lisp_Object font;
Lisp_Object font_param;
char *default_name = NULL;
ptrdiff_t count = SPECPDL_INDEX ();
block_input ();
XSETFONT (font, FRAME_FONT (f));
font_param = Ffont_get (font, QCname);
if (STRINGP (font_param))
default_name = xlispstrdup (font_param);
else
{
font_param = Fframe_parameter (frame, Qfont_parameter);
if (STRINGP (font_param))
default_name = xlispstrdup (font_param);
}
font = xg_get_font (f, default_name);
xfree (default_name);
unblock_input ();
if (NILP (font))
quit ();
return unbind_to (count, font);
}
#ifdef HAVE_GSETTINGS
#define RESOURCE_KEY_MAX_LEN 128
@ -4047,7 +4009,6 @@ be used as the image of the icon representing the frame. */);
defsubr (&Spgtk_frame_geometry);
defsubr (&Spgtk_frame_edges);
defsubr (&Spgtk_frame_restack);
defsubr (&Spgtk_popup_font_panel);
defsubr (&Spgtk_set_mouse_absolute_pixel_position);
defsubr (&Spgtk_mouse_absolute_pixel_position);
defsubr (&Sx_display_mm_width);