Mercurial > emacs
comparison src/xmenu.c @ 53325:8e8832ef3963
(show_help_event): Remove unused code.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sat, 27 Dec 2003 22:24:01 +0000 |
parents | 1218a42792ea |
children | ed3e26153ee9 7900111db01c |
comparison
equal
deleted
inserted
replaced
53324:890b555d85b7 | 53325:8e8832ef3963 |
---|---|
97 Lisp_Object Vmenu_updating_frame; | 97 Lisp_Object Vmenu_updating_frame; |
98 | 98 |
99 Lisp_Object Qdebug_on_next_call; | 99 Lisp_Object Qdebug_on_next_call; |
100 | 100 |
101 extern Lisp_Object Qmenu_bar; | 101 extern Lisp_Object Qmenu_bar; |
102 extern Lisp_Object Qmouse_click, Qevent_kind; | |
103 | 102 |
104 extern Lisp_Object QCtoggle, QCradio; | 103 extern Lisp_Object QCtoggle, QCradio; |
105 | 104 |
106 extern Lisp_Object Voverriding_local_map; | 105 extern Lisp_Object Voverriding_local_map; |
107 extern Lisp_Object Voverriding_local_map_menu_flag; | 106 extern Lisp_Object Voverriding_local_map_menu_flag; |
1302 XSETFRAME (frame, f); | 1301 XSETFRAME (frame, f); |
1303 kbd_buffer_store_help_event (frame, help); | 1302 kbd_buffer_store_help_event (frame, help); |
1304 } | 1303 } |
1305 else | 1304 else |
1306 { | 1305 { |
1306 #if 0 /* This code doesn't do anything useful. ++kfs */ | |
1307 /* WIDGET is the popup menu. It's parent is the frame's | 1307 /* WIDGET is the popup menu. It's parent is the frame's |
1308 widget. See which frame that is. */ | 1308 widget. See which frame that is. */ |
1309 xt_or_gtk_widget frame_widget = XtParent (widget); | 1309 xt_or_gtk_widget frame_widget = XtParent (widget); |
1310 Lisp_Object tail; | 1310 Lisp_Object tail; |
1311 | 1311 |
1315 if (GC_FRAMEP (frame) | 1315 if (GC_FRAMEP (frame) |
1316 && (f = XFRAME (frame), | 1316 && (f = XFRAME (frame), |
1317 FRAME_X_P (f) && f->output_data.x->widget == frame_widget)) | 1317 FRAME_X_P (f) && f->output_data.x->widget == frame_widget)) |
1318 break; | 1318 break; |
1319 } | 1319 } |
1320 | 1320 #endif |
1321 show_help_echo (help, Qnil, Qnil, Qnil, 1); | 1321 show_help_echo (help, Qnil, Qnil, Qnil, 1); |
1322 } | 1322 } |
1323 } | 1323 } |
1324 | 1324 |
1325 /* Callback called when menu items are highlighted/unhighlighted | 1325 /* Callback called when menu items are highlighted/unhighlighted |