From: Po Lu <luangruo@yahoo.com>
Date: Fri, 15 Apr 2022 08:08:28 +0000 (+0800)
Subject: Clean up some extraneous stuff in pgtkfns.c
X-Git-Tag: emacs-29.0.90~1931^2~554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdceac0d5a413d89aae4785c884eab1f446ae3ad;p=emacs.git

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.
---

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index e6ce5e2f443..537d4152b6f 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);