--- a/gdb/python/frame.c
+++ b/gdb/python/frame.c
@@ -521,6 +521,25 @@ gdbpy_current_frame (PyObject *self, PyObject *args)
 }
 
 PyObject *
+gdbpy_get_selected_frame (PyObject *self, PyObject *args)
+{
+  struct frame_info *frame;
+  frame_object *frame_obj = NULL;   /* Initialize to appease gcc warning.  */
+  volatile struct gdb_exception except;
+
+  TRY_CATCH (except, RETURN_MASK_ALL)
+    {
+      frame = get_selected_frame ("No frame is currently selected.");
+      frame_obj = frame_info_to_frame_object (frame);
+      if (frame_obj == NULL)
+	return NULL;
+    }
+  GDB_PY_HANDLE_EXCEPTION (except);
+
+  return (PyObject *) frame_obj;
+}
+
+PyObject *
 gdbpy_frame_stop_reason_string (PyObject *self, PyObject *args)
 {
   int reason;

--- a/gdb/python/python-internal.h
+++ b/gdb/python/python-internal.h
@@ -38,6 +38,7 @@ PyObject *gdbpy_frames (PyObject *, PyObject *);
 PyObject *gdbpy_current_frame (PyObject *, PyObject *);
 PyObject *gdbpy_frame_stop_reason_string (PyObject *, PyObject *);
 PyObject *gdbpy_lookup_symbol (PyObject *self, PyObject *args);
+PyObject *gdbpy_get_selected_frame (PyObject *self, PyObject *args);
 
 PyObject *value_from_value (struct value *v);
 PyObject *variable_to_python (struct cmd_list_element *);

--- a/gdb/python/python.c
+++ b/gdb/python/python.c
@@ -76,6 +76,8 @@ demand_python ()
 	  "Return a tuple of all frame objects" },
 	{ "current_frame", gdbpy_current_frame, METH_NOARGS,
 	  "Return the current frame object" },
+	{ "get_selected_frame", gdbpy_get_selected_frame, METH_NOARGS,
+	  "Return the selected frame object" },
 	{ "frame_stop_reason_string", gdbpy_frame_stop_reason_string,
 	  METH_VARARGS, "Return a string explaining unwind stop reason" },