Added the SHOW WORKSPACE command which was absent.

Reported-by: Stefan Tzeggai

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index e6e816a8b79ea57cfc5b21c4057efdbb458ac872..8f59156e2b80a90b14c2f227f6ef773d712322ed 100644 (file)
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -872,6 +872,12 @@ show_width (const struct dataset *ds UNUSED)
   return xasprintf ("%d", settings_get_viewwidth ());
 }
 
+static char *
+show_workspace (const struct dataset *ds UNUSED)
+{
+  return xasprintf ("%d", settings_get_workspace ());
+}
+
 static char *
 show_current_directory (const struct dataset *ds UNUSED)
 {
@@ -963,6 +969,7 @@ const struct show_sbc show_table[] =
     {"WIB", show_wib},
     {"WRB", show_wrb},
     {"WIDTH", show_width},
+    {"WORKSPACE", show_workspace},
   };
 
 static void