Contents in release-21-2 at 1999-06-30-19.

[chise/xemacs-chise.git.1] / src / console.c

diff --git a/src/console.c b/src/console.c
index 7e27f86..2b4c637 100644 (file)
--- a/src/console.c
+++ b/src/console.c
@@ -781,6 +781,14 @@ the toolbar, glyphs, etc.
   return !EQ (type, Qtty) && !EQ (type, Qstream) ? Qt : Qnil;
 }
 
+DEFUN ("console-features", Fconsole_features, 0, 1, 0, /*
+Return a list of console-specific features.
+*/
+       (console))
+{
+  return CONSOLE_FEATURES (decode_console (console));
+}
+
 
 \f
 /**********************************************************************/
@@ -1079,6 +1087,7 @@ syms_of_console (void)
   DEFSUBR (Fconsole_enable_input);
   DEFSUBR (Fconsole_disable_input);
   DEFSUBR (Fconsole_on_window_system_p);
+  DEFSUBR (Fconsole_features);
   DEFSUBR (Fsuspend_console);
   DEFSUBR (Fresume_console);