comparison src/term.c @ 39914:91951fb5b9e5

Put doc strings in comments.

39913:5170ea31a07f

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "termchar.h"
#include "termopts.h"
#include "lisp.h"
#include "charset.h"
#include "coding.h"
#include "keyboard.h"
#include "frame.h"

    
/* Return non-zero if the terminal is capable to display colors.  */

DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
       0, 1, 0,
  "Return non-nil if TTY can display colors on FRAME.")
     (frame)
     Lisp_Object frame;
{
  return TN_max_colors > 0 ? Qt : Qnil;
}

}

void
syms_of_term ()
{
  DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo,
    "Non-nil means the system uses terminfo rather than termcap.\n\
This variable can be used by terminal emulator packages.");
#ifdef TERMINFO
  system_uses_terminfo = 1;
#else
  system_uses_terminfo = 0;
#endif

  DEFVAR_LISP ("ring-bell-function", &Vring_bell_function,
    "Non-nil means call this function to ring the bell.\n\
The function should accept no arguments.");
  Vring_bell_function = Qnil;

  defsubr (&Stty_display_color_p);
}

39914:91951fb5b9e5

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "termchar.h"
#include "termopts.h"
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "charset.h"
#include "coding.h"
#include "keyboard.h"
#include "frame.h"

    
/* Return non-zero if the terminal is capable to display colors.  */

DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
       0, 1, 0,
       /* Return non-nil if TTY can display colors on FRAME.  */
       (frame))
     Lisp_Object frame;
{
  return TN_max_colors > 0 ? Qt : Qnil;
}

}

void
syms_of_term ()
{
  DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
    /* Non-nil means the system uses terminfo rather than termcap.
This variable can be used by terminal emulator packages.  */);
#ifdef TERMINFO
  system_uses_terminfo = 1;
#else
  system_uses_terminfo = 0;
#endif

  DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
    /* Non-nil means call this function to ring the bell.
The function should accept no arguments.  */);
  Vring_bell_function = Qnil;

  defsubr (&Stty_display_color_p);
}