/* Function to use to ring the bell. */
Lisp_Object Vring_bell_function;
-static void delete_initial_terminal P_ ((struct terminal *));
+static void delete_initial_terminal (struct terminal *);
\f
Normally, you may not delete a display if all other displays are suspended,
but if the second argument FORCE is non-nil, you may do so. */)
- (terminal, force)
- Lisp_Object terminal, force;
+ (Lisp_Object terminal, Lisp_Object force)
{
struct terminal *t = get_terminal (terminal, 0);
If FRAME is nil, the selected frame is used.
The terminal device is represented by its integer identifier. */)
- (frame)
- Lisp_Object frame;
+ (Lisp_Object frame)
{
struct terminal *t;
If object is a live display terminal, the return value indicates what
sort of output terminal it uses. See the documentation of `framep' for
possible return values. */)
- (object)
- Lisp_Object object;
+ (Lisp_Object object)
{
struct terminal *t;
DEFUN ("terminal-list", Fterminal_list, Sterminal_list, 0, 0, 0,
doc: /* Return a list of all terminal devices. */)
- ()
+ (void)
{
Lisp_Object terminal, terminals = Qnil;
struct terminal *t;
TERMINAL may be a terminal object, a frame, or nil (meaning the
selected frame's terminal). */)
- (terminal)
- Lisp_Object terminal;
+ (Lisp_Object terminal)
{
struct terminal *t
= TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1);
\f
-/* Return the value of terminal parameter PARAM in terminal T. */
-Lisp_Object
-get_terminal_param (t, param)
- struct terminal *t;
- Lisp_Object param;
-{
- Lisp_Object tem = Fassq (param, t->param_alist);
- if (EQ (tem, Qnil))
- return tem;
- return Fcdr (tem);
-}
-
/* Set the value of terminal parameter PARAMETER in terminal D to VALUE.
Return the previous value. */
Lisp_Object
-store_terminal_param (t, parameter, value)
- struct terminal *t;
- Lisp_Object parameter;
- Lisp_Object value;
+store_terminal_param (struct terminal *t, Lisp_Object parameter, Lisp_Object value)
{
Lisp_Object old_alist_elt = Fassq (parameter, t->param_alist);
if (EQ (old_alist_elt, Qnil))
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). */)
- (terminal)
- Lisp_Object terminal;
+ (Lisp_Object terminal)
{
struct terminal *t
= TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1);
doc: /* Return TERMINAL's value for parameter PARAMETER.
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). */)
- (terminal, parameter)
- Lisp_Object terminal;
- Lisp_Object parameter;
+ (Lisp_Object terminal, Lisp_Object parameter)
{
Lisp_Object value;
struct terminal *t
TERMINAL can be a terminal object, a frame or nil (meaning the
selected frame's terminal). */)
- (terminal, parameter, value)
- Lisp_Object terminal;
- Lisp_Object parameter;
- Lisp_Object value;
+ (Lisp_Object terminal, Lisp_Object parameter, Lisp_Object value)
{
struct terminal *t
= TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1);
}
void
-syms_of_terminal ()
+syms_of_terminal (void)
{
DEFVAR_LISP ("ring-bell-function", &Vring_bell_function,