# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1366657641 14400
# Node ID 8fc1f653538031378c21a26b0098d2995895a49b
# Parent  6ae555fc8c43310522e9e1d592b3e245686cf9a6
new function, __octave_link_enabled__

* octave-link.h (octave_link::enabled): Now public.
(F__octave_link_enabled__): New function.

diff --git a/libinterp/interpfcn/octave-link.cc b/libinterp/interpfcn/octave-link.cc
--- a/libinterp/interpfcn/octave-link.cc
+++ b/libinterp/interpfcn/octave-link.cc
@@ -102,6 +102,15 @@
   event_queue_mutex->unlock ();
 }
 
+DEFUN (__octave_link_enabled__, , ,
+  "-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} __octave_link_enabled__ ()\n\
+Undocumented internal function.\n\
+@end deftypefn")
+{
+  return octave_value (octave_link::enabled ());
+}
+
 DEFUN (__octave_link_edit_file__, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __octave_link_edit_file__ (@var{file})\n\
diff --git a/libinterp/interpfcn/octave-link.h b/libinterp/interpfcn/octave-link.h
--- a/libinterp/interpfcn/octave-link.h
+++ b/libinterp/interpfcn/octave-link.h
@@ -280,6 +280,11 @@
       instance->do_set_default_prompts (ps1, ps2, ps4);
   }
 
+  static bool enabled (void)
+  {
+    return instance_ok () ? instance->link_enabled : false;
+  }
+
 private:
 
   static octave_link *instance;
@@ -292,11 +297,6 @@
 
   static bool instance_ok (void) { return instance != 0; }
 
-  static bool enabled (void)
-  {
-    return instance_ok () ? instance->link_enabled : false;
-  }
-
 protected:
 
   // Semaphore to lock access to the event queue.