Mercurial > hg > xemacs-beta

diff lisp/gtk-marshal.el @ 591:ec73ae6e772b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-31 02:05:16 by wmperry] Fix GTK auto-generation elisp files...
author wmperry
date Thu, 31 May 2001 02:05:18 +0000
parents 0784d089fdc9
children 4d7fdf497470
line wrap: on
line diff
--- a/lisp/gtk-marshal.el	Thu May 31 02:01:47 2001 +0000
+++ b/lisp/gtk-marshal.el	Thu May 31 02:05:18 2001 +0000
@@ -71,10 +71,12 @@
     (insert "}\n")))
 
 (save-excursion
-  (find-file "../../src/emacs-marshals.c")
+  (find-file "../src/emacs-marshals.c")
   (erase-buffer)
   (setq defined-marshallers nil)
 
+  (insert "/* This file was automatically generated by ../lisp/gtk-marshal.el */\n"
+	  "/* DO NOT EDIT BY HAND!!! */\n")
   (insert "#define GTK_VALUE_ARRAY(x) GTK_VALUE_POINTER(x)\n\n")
   (insert "#define GTK_VALUE_LIST(x) GTK_VALUE_POINTER(x)\n\n")
 
@@ -276,7 +278,7 @@
 	void *fn = NULL;
 	initialize_marshaller_storage ();
 
-	if (gethash (func_name, marshaller_hashtable, (CONST void **)&fn))
+	if (gethash (func_name, marshaller_hashtable, (const void **)&fn))
 	{
 		return (fn);
 	}