diff options
| author | Joakim Verona | 2015-01-11 20:20:37 +0100 |
|---|---|---|
| committer | Joakim Verona | 2015-01-11 20:20:37 +0100 |
| commit | a1124bc117e41019de49c82d13d1a72a50df977d (patch) | |
| tree | bffc058cfdda5db2b39b10910980db234097da9c /src | |
| parent | cc7cb20d6abc0f862e5513b24831bba0eaecaa5f (diff) | |
| download | emacs-a1124bc117e41019de49c82d13d1a72a50df977d.tar.gz emacs-a1124bc117e41019de49c82d13d1a72a50df977d.zip | |
Update to new DEFSYM strategy
Update to new DEFSYM strategy which was slightly tricky.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 3 | ||||
| -rw-r--r-- | src/print.c | 7 | ||||
| -rw-r--r-- | src/xwidget.c | 23 | ||||
| -rw-r--r-- | src/xwidget.h | 2 |
4 files changed, 5 insertions, 30 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 86c840d052a..6afbd5d5fb8 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -11102,8 +11102,7 @@ syms_of_keyboard (void) | |||
| 11102 | #endif | 11102 | #endif |
| 11103 | 11103 | ||
| 11104 | #ifdef HAVE_XWIDGETS | 11104 | #ifdef HAVE_XWIDGETS |
| 11105 | Qxwidget_event = intern ("xwidget-event"); | 11105 | DEFSYM (Qxwidget_event,"xwidget-event"); |
| 11106 | staticpro (&Qxwidget_event); | ||
| 11107 | #endif /* HAVE_XWIDGETS */ | 11106 | #endif /* HAVE_XWIDGETS */ |
| 11108 | #ifdef USE_FILE_NOTIFY | 11107 | #ifdef USE_FILE_NOTIFY |
| 11109 | DEFSYM (Qfile_notify, "file-notify"); | 11108 | DEFSYM (Qfile_notify, "file-notify"); |
diff --git a/src/print.c b/src/print.c index 963979e809a..688327dfe1c 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -40,13 +40,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 40 | #ifdef HAVE_XWIDGETS | 40 | #ifdef HAVE_XWIDGETS |
| 41 | #include "xwidget.h" | 41 | #include "xwidget.h" |
| 42 | #endif | 42 | #endif |
| 43 | Lisp_Object Qstandard_output; | ||
| 44 | |||
| 45 | static Lisp_Object Qtemp_buffer_setup_hook; | ||
| 46 | |||
| 47 | /* These are used to print like we read. */ | ||
| 48 | |||
| 49 | static Lisp_Object Qfloat_output_format; | ||
| 50 | 43 | ||
| 51 | #include <float.h> | 44 | #include <float.h> |
| 52 | #include <ftoastr.h> | 45 | #include <ftoastr.h> |
diff --git a/src/xwidget.c b/src/xwidget.c index fc4ec80bef9..00913ca634c 100644 --- a/src/xwidget.c +++ b/src/xwidget.c | |||
| @@ -113,23 +113,6 @@ allocate_xwidget_view (void) | |||
| 113 | #define XSETXWIDGET(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_XWIDGET)) | 113 | #define XSETXWIDGET(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_XWIDGET)) |
| 114 | #define XSETXWIDGET_VIEW(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_XWIDGET_VIEW)) | 114 | #define XSETXWIDGET_VIEW(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_XWIDGET_VIEW)) |
| 115 | 115 | ||
| 116 | Lisp_Object Qxwidget; | ||
| 117 | Lisp_Object QCxwidget; | ||
| 118 | Lisp_Object QCtitle; | ||
| 119 | Lisp_Object Qxwidget_set_keyboard_grab; | ||
| 120 | Lisp_Object Qxwidget_embed_steal_window; | ||
| 121 | Lisp_Object Qxwidget_info; | ||
| 122 | Lisp_Object Qxwidget_resize; | ||
| 123 | Lisp_Object Qxwidget_send_keyboard_event; | ||
| 124 | Lisp_Object QCxwgir_class; | ||
| 125 | Lisp_Object Qbutton, Qtoggle, Qslider, Qsocket, Qsocket_osr, Qcairo, Qxwgir, | ||
| 126 | Qwebkit_osr, QCplist; | ||
| 127 | Lisp_Object Qxwidgetp, Qxwidget_view_p; | ||
| 128 | |||
| 129 | |||
| 130 | extern Lisp_Object QCtype; | ||
| 131 | extern Lisp_Object QCwidth, QCheight; | ||
| 132 | |||
| 133 | struct xwidget_view* xwidget_view_lookup(struct xwidget* xw, struct window *w); | 116 | struct xwidget_view* xwidget_view_lookup(struct xwidget* xw, struct window *w); |
| 134 | Lisp_Object xwidget_spec_value ( Lisp_Object spec, Lisp_Object key, int *found); | 117 | Lisp_Object xwidget_spec_value ( Lisp_Object spec, Lisp_Object key, int *found); |
| 135 | gboolean offscreen_damage_event (GtkWidget *widget, GdkEvent *event, gpointer data); | 118 | gboolean offscreen_damage_event (GtkWidget *widget, GdkEvent *event, gpointer data); |
| @@ -1564,12 +1547,12 @@ syms_of_xwidget (void) | |||
| 1564 | defsubr (&Sset_xwidget_query_on_exit_flag); | 1547 | defsubr (&Sset_xwidget_query_on_exit_flag); |
| 1565 | defsubr (&Sset_frame_visible); | 1548 | defsubr (&Sset_frame_visible); |
| 1566 | 1549 | ||
| 1567 | #ifdef HAVE_WEBKIT_OSR | 1550 | #ifdef HAVE_WEBKIT_OSR |
| 1568 | defsubr (&Sxwidget_webkit_goto_uri); | 1551 | defsubr (&Sxwidget_webkit_goto_uri); |
| 1569 | defsubr (&Sxwidget_webkit_execute_script); | 1552 | defsubr (&Sxwidget_webkit_execute_script); |
| 1570 | defsubr (&Sxwidget_webkit_get_title); | 1553 | defsubr (&Sxwidget_webkit_get_title); |
| 1571 | DEFSYM (Qwebkit_osr ,"webkit-osr"); | 1554 | DEFSYM (Qwebkit_osr, "webkit-osr"); |
| 1572 | #endif | 1555 | #endif |
| 1573 | 1556 | ||
| 1574 | defsubr (&Sxwgir_xwidget_call_method ); | 1557 | defsubr (&Sxwgir_xwidget_call_method ); |
| 1575 | defsubr (&Sxwgir_require_namespace); | 1558 | defsubr (&Sxwgir_require_namespace); |
diff --git a/src/xwidget.h b/src/xwidget.h index 6f3f4bb0449..0db7653941b 100644 --- a/src/xwidget.h +++ b/src/xwidget.h | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | void x_draw_xwidget_glyph_string (struct glyph_string *s); | 4 | void x_draw_xwidget_glyph_string (struct glyph_string *s); |
| 5 | void syms_of_xwidget (); | 5 | void syms_of_xwidget (); |
| 6 | 6 | ||
| 7 | extern Lisp_Object Qxwidget; | 7 | //extern Lisp_Object Qxwidget; |
| 8 | 8 | ||
| 9 | 9 | ||
| 10 | int valid_xwidget_spec_p (Lisp_Object object) ; | 10 | int valid_xwidget_spec_p (Lisp_Object object) ; |