Mercurial > hg > xemacs-beta

diff src/ui-gtk.c @ 778:2923009caf47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 183866b06e0b
children e38acbeb1cae
line wrap: on
line diff
--- a/src/ui-gtk.c	Fri Mar 15 11:00:56 2002 +0000
+++ b/src/ui-gtk.c	Sat Mar 16 10:39:19 2002 +0000
@@ -22,6 +22,7 @@
 #include "hash.h"
 #include "events.h"
 #include "elhash.h"
+#include "event-gtk.h"
 
 /* XEmacs specific GTK types */
 #include "gtk-glue.c"
@@ -36,7 +37,9 @@
 
 Lisp_Object gtk_type_to_lisp (GtkArg *arg);
 int lisp_to_gtk_type (Lisp_Object obj, GtkArg *arg);
+#if 0
 void describe_gtk_arg (GtkArg *arg);
+#endif
 guint symbol_to_enum (Lisp_Object obj, GtkType t);
 static guint lisp_to_flag (Lisp_Object obj, GtkType t);
 static Lisp_Object flags_to_list (guint value, GtkType t);
@@ -367,7 +370,7 @@
     if (freep) xfree(v);				\
   } while (0)
 
-gpointer __allocate_object_storage (GtkType t)
+static gpointer __allocate_object_storage (GtkType t)
 {
   size_t s = 0;
   void *rval = NULL;
@@ -437,7 +440,7 @@
   return (rval);
 }
 
-Lisp_Object type_to_marshaller_type (GtkType t)
+static Lisp_Object type_to_marshaller_type (GtkType t)
 {
   switch (GTK_FUNDAMENTAL_TYPE (t))
     {
@@ -1363,6 +1366,7 @@
 
 
 /* Various utility functions */
+#if 0
 void describe_gtk_arg (GtkArg *arg)
 {
   GtkArg a = *arg;
@@ -1441,6 +1445,7 @@
       abort();
     }
 }
+#endif
 
 Lisp_Object gtk_type_to_lisp (GtkArg *arg)
 {