X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fconsole.c;h=2b4c6370e5d3a8129061b309ec4bf11f8124cc2a;hp=7e27f8614b6186171e5c10e88396b3dcdfe807d2;hb=1c97bf160520f9e0b193236a902eb4b73d59d134;hpb=a71e0987b7080176e0046b0b0ed72a9a70e2571d

diff --git a/src/console.c b/src/console.c
index 7e27f86..2b4c637 100644
--- 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));
+}
+
 
 
 /**********************************************************************/
@@ -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);