[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bdceac0d5a 1/2: Clean up some extraneous stuff in pgtkfns.c
From: |
Po Lu |
Subject: |
master bdceac0d5a 1/2: Clean up some extraneous stuff in pgtkfns.c |
Date: |
Fri, 15 Apr 2022 04:44:30 -0400 (EDT) |
branch: master
commit bdceac0d5a413d89aae4785c884eab1f446ae3ad
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Clean up some extraneous stuff in pgtkfns.c
* src/pgtkfns.c (Fx_gtk_debug): Fix doc string and remove extra
version check.
(syms_of_pgtkfns): Delete left over defvar from NS port.
---
src/pgtkfns.c | 28 +---------------------------
1 file changed, 1 insertion(+), 27 deletions(-)
diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index e6ce5e2f44..537d4152b6 100644
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -3864,9 +3864,8 @@ nil, it defaults to the selected frame. */)
return unbind_to (count, font);
}
-#if GTK_CHECK_VERSION (3, 14, 0)
DEFUN ("x-gtk-debug", Fx_gtk_debug, Sx_gtk_debug, 1, 1, 0,
- doc: /* Toggle interactive GTK debugging. */)
+ doc: /* SKIP: real doc in xfns.c. */)
(Lisp_Object enable)
{
gboolean enable_debug = !NILP (enable);
@@ -3877,7 +3876,6 @@ DEFUN ("x-gtk-debug", Fx_gtk_debug, Sx_gtk_debug, 1, 1, 0,
return NILP (enable) ? Qnil : Qt;
}
-#endif /* GTK_CHECK_VERSION (3, 14, 0) */
/* ==========================================================================
@@ -3901,27 +3899,6 @@ syms_of_pgtkfns (void)
doc: /* SKIP: real doc in xfns.c. */);
Vx_cursor_fore_pixel = Qnil;
- DEFVAR_LISP ("pgtk-icon-type-alist", Vpgtk_icon_type_alist,
- doc: /* Alist of elements (REGEXP . IMAGE) for images of icons
associated to frames.
-If the title of a frame matches REGEXP, then IMAGE.tiff is
-selected as the image of the icon representing the frame when it's
-miniaturized. If an element is t, then Emacs tries to select an icon
-based on the filetype of the visited file.
-
-The images have to be installed in a folder called English.lproj in the
-Emacs folder. You have to restart Emacs after installing new icons.
-
-Example: Install an icon Gnus.tiff and execute the following code
-
-(setq pgtk-icon-type-alist
-(append pgtk-icon-type-alist
-\\='((\"^\\\\*\\\\(Group\\\\*$\\\\|Summary \\\\|Article\\\\*$\\\\)\"
-. \"Gnus\"))))
-
-When you miniaturize a Group, Summary or Article frame, Gnus.tiff will
-be used as the image of the icon representing the frame. */);
- Vpgtk_icon_type_alist = list1 (Qt);
-
Fprovide (intern_c_string ("gtk"), Qnil);
DEFVAR_LISP ("gtk-version-string", Vgtk_version_string,
@@ -3977,10 +3954,7 @@ be used as the image of the icon representing the frame.
*/);
defsubr (&Sx_open_connection);
defsubr (&Sx_close_connection);
defsubr (&Sx_display_list);
-
-#if GTK_CHECK_VERSION (3, 14, 0)
defsubr (&Sx_gtk_debug);
-#endif
defsubr (&Spgtk_hide_others);
defsubr (&Spgtk_hide_emacs);