Mercurial > hg > xemacs-beta
diff lisp/gtk-widget-accessors.el @ 591:ec73ae6e772b
[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 | cd662ad69f40 |
| children | 11502791fc1c |
line wrap: on
line diff
--- a/lisp/gtk-widget-accessors.el Thu May 31 02:01:47 2001 +0000 +++ b/lisp/gtk-widget-accessors.el Thu May 31 02:05:18 2001 +0000 @@ -1,4 +1,4 @@ -(globally-declare-fboundp +'(globally-declare-fboundp '(gtk-fundamental-type)) (require 'gtk-ffi) @@ -66,7 +66,7 @@ "\n" (format "\tif (!GTK_IS_%s (XGTK_OBJECT (obj)->object))\n" wrapper) "\t{\n" - (format "\t\tsignal_simple_error (\"Object is not a %s\", obj);\n" gtk-class) + (format "\t\twtaerror (\"Object is not a %s\", obj);\n" gtk-class) "\t};\n" "\n" (format "\tthe_obj = GTK_%s (XGTK_OBJECT (obj)->object);\n" wrapper) @@ -112,6 +112,8 @@ (c-mode-hook nil)) (find-file file)) (erase-buffer) + (insert "/* This file was automatically generated by ../lisp/gtk-widget-accessors.el */\n" + "/* DO NOT EDIT BY HAND!!! */\n") (let ((c-funcs nil)) (while description (setq c-funcs (nconc (define-widget-accessors @@ -133,7 +135,7 @@ (funcall sym)))) (import-widget-accessors - "../../src/emacs-widget-accessors.c" + "../src/emacs-widget-accessors.c" "syms_of_widget_accessors " 'GtkAdjustment "ADJUSTMENT" "adjustment"