master bdceac0d5a 1/2: Clean up some extraneous stuff in pgtkfns.c

[Po Lu]

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);