/* Functions related to terminal devices.
- Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+ Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
This file is part of GNU Emacs.
#include <config.h>
#include <stdio.h>
+#include <setjmp.h>
#include "lisp.h"
#include "frame.h"
/* 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
\f
-/* Return the terminal object specified by TERMINAL. TERMINAL may be a
- terminal id, a frame, or nil for the terminal device of the current
- frame. If THROW is zero, return NULL for failure, otherwise throw
- an error. */
+/* Return the terminal object specified by TERMINAL. TERMINAL may be
+ a terminal object, a frame, or nil for the terminal device of the
+ current frame. If THROW is zero, return NULL for failure,
+ otherwise throw an error. */
struct terminal *
get_terminal (Lisp_Object terminal, int throw)
if (TERMINALP (terminal))
result = XTERMINAL (terminal);
-
else if (FRAMEP (terminal))
- {
- result = FRAME_TERMINAL (XFRAME (terminal));
- }
+ result = FRAME_TERMINAL (XFRAME (terminal));
if (result && !result->name)
result = NULL;
struct terminal **tp;
Lisp_Object tail, frame;
- /* Protect against recursive calls. Fdelete_frame calls the
+ /* Protect against recursive calls. delete_frame calls the
delete_terminal_hook when we delete our last frame. */
if (!terminal->name)
return;
struct frame *f = XFRAME (frame);
if (FRAME_LIVE_P (f) && f->terminal == terminal)
{
- /* Maybe this should pass Qnoelisp rather than Qt? */
- Fdelete_frame (frame, Qt);
+ /* Pass Qnoelisp rather than Qt. */
+ delete_frame (frame, Qnoelisp);
}
}
terminal->keyboard_coding = NULL;
xfree (terminal->terminal_coding);
terminal->terminal_coding = NULL;
-
-#ifdef MULTI_KBOARD
+
if (terminal->kboard && --terminal->kboard->reference_count == 0)
{
delete_kboard (terminal->kboard);
terminal->kboard = NULL;
}
-#endif
}
Lisp_Object Qrun_hook_with_args;
DEFUN ("delete-terminal", Fdelete_terminal, Sdelete_terminal, 0, 2, 0,
doc: /* Delete TERMINAL by deleting all frames on it and closing the terminal.
-TERMINAL may be a terminal id, a frame, or nil (meaning the selected
-frame's terminal).
+TERMINAL may be a terminal object, a frame, or nil (meaning the
+selected frame's terminal).
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);
struct terminal *p = terminal_list;
while (p && (p == t || !TERMINAL_ACTIVE_P (p)))
p = p->next_terminal;
-
+
if (!p)
error ("Attempt to delete the sole active display terminal");
}
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;
-
+
t = get_terminal (object, 0);
if (!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;
doc: /* Return the name of the terminal device TERMINAL.
It is not guaranteed that the returned value is unique among opened devices.
-TERMINAL may be a terminal id, a frame, or nil (meaning the
+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;
+get_terminal_param (struct terminal *t, Lisp_Object param)
{
Lisp_Object tem = Fassq (param, t->param_alist);
if (EQ (tem, Qnil))
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))
The value is a list of elements of the form (PARM . VALUE), where PARM
is a symbol.
-TERMINAL can be a terminal id, a frame or nil (meaning the selected
-frame's terminal). */)
- (terminal)
- Lisp_Object terminal;
+TERMINAL can be a terminal object, a frame, or nil (meaning the
+selected frame's terminal). */)
+ (Lisp_Object terminal)
{
struct terminal *t
= TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1);
DEFUN ("terminal-parameter", Fterminal_parameter, Sterminal_parameter, 2, 2, 0,
doc: /* Return TERMINAL's value for parameter PARAMETER.
-TERMINAL can be a terminal id, a frame or nil (meaning the selected
-frame's terminal). */)
- (terminal, parameter)
- Lisp_Object terminal;
- Lisp_Object parameter;
+TERMINAL can be a terminal object, a frame, or nil (meaning the
+selected frame's terminal). */)
+ (Lisp_Object terminal, Lisp_Object parameter)
{
Lisp_Object value;
struct terminal *t
doc: /* Set TERMINAL's value for parameter PARAMETER to VALUE.
Return the previous value of PARAMETER.
-TERMINAL can be a terminal id, a frame or nil (meaning the selected
-frame's terminal). */)
- (terminal, parameter, value)
- Lisp_Object terminal;
- Lisp_Object parameter;
- Lisp_Object value;
+TERMINAL can be a terminal object, a frame or nil (meaning the
+selected frame's terminal). */)
+ (Lisp_Object terminal, Lisp_Object parameter, Lisp_Object value)
{
struct terminal *t
= TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1);
initial_terminal = create_terminal ();
initial_terminal->type = output_initial;
initial_terminal->name = xstrdup ("initial_terminal");
-#ifdef MULTI_KBOARD
initial_terminal->kboard = initial_kboard;
-#endif
initial_terminal->delete_terminal_hook = &delete_initial_terminal;
/* All other hooks are NULL. */
}
void
-syms_of_terminal ()
+syms_of_terminal (void)
{
DEFVAR_LISP ("ring-bell-function", &Vring_bell_function,
This may be called just before actually deleting the terminal,
or some time later. */);
Vdelete_terminal_functions = Qnil;
- Qdelete_terminal_functions = intern ("delete-terminal-functions");
+ Qdelete_terminal_functions = intern_c_string ("delete-terminal-functions");
staticpro (&Qdelete_terminal_functions);
- Qrun_hook_with_args = intern ("run-hook-with-args");
+ Qrun_hook_with_args = intern_c_string ("run-hook-with-args");
staticpro (&Qrun_hook_with_args);
defsubr (&Sdelete_terminal);
defsubr (&Sterminal_parameter);
defsubr (&Sset_terminal_parameter);
- Fprovide (intern ("multi-tty"), Qnil);
+ Fprovide (intern_c_string ("multi-tty"), Qnil);
}
/* arch-tag: e9af6f27-b483-47dc-bb1a-730c1c5cab03
HCoop / bpt / emacs.git / blobdiff