428
+ − 1 /* The console object.
+ − 2 Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
800
+ − 3 Copyright (C) 1996, 2002 Ben Wing.
428
+ − 4
+ − 5 This file is part of XEmacs.
+ − 6
+ − 7 XEmacs is free software; you can redistribute it and/or modify it
+ − 8 under the terms of the GNU General Public License as published by the
+ − 9 Free Software Foundation; either version 2, or (at your option) any
+ − 10 later version.
+ − 11
+ − 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 15 for more details.
+ − 16
+ − 17 You should have received a copy of the GNU General Public License
+ − 18 along with XEmacs; see the file COPYING. If not, write to
+ − 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 20 Boston, MA 02111-1307, USA. */
+ − 21
+ − 22 /* Synched up with: Not in FSF. */
+ − 23
853
+ − 24 /* Written by Ben Wing, late 1995?.
+ − 25 suspend-console, set-input-mode, and related stuff largely based on
+ − 26 existing code.
+ − 27 */
428
+ − 28
+ − 29 #include <config.h>
+ − 30 #include "lisp.h"
+ − 31
+ − 32 #include "buffer.h"
872
+ − 33 #include "console-impl.h"
+ − 34 #include "device-impl.h"
428
+ − 35 #include "events.h"
872
+ − 36 #include "frame-impl.h"
428
+ − 37 #include "redisplay.h"
+ − 38 #include "sysdep.h"
+ − 39 #include "window.h"
+ − 40
1204
+ − 41 #include "console-stream-impl.h"
872
+ − 42 #ifdef HAVE_TTY
+ − 43 #include "console-tty-impl.h"
+ − 44 #endif
800
+ − 45
2340
+ − 46 #ifdef HAVE_TTY
+ − 47 #define USED_IF_TTY(decl) decl
+ − 48 #else
+ − 49 #define USED_IF_TTY(decl) UNUSED (decl)
+ − 50 #endif
+ − 51
428
+ − 52 Lisp_Object Vconsole_list, Vselected_console;
+ − 53
+ − 54 Lisp_Object Vcreate_console_hook, Vdelete_console_hook;
+ − 55
+ − 56 Lisp_Object Qconsolep, Qconsole_live_p;
+ − 57 Lisp_Object Qcreate_console_hook;
+ − 58 Lisp_Object Qdelete_console_hook;
+ − 59
+ − 60 Lisp_Object Qsuspend_hook;
+ − 61 Lisp_Object Qsuspend_resume_hook;
+ − 62
+ − 63 /* This structure holds the default values of the console-local
+ − 64 variables defined with DEFVAR_CONSOLE_LOCAL, that have special
+ − 65 slots in each console. The default value occupies the same slot
+ − 66 in this structure as an individual console's value occupies in
+ − 67 that console. Setting the default value also goes through the
+ − 68 list of consoles and stores into each console that does not say
+ − 69 it has a local value. */
+ − 70 Lisp_Object Vconsole_defaults;
+ − 71 static void *console_defaults_saved_slots;
+ − 72
+ − 73 /* This structure marks which slots in a console have corresponding
+ − 74 default values in console_defaults.
+ − 75 Each such slot has a nonzero value in this structure.
+ − 76 The value has only one nonzero bit.
+ − 77
+ − 78 When a console has its own local value for a slot,
+ − 79 the bit for that slot (found in the same slot in this structure)
+ − 80 is turned on in the console's local_var_flags slot.
+ − 81
+ − 82 If a slot in this structure is 0, then there is a DEFVAR_CONSOLE_LOCAL
+ − 83 for the slot, but there is no default value for it; the corresponding
+ − 84 slot in console_defaults is not used except to initialize newly-created
+ − 85 consoles.
+ − 86
+ − 87 If a slot is -1, then there is a DEFVAR_CONSOLE_LOCAL for it
+ − 88 as well as a default value which is used to initialize newly-created
+ − 89 consoles and as a reset-value when local-vars are killed.
+ − 90
+ − 91 If a slot is -2, there is no DEFVAR_CONSOLE_LOCAL for it.
+ − 92 (The slot is always local, but there's no lisp variable for it.)
+ − 93 The default value is only used to initialize newly-creation consoles.
+ − 94
+ − 95 If a slot is -3, then there is no DEFVAR_CONSOLE_LOCAL for it but
+ − 96 there is a default which is used to initialize newly-creation
+ − 97 consoles and as a reset-value when local-vars are killed.
+ − 98
+ − 99
+ − 100 */
+ − 101 struct console console_local_flags;
+ − 102
+ − 103 /* This structure holds the names of symbols whose values may be
+ − 104 console-local. It is indexed and accessed in the same way as the above. */
+ − 105 static Lisp_Object Vconsole_local_symbols;
+ − 106 static void *console_local_symbols_saved_slots;
+ − 107
+ − 108 DEFINE_CONSOLE_TYPE (dead);
+ − 109
+ − 110 Lisp_Object Vconsole_type_list;
+ − 111
+ − 112 console_type_entry_dynarr *the_console_type_entry_dynarr;
+ − 113
+ − 114
934
+ − 115
1204
+ − 116 static const struct memory_description console_data_description_1 []= {
+ − 117 #ifdef HAVE_TTY
3092
+ − 118 #ifdef NEW_GC
+ − 119 { XD_LISP_OBJECT, tty_console },
+ − 120 #else /* not NEW_GC */
2551
+ − 121 { XD_BLOCK_PTR, tty_console, 1, { &tty_console_data_description} },
3092
+ − 122 #endif /* not NEW_GC */
1204
+ − 123 #endif
3092
+ − 124 #ifdef NEW_GC
+ − 125 { XD_LISP_OBJECT, stream_console },
+ − 126 #else /* not NEW_GC */
2551
+ − 127 { XD_BLOCK_PTR, stream_console, 1, { &stream_console_data_description} },
3092
+ − 128 #endif /* not NEW_GC */
934
+ − 129 { XD_END }
+ − 130 };
+ − 131
1204
+ − 132 static const struct sized_memory_description console_data_description = {
+ − 133 sizeof (void *), console_data_description_1
934
+ − 134 };
+ − 135
1204
+ − 136 static const struct memory_description console_description [] = {
934
+ − 137 { XD_INT, offsetof (struct console, contype) },
1204
+ − 138 #define MARKED_SLOT(x) { XD_LISP_OBJECT, offsetof (struct console, x) },
+ − 139 #include "conslots.h"
2367
+ − 140 { XD_BLOCK_PTR, offsetof (struct console, conmeths), 1,
2551
+ − 141 { &console_methods_description } },
934
+ − 142 { XD_UNION, offsetof (struct console, console_data),
2551
+ − 143 XD_INDIRECT (0, 0), { &console_data_description } },
934
+ − 144 { XD_END }
+ − 145 };
+ − 146
428
+ − 147 static Lisp_Object
+ − 148 mark_console (Lisp_Object obj)
+ − 149 {
+ − 150 struct console *con = XCONSOLE (obj);
+ − 151
1204
+ − 152 #define MARKED_SLOT(x) mark_object (con->x);
428
+ − 153 #include "conslots.h"
+ − 154
+ − 155 /* Can be zero for Vconsole_defaults, Vconsole_local_symbols */
+ − 156 if (con->conmeths)
+ − 157 {
+ − 158 mark_object (con->conmeths->symbol);
+ − 159 MAYBE_CONMETH (con, mark_console, (con));
+ − 160 }
+ − 161
+ − 162 return Qnil;
+ − 163 }
+ − 164
+ − 165 static void
2286
+ − 166 print_console (Lisp_Object obj, Lisp_Object printcharfun,
+ − 167 int UNUSED (escapeflag))
428
+ − 168 {
+ − 169 struct console *con = XCONSOLE (obj);
+ − 170
+ − 171 if (print_readably)
563
+ − 172 printing_unreadable_object ("#<console %s 0x%x>",
+ − 173 XSTRING_DATA (con->name), con->header.uid);
428
+ − 174
800
+ − 175 write_fmt_string (printcharfun, "#<%s-console",
+ − 176 !CONSOLE_LIVE_P (con) ? "dead" : CONSOLE_TYPE_NAME (con));
440
+ − 177 if (CONSOLE_LIVE_P (con) && !NILP (CONSOLE_CONNECTION (con)))
800
+ − 178 write_fmt_string_lisp (printcharfun, " on %S", 1,
+ − 179 CONSOLE_CONNECTION (con));
+ − 180 write_fmt_string (printcharfun, " 0x%x>", con->header.uid);
428
+ − 181 }
+ − 182
934
+ − 183 DEFINE_LRECORD_IMPLEMENTATION ("console", console,
+ − 184 0, /*dumpable-flag*/
+ − 185 mark_console, print_console, 0, 0, 0,
+ − 186 console_description,
+ − 187 struct console);
428
+ − 188
1204
+ − 189
+ − 190 static void
+ − 191 set_quit_events (struct console *con, Lisp_Object key)
+ − 192 {
+ − 193 /* Make sure to run Fcharacter_to_event() *BEFORE* setting QUIT_CHAR,
+ − 194 so that nothing is changed when invalid values trigger an error! */
+ − 195 con->quit_event = Fcharacter_to_event (key, Qnil, wrap_console (con), Qnil);
+ − 196 con->quit_char = key;
+ − 197 con->critical_quit_event = Fcopy_event (con->quit_event, Qnil);
+ − 198 upshift_event (con->critical_quit_event);
+ − 199 }
+ − 200
428
+ − 201 static struct console *
1204
+ − 202 allocate_console (Lisp_Object type)
428
+ − 203 {
+ − 204 Lisp_Object console;
3017
+ − 205 struct console *con = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
428
+ − 206 struct gcpro gcpro1;
+ − 207
3017
+ − 208 COPY_LCRECORD (con, XCONSOLE (Vconsole_defaults));
428
+ − 209
793
+ − 210 console = wrap_console (con);
428
+ − 211 GCPRO1 (console);
+ − 212
1204
+ − 213 con->conmeths = decode_console_type (type, ERROR_ME);
+ − 214 con->contype = get_console_variant (type);
771
+ − 215 con->command_builder = allocate_command_builder (console, 1);
428
+ − 216 con->function_key_map = Fmake_sparse_keymap (Qnil);
1204
+ − 217 set_quit_events (con, make_char (7)); /* C-g */
428
+ − 218
+ − 219 UNGCPRO;
+ − 220 return con;
+ − 221 }
+ − 222
+ − 223 struct console *
+ − 224 decode_console (Lisp_Object console)
+ − 225 {
+ − 226 if (NILP (console))
+ − 227 console = Fselected_console ();
+ − 228 /* quietly accept devices and frames for the console arg */
+ − 229 if (DEVICEP (console) || FRAMEP (console))
+ − 230 console = DEVICE_CONSOLE (decode_device (console));
+ − 231 CHECK_LIVE_CONSOLE (console);
+ − 232 return XCONSOLE (console);
+ − 233 }
+ − 234
+ − 235
+ − 236 struct console_methods *
578
+ − 237 decode_console_type (Lisp_Object type, Error_Behavior errb)
428
+ − 238 {
+ − 239 int i;
+ − 240
+ − 241 for (i = 0; i < Dynarr_length (the_console_type_entry_dynarr); i++)
+ − 242 if (EQ (type, Dynarr_at (the_console_type_entry_dynarr, i).symbol))
+ − 243 return Dynarr_at (the_console_type_entry_dynarr, i).meths;
+ − 244
563
+ − 245 maybe_invalid_constant ("Invalid console type", type, Qconsole, errb);
428
+ − 246
+ − 247 return 0;
+ − 248 }
+ − 249
934
+ − 250 enum console_variant
+ − 251 get_console_variant (Lisp_Object type)
+ − 252 {
+ − 253 if (EQ (type, Qtty))
1204
+ − 254 return tty_console;
934
+ − 255
+ − 256 if (EQ (type, Qgtk))
1204
+ − 257 return gtk_console;
934
+ − 258
+ − 259 if (EQ (type, Qx))
1204
+ − 260 return x_console;
934
+ − 261
+ − 262 if (EQ (type, Qmswindows))
1204
+ − 263 return mswindows_console;
934
+ − 264
1346
+ − 265 if (EQ (type, Qmsprinter))
+ − 266 return msprinter_console;
+ − 267
934
+ − 268 if (EQ (type, Qstream))
1204
+ − 269 return stream_console;
934
+ − 270
2500
+ − 271 ABORT (); /* should never happen */
934
+ − 272 return dead_console;
+ − 273 }
+ − 274
428
+ − 275 int
+ − 276 valid_console_type_p (Lisp_Object type)
+ − 277 {
+ − 278 return decode_console_type (type, ERROR_ME_NOT) != 0;
+ − 279 }
+ − 280
+ − 281 DEFUN ("valid-console-type-p", Fvalid_console_type_p, 1, 1, 0, /*
444
+ − 282 Return t if CONSOLE-TYPE is a valid console type.
3025
+ − 283 Valid types are `x', `tty', `mswindows', `msprinter', `gtk', and `stream'.
428
+ − 284 */
+ − 285 (console_type))
+ − 286 {
+ − 287 return valid_console_type_p (console_type) ? Qt : Qnil;
+ − 288 }
+ − 289
+ − 290 DEFUN ("console-type-list", Fconsole_type_list, 0, 0, 0, /*
+ − 291 Return a list of valid console types.
+ − 292 */
+ − 293 ())
+ − 294 {
+ − 295 return Fcopy_sequence (Vconsole_type_list);
+ − 296 }
+ − 297
+ − 298 DEFUN ("cdfw-console", Fcdfw_console, 1, 1, 0, /*
+ − 299 Given a console, device, frame, or window, return the associated console.
+ − 300 Return nil otherwise.
+ − 301 */
444
+ − 302 (object))
428
+ − 303 {
444
+ − 304 return CDFW_CONSOLE (object);
428
+ − 305 }
+ − 306
872
+ − 307 int
+ − 308 console_live_p (struct console *c)
+ − 309 {
+ − 310 return CONSOLE_LIVE_P (c);
+ − 311 }
+ − 312
+ − 313 Lisp_Object
+ − 314 console_device_list (struct console *c)
+ − 315 {
+ − 316 return CONSOLE_DEVICE_LIST (c);
+ − 317 }
+ − 318
428
+ − 319
+ − 320 DEFUN ("selected-console", Fselected_console, 0, 0, 0, /*
+ − 321 Return the console which is currently active.
+ − 322 */
+ − 323 ())
+ − 324 {
+ − 325 return Vselected_console;
+ − 326 }
+ − 327
+ − 328 /* Called from selected_device_1(), called from selected_frame_1(),
+ − 329 called from Fselect_window() */
+ − 330 void
+ − 331 select_console_1 (Lisp_Object console)
+ − 332 {
+ − 333 /* perhaps this should do something more complicated */
+ − 334 Vselected_console = console;
+ − 335
+ − 336 /* #### Schedule this to be removed in 19.14 */
+ − 337 #ifdef HAVE_X_WINDOWS
+ − 338 if (CONSOLE_X_P (XCONSOLE (console)))
+ − 339 Vwindow_system = Qx;
+ − 340 else
+ − 341 #endif
462
+ − 342 #ifdef HAVE_GTK
+ − 343 if (CONSOLE_GTK_P (XCONSOLE (console)))
+ − 344 Vwindow_system = Qgtk;
+ − 345 else
+ − 346 #endif
428
+ − 347 #ifdef HAVE_MS_WINDOWS
+ − 348 if (CONSOLE_MSWINDOWS_P (XCONSOLE (console)))
+ − 349 Vwindow_system = Qmswindows;
+ − 350 else
+ − 351 #endif
+ − 352 Vwindow_system = Qnil;
+ − 353 }
+ − 354
+ − 355 DEFUN ("select-console", Fselect_console, 1, 1, 0, /*
+ − 356 Select the console CONSOLE.
+ − 357 Subsequent editing commands apply to its selected device, selected frame,
+ − 358 and selected window. The selection of CONSOLE lasts until the next time
+ − 359 the user does something to select a different console, or until the next
+ − 360 time this function is called.
+ − 361 */
+ − 362 (console))
+ − 363 {
+ − 364 Lisp_Object device;
+ − 365
+ − 366 CHECK_LIVE_CONSOLE (console);
+ − 367
+ − 368 device = CONSOLE_SELECTED_DEVICE (XCONSOLE (console));
+ − 369 if (!NILP (device))
+ − 370 {
+ − 371 struct device *d = XDEVICE (device);
+ − 372 Lisp_Object frame = DEVICE_SELECTED_FRAME (d);
+ − 373 if (!NILP (frame))
+ − 374 {
+ − 375 struct frame *f = XFRAME(frame);
+ − 376 Fselect_window (FRAME_SELECTED_WINDOW (f), Qnil);
+ − 377 }
+ − 378 else
563
+ − 379 invalid_operation ("Can't select console with no frames", Qunbound);
428
+ − 380 }
+ − 381 else
563
+ − 382 invalid_operation ("Can't select a console with no devices", Qunbound);
428
+ − 383 return Qnil;
+ − 384 }
+ − 385
+ − 386 void
+ − 387 set_console_last_nonminibuf_frame (struct console *con,
+ − 388 Lisp_Object frame)
+ − 389 {
+ − 390 con->last_nonminibuf_frame = frame;
+ − 391 }
+ − 392
+ − 393 DEFUN ("consolep", Fconsolep, 1, 1, 0, /*
+ − 394 Return non-nil if OBJECT is a console.
+ − 395 */
+ − 396 (object))
+ − 397 {
+ − 398 return CONSOLEP (object) ? Qt : Qnil;
+ − 399 }
+ − 400
+ − 401 DEFUN ("console-live-p", Fconsole_live_p, 1, 1, 0, /*
+ − 402 Return non-nil if OBJECT is a console that has not been deleted.
+ − 403 */
+ − 404 (object))
+ − 405 {
+ − 406 return CONSOLEP (object) && CONSOLE_LIVE_P (XCONSOLE (object)) ? Qt : Qnil;
+ − 407 }
+ − 408
+ − 409 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /*
444
+ − 410 Return the console type (e.g. `x' or `tty') of CONSOLE.
1346
+ − 411 Value is
+ − 412 `tty' for a tty console (a character-only terminal),
428
+ − 413 `x' for a console that is an X display,
1346
+ − 414 `mswindows' for a console that is an MS Windows connection,
+ − 415 `msprinter' for a console that is an MS Windows printer connection,
+ − 416 `gtk' for a console that is a GTK connection,
428
+ − 417 `stream' for a stream console (which acts like a stdio stream), and
+ − 418 `dead' for a deleted console.
+ − 419 */
+ − 420 (console))
+ − 421 {
+ − 422 /* don't call decode_console() because we want to allow for dead
+ − 423 consoles. */
+ − 424 if (NILP (console))
+ − 425 console = Fselected_console ();
+ − 426 CHECK_CONSOLE (console);
+ − 427 return CONSOLE_TYPE (XCONSOLE (console));
+ − 428 }
+ − 429
+ − 430 DEFUN ("console-name", Fconsole_name, 0, 1, 0, /*
444
+ − 431 Return the name of CONSOLE.
428
+ − 432 */
+ − 433 (console))
+ − 434 {
+ − 435 return CONSOLE_NAME (decode_console (console));
+ − 436 }
+ − 437
+ − 438 DEFUN ("console-connection", Fconsole_connection, 0, 1, 0, /*
+ − 439 Return the connection of the specified console.
+ − 440 CONSOLE defaults to the selected console if omitted.
+ − 441 */
+ − 442 (console))
+ − 443 {
+ − 444 return CONSOLE_CONNECTION (decode_console (console));
+ − 445 }
+ − 446
+ − 447 static Lisp_Object
+ − 448 semi_canonicalize_console_connection (struct console_methods *meths,
578
+ − 449 Lisp_Object name, Error_Behavior errb)
428
+ − 450 {
440
+ − 451 if (HAS_CONTYPE_METH_P (meths, semi_canonicalize_console_connection))
+ − 452 return CONTYPE_METH (meths, semi_canonicalize_console_connection,
+ − 453 (name, errb));
+ − 454 else
+ − 455 return CONTYPE_METH_OR_GIVEN (meths, canonicalize_console_connection,
+ − 456 (name, errb), name);
428
+ − 457 }
+ − 458
+ − 459 static Lisp_Object
+ − 460 canonicalize_console_connection (struct console_methods *meths,
578
+ − 461 Lisp_Object name, Error_Behavior errb)
428
+ − 462 {
440
+ − 463 if (HAS_CONTYPE_METH_P (meths, canonicalize_console_connection))
+ − 464 return CONTYPE_METH (meths, canonicalize_console_connection,
+ − 465 (name, errb));
+ − 466 else
+ − 467 return CONTYPE_METH_OR_GIVEN (meths, semi_canonicalize_console_connection,
+ − 468 (name, errb), name);
428
+ − 469 }
+ − 470
+ − 471 static Lisp_Object
+ − 472 find_console_of_type (struct console_methods *meths, Lisp_Object canon)
+ − 473 {
+ − 474 Lisp_Object concons;
+ − 475
+ − 476 CONSOLE_LOOP (concons)
+ − 477 {
+ − 478 Lisp_Object console = XCAR (concons);
+ − 479
+ − 480 if (EQ (CONMETH_TYPE (meths), CONSOLE_TYPE (XCONSOLE (console)))
+ − 481 && internal_equal (CONSOLE_CANON_CONNECTION (XCONSOLE (console)),
+ − 482 canon, 0))
+ − 483 return console;
+ − 484 }
+ − 485
+ − 486 return Qnil;
+ − 487 }
+ − 488
+ − 489 DEFUN ("find-console", Ffind_console, 1, 2, 0, /*
+ − 490 Look for an existing console attached to connection CONNECTION.
+ − 491 Return the console if found; otherwise, return nil.
+ − 492
+ − 493 If TYPE is specified, only return consoles of that type; otherwise,
+ − 494 return consoles of any type. (It is possible, although unlikely,
+ − 495 that two consoles of different types could have the same connection
+ − 496 name; in such a case, the first console found is returned.)
+ − 497 */
+ − 498 (connection, type))
+ − 499 {
+ − 500 Lisp_Object canon = Qnil;
+ − 501 struct gcpro gcpro1;
+ − 502
+ − 503 GCPRO1 (canon);
+ − 504
+ − 505 if (!NILP (type))
+ − 506 {
+ − 507 struct console_methods *conmeths = decode_console_type (type, ERROR_ME);
+ − 508 canon = canonicalize_console_connection (conmeths, connection,
+ − 509 ERROR_ME_NOT);
+ − 510 if (UNBOUNDP (canon))
+ − 511 RETURN_UNGCPRO (Qnil);
+ − 512
+ − 513 RETURN_UNGCPRO (find_console_of_type (conmeths, canon));
+ − 514 }
+ − 515 else
+ − 516 {
+ − 517 int i;
+ − 518
+ − 519 for (i = 0; i < Dynarr_length (the_console_type_entry_dynarr); i++)
+ − 520 {
+ − 521 struct console_methods *conmeths =
+ − 522 Dynarr_at (the_console_type_entry_dynarr, i).meths;
+ − 523 canon = canonicalize_console_connection (conmeths, connection,
+ − 524 ERROR_ME_NOT);
+ − 525 if (!UNBOUNDP (canon))
+ − 526 {
+ − 527 Lisp_Object console = find_console_of_type (conmeths, canon);
+ − 528 if (!NILP (console))
+ − 529 RETURN_UNGCPRO (console);
+ − 530 }
+ − 531 }
+ − 532
+ − 533 RETURN_UNGCPRO (Qnil);
+ − 534 }
+ − 535 }
+ − 536
+ − 537 DEFUN ("get-console", Fget_console, 1, 2, 0, /*
+ − 538 Look for an existing console attached to connection CONNECTION.
+ − 539 Return the console if found; otherwise, signal an error.
+ − 540
+ − 541 If TYPE is specified, only return consoles of that type; otherwise,
+ − 542 return consoles of any type. (It is possible, although unlikely,
+ − 543 that two consoles of different types could have the same connection
+ − 544 name; in such a case, the first console found is returned.)
+ − 545 */
+ − 546 (connection, type))
+ − 547 {
+ − 548 Lisp_Object console = Ffind_console (connection, type);
+ − 549 if (NILP (console))
+ − 550 {
+ − 551 if (NILP (type))
563
+ − 552 invalid_argument ("No such console", connection);
428
+ − 553 else
563
+ − 554 invalid_argument_2 ("No such console", type, connection);
428
+ − 555 }
+ − 556 return console;
+ − 557 }
+ − 558
+ − 559 Lisp_Object
+ − 560 create_console (Lisp_Object name, Lisp_Object type, Lisp_Object connection,
+ − 561 Lisp_Object props)
+ − 562 {
+ − 563 /* This function can GC */
+ − 564 struct console *con;
+ − 565 Lisp_Object console;
+ − 566 struct gcpro gcpro1;
+ − 567
+ − 568 console = Ffind_console (connection, type);
+ − 569 if (!NILP (console))
+ − 570 return console;
+ − 571
1204
+ − 572 con = allocate_console (type);
793
+ − 573 console = wrap_console (con);
428
+ − 574
+ − 575 GCPRO1 (console);
+ − 576
+ − 577 CONSOLE_NAME (con) = name;
+ − 578 CONSOLE_CONNECTION (con) =
+ − 579 semi_canonicalize_console_connection (con->conmeths, connection,
+ − 580 ERROR_ME);
+ − 581 CONSOLE_CANON_CONNECTION (con) =
+ − 582 canonicalize_console_connection (con->conmeths, connection,
+ − 583 ERROR_ME);
+ − 584
+ − 585 MAYBE_CONMETH (con, init_console, (con, props));
+ − 586
+ − 587 /* Do it this way so that the console list is in order of creation */
+ − 588 Vconsole_list = nconc2 (Vconsole_list, Fcons (console, Qnil));
853
+ − 589 note_object_created (console);
428
+ − 590
440
+ − 591 if (CONMETH_OR_GIVEN (con, initially_selected_for_input, (con), 0))
428
+ − 592 event_stream_select_console (con);
+ − 593
+ − 594 UNGCPRO;
+ − 595 return console;
+ − 596 }
+ − 597
+ − 598 void
+ − 599 add_entry_to_console_type_list (Lisp_Object symbol,
+ − 600 struct console_methods *meths)
+ − 601 {
+ − 602 struct console_type_entry entry;
+ − 603
+ − 604 entry.symbol = symbol;
+ − 605 entry.meths = meths;
+ − 606 Dynarr_add (the_console_type_entry_dynarr, entry);
+ − 607 Vconsole_type_list = Fcons (symbol, Vconsole_type_list);
+ − 608 }
+ − 609
+ − 610 /* find a console other than the selected one. Prefer non-stream
+ − 611 consoles over stream consoles. */
+ − 612
+ − 613 static Lisp_Object
+ − 614 find_other_console (Lisp_Object console)
+ − 615 {
+ − 616 Lisp_Object concons;
+ − 617
+ − 618 /* look for a non-stream console */
+ − 619 CONSOLE_LOOP (concons)
+ − 620 {
+ − 621 Lisp_Object con = XCAR (concons);
+ − 622 if (!CONSOLE_STREAM_P (XCONSOLE (con))
+ − 623 && !EQ (con, console)
+ − 624 && !NILP (CONSOLE_SELECTED_DEVICE (XCONSOLE (con)))
+ − 625 && !NILP (DEVICE_SELECTED_FRAME
+ − 626 (XDEVICE (CONSOLE_SELECTED_DEVICE (XCONSOLE (con))))))
+ − 627 break;
+ − 628 }
+ − 629 if (!NILP (concons))
+ − 630 return XCAR (concons);
+ − 631
+ − 632 /* OK, now look for a stream console */
+ − 633 CONSOLE_LOOP (concons)
+ − 634 {
+ − 635 Lisp_Object con = XCAR (concons);
+ − 636 if (!EQ (con, console)
+ − 637 && !NILP (CONSOLE_SELECTED_DEVICE (XCONSOLE (con)))
+ − 638 && !NILP (DEVICE_SELECTED_FRAME
+ − 639 (XDEVICE (CONSOLE_SELECTED_DEVICE (XCONSOLE (con))))))
+ − 640 break;
+ − 641 }
+ − 642 if (!NILP (concons))
+ − 643 return XCAR (concons);
+ − 644
+ − 645 /* Sorry, there ain't none */
+ − 646 return Qnil;
+ − 647 }
+ − 648
+ − 649 static int
+ − 650 find_nonminibuffer_frame_not_on_console_predicate (Lisp_Object frame,
+ − 651 void *closure)
+ − 652 {
+ − 653 Lisp_Object console;
+ − 654
826
+ − 655 console = VOID_TO_LISP (closure);
428
+ − 656 if (FRAME_MINIBUF_ONLY_P (XFRAME (frame)))
+ − 657 return 0;
+ − 658 if (EQ (console, FRAME_CONSOLE (XFRAME (frame))))
+ − 659 return 0;
+ − 660 return 1;
+ − 661 }
+ − 662
+ − 663 static Lisp_Object
+ − 664 find_nonminibuffer_frame_not_on_console (Lisp_Object console)
+ − 665 {
+ − 666 return find_some_frame (find_nonminibuffer_frame_not_on_console_predicate,
+ − 667 LISP_TO_VOID (console));
+ − 668 }
+ − 669
617
+ − 670 static void
+ − 671 nuke_all_console_slots (struct console *con, Lisp_Object zap)
+ − 672 {
3017
+ − 673 ZERO_LCRECORD (con);
617
+ − 674
1204
+ − 675 #define MARKED_SLOT(x) con->x = zap;
617
+ − 676 #include "conslots.h"
+ − 677 }
+ − 678
428
+ − 679 /* Delete console CON.
+ − 680
+ − 681 If FORCE is non-zero, allow deletion of the only frame.
+ − 682
+ − 683 If CALLED_FROM_KILL_EMACS is non-zero, then, if
+ − 684 deleting the last console, just delete it,
+ − 685 instead of calling `save-buffers-kill-emacs'.
+ − 686
+ − 687 If FROM_IO_ERROR is non-zero, then the console is gone due
+ − 688 to an I/O error. This affects what happens if we exit
+ − 689 (we do an emergency exit instead of `save-buffers-kill-emacs'.)
+ − 690 */
+ − 691
+ − 692 void
+ − 693 delete_console_internal (struct console *con, int force,
+ − 694 int called_from_kill_emacs, int from_io_error)
+ − 695 {
+ − 696 /* This function can GC */
+ − 697 Lisp_Object console;
+ − 698 struct gcpro gcpro1;
+ − 699
+ − 700 /* OK to delete an already-deleted console. */
+ − 701 if (!CONSOLE_LIVE_P (con))
+ − 702 return;
+ − 703
793
+ − 704 console = wrap_console (con);
853
+ − 705
+ − 706 if (!force)
+ − 707 check_allowed_operation (OPERATION_DELETE_OBJECT, console, Qnil);
+ − 708
428
+ − 709 GCPRO1 (console);
+ − 710
+ − 711 if (!called_from_kill_emacs)
+ − 712 {
+ − 713 int down_we_go = 0;
+ − 714
+ − 715 if ((XINT (Flength (Vconsole_list)) == 1)
+ − 716 /* if we just created the console, it might not be listed,
+ − 717 or something ... */
+ − 718 && !NILP (memq_no_quit (console, Vconsole_list)))
+ − 719 down_we_go = 1;
+ − 720 /* If there aren't any nonminibuffer frames that would
+ − 721 be left, then exit. */
+ − 722 else if (NILP (find_nonminibuffer_frame_not_on_console (console)))
+ − 723 down_we_go = 1;
+ − 724
+ − 725 if (down_we_go)
+ − 726 {
+ − 727 if (!force)
563
+ − 728 invalid_operation ("Attempt to delete the only frame", Qunbound);
428
+ − 729 else if (from_io_error)
+ − 730 {
+ − 731 /* Mayday mayday! We're going down! */
+ − 732 stderr_out (" Autosaving and exiting...\n");
+ − 733 Vwindow_system = Qnil; /* let it lie! */
+ − 734 preparing_for_armageddon = 1;
+ − 735 Fkill_emacs (make_int (70));
+ − 736 }
+ − 737 else
+ − 738 {
+ − 739 call0 (Qsave_buffers_kill_emacs);
+ − 740 UNGCPRO;
+ − 741 /* If we get here, the user said they didn't want
+ − 742 to exit, so don't. */
+ − 743 return;
+ − 744 }
+ − 745 }
+ − 746 }
+ − 747
+ − 748 /* Breathe a sigh of relief. We're still alive. */
+ − 749
+ − 750 {
+ − 751 Lisp_Object frmcons, devcons;
+ − 752
+ − 753 /* First delete all frames without their own minibuffers,
+ − 754 to avoid errors coming from attempting to delete a frame
+ − 755 that is a surrogate for another frame.
+ − 756
+ − 757 We don't set "called_from_delete_console" because we want the
+ − 758 device to go ahead and get deleted if we delete the last frame
+ − 759 on a device. We won't run into trouble here because for any
+ − 760 frame without a minibuffer, there has to be another one on
+ − 761 the same console with a minibuffer, and we're not deleting that,
+ − 762 so delete_console_internal() won't get recursively called.
+ − 763
+ − 764 WRONG! With surrogate minibuffers this isn't true. Frames
+ − 765 with only a minibuffer are not enough to prevent
+ − 766 delete_frame_internal from triggering a device deletion. */
+ − 767 CONSOLE_FRAME_LOOP_NO_BREAK (frmcons, devcons, con)
+ − 768 {
+ − 769 struct frame *f = XFRAME (XCAR (frmcons));
+ − 770 /* delete_frame_internal() might do anything such as run hooks,
+ − 771 so be defensive. */
+ − 772 if (FRAME_LIVE_P (f) && !FRAME_HAS_MINIBUF_P (f))
+ − 773 delete_frame_internal (f, 1, 1, from_io_error);
+ − 774
+ − 775 if (!CONSOLE_LIVE_P (con)) /* make sure the delete-*-hook didn't
+ − 776 go ahead and delete anything */
+ − 777 {
+ − 778 UNGCPRO;
+ − 779 return;
+ − 780 }
+ − 781 }
+ − 782
+ − 783 CONSOLE_DEVICE_LOOP (devcons, con)
+ − 784 {
+ − 785 struct device *d = XDEVICE (XCAR (devcons));
+ − 786 /* delete_device_internal() might do anything such as run hooks,
+ − 787 so be defensive. */
+ − 788 if (DEVICE_LIVE_P (d))
+ − 789 delete_device_internal (d, 1, 1, from_io_error);
+ − 790 if (!CONSOLE_LIVE_P (con)) /* make sure the delete-*-hook didn't
+ − 791 go ahead and delete anything */
+ − 792 {
+ − 793 UNGCPRO;
+ − 794 return;
+ − 795 }
+ − 796 }
+ − 797 }
+ − 798
+ − 799 CONSOLE_SELECTED_DEVICE (con) = Qnil;
+ − 800
+ − 801 /* try to select another console */
+ − 802
+ − 803 if (EQ (console, Fselected_console ()))
+ − 804 {
+ − 805 Lisp_Object other_dev = find_other_console (console);
+ − 806 if (!NILP (other_dev))
+ − 807 Fselect_console (other_dev);
+ − 808 else
+ − 809 {
+ − 810 /* necessary? */
+ − 811 Vselected_console = Qnil;
+ − 812 Vwindow_system = Qnil;
+ − 813 }
+ − 814 }
+ − 815
+ − 816 if (con->input_enabled)
+ − 817 event_stream_unselect_console (con);
+ − 818
+ − 819 MAYBE_CONMETH (con, delete_console, (con));
+ − 820
+ − 821 Vconsole_list = delq_no_quit (console, Vconsole_list);
617
+ − 822
428
+ − 823 RESET_CHANGED_SET_FLAGS;
617
+ − 824
+ − 825 /* Nobody should be accessing anything in this object any more, and
+ − 826 making all Lisp_Objects Qnil allows for better GC'ing in case a
+ − 827 pointer to the dead console continues to hang around. Zero all
+ − 828 other structs in case someone tries to access something through
+ − 829 them. */
+ − 830 nuke_all_console_slots (con, Qnil);
428
+ − 831 con->conmeths = dead_console_methods;
1204
+ − 832 con->contype = dead_console;
853
+ − 833 note_object_deleted (console);
428
+ − 834
+ − 835 UNGCPRO;
+ − 836 }
+ − 837
+ − 838 void
+ − 839 io_error_delete_console (Lisp_Object console)
+ − 840 {
+ − 841 delete_console_internal (XCONSOLE (console), 1, 0, 1);
+ − 842 }
+ − 843
+ − 844 DEFUN ("delete-console", Fdelete_console, 1, 2, 0, /*
+ − 845 Delete CONSOLE, permanently eliminating it from use.
+ − 846 Normally, you cannot delete the last non-minibuffer-only frame (you must
+ − 847 use `save-buffers-kill-emacs' or `kill-emacs'). However, if optional
+ − 848 second argument FORCE is non-nil, you can delete the last frame. (This
+ − 849 will automatically call `save-buffers-kill-emacs'.)
+ − 850 */
+ − 851 (console, force))
+ − 852 {
+ − 853 CHECK_CONSOLE (console);
+ − 854 delete_console_internal (XCONSOLE (console), !NILP (force), 0, 0);
+ − 855 return Qnil;
+ − 856 }
+ − 857
+ − 858 DEFUN ("console-list", Fconsole_list, 0, 0, 0, /*
+ − 859 Return a list of all consoles.
+ − 860 */
+ − 861 ())
+ − 862 {
+ − 863 return Fcopy_sequence (Vconsole_list);
+ − 864 }
+ − 865
+ − 866 DEFUN ("console-device-list", Fconsole_device_list, 0, 1, 0, /*
+ − 867 Return a list of all devices on CONSOLE.
444
+ − 868 If CONSOLE is nil, the selected console is used.
428
+ − 869 */
+ − 870 (console))
+ − 871 {
+ − 872 return Fcopy_sequence (CONSOLE_DEVICE_LIST (decode_console (console)));
+ − 873 }
+ − 874
+ − 875 DEFUN ("console-enable-input", Fconsole_enable_input, 1, 1, 0, /*
+ − 876 Enable input on console CONSOLE.
+ − 877 */
+ − 878 (console))
+ − 879 {
+ − 880 struct console *con = decode_console (console);
+ − 881 if (!con->input_enabled)
+ − 882 event_stream_select_console (con);
+ − 883 return Qnil;
+ − 884 }
+ − 885
+ − 886 DEFUN ("console-disable-input", Fconsole_disable_input, 1, 1, 0, /*
+ − 887 Disable input on console CONSOLE.
+ − 888 */
+ − 889 (console))
+ − 890 {
+ − 891 struct console *con = decode_console (console);
+ − 892 if (con->input_enabled)
+ − 893 event_stream_unselect_console (con);
+ − 894 return Qnil;
+ − 895 }
+ − 896
+ − 897 DEFUN ("console-on-window-system-p", Fconsole_on_window_system_p, 0, 1, 0, /*
444
+ − 898 Return t if CONSOLE is on a window system.
+ − 899 If CONSOLE is nil, the selected console is used.
428
+ − 900 This generally means that there is support for the mouse, the menubar,
+ − 901 the toolbar, glyphs, etc.
+ − 902 */
+ − 903 (console))
+ − 904 {
+ − 905 Lisp_Object type = CONSOLE_TYPE (decode_console (console));
+ − 906
+ − 907 return !EQ (type, Qtty) && !EQ (type, Qstream) ? Qt : Qnil;
+ − 908 }
+ − 909
+ − 910
+ − 911
+ − 912 /**********************************************************************/
+ − 913 /* Miscellaneous low-level functions */
+ − 914 /**********************************************************************/
+ − 915
+ − 916 static Lisp_Object
+ − 917 unwind_init_sys_modes (Lisp_Object console)
+ − 918 {
+ − 919 reinit_initial_console ();
+ − 920
+ − 921 if (!no_redraw_on_reenter &&
+ − 922 CONSOLEP (console) &&
+ − 923 CONSOLE_LIVE_P (XCONSOLE (console)))
+ − 924 {
+ − 925 struct frame *f =
+ − 926 XFRAME (DEVICE_SELECTED_FRAME
+ − 927 (XDEVICE (CONSOLE_SELECTED_DEVICE (XCONSOLE (console)))));
+ − 928 MARK_FRAME_CHANGED (f);
+ − 929 }
+ − 930 return Qnil;
+ − 931 }
+ − 932
+ − 933 DEFUN ("suspend-emacs", Fsuspend_emacs, 0, 1, "", /*
+ − 934 Stop Emacs and return to superior process. You can resume later.
+ − 935 On systems that don't have job control, run a subshell instead.
+ − 936
+ − 937 If optional arg STUFFSTRING is non-nil, its characters are stuffed
+ − 938 to be read as terminal input by Emacs's superior shell.
+ − 939
+ − 940 Before suspending, run the normal hook `suspend-hook'.
+ − 941 After resumption run the normal hook `suspend-resume-hook'.
+ − 942
+ − 943 Some operating systems cannot stop the Emacs process and resume it later.
+ − 944 On such systems, Emacs will start a subshell and wait for it to exit.
+ − 945 */
+ − 946 (stuffstring))
+ − 947 {
+ − 948 int speccount = specpdl_depth ();
+ − 949 struct gcpro gcpro1;
+ − 950
+ − 951 if (!NILP (stuffstring))
+ − 952 CHECK_STRING (stuffstring);
+ − 953 GCPRO1 (stuffstring);
+ − 954
+ − 955 /* There used to be a check that the initial console is TTY.
+ − 956 This is bogus. Even checking to see whether any console
+ − 957 is a controlling terminal is not correct -- maybe
+ − 958 the user used the -t option or something. If we want to
+ − 959 suspend, then we suspend. Period. */
+ − 960
+ − 961 /* Call value of suspend-hook. */
+ − 962 run_hook (Qsuspend_hook);
+ − 963
+ − 964 reset_initial_console ();
+ − 965 /* sys_suspend can get an error if it tries to fork a subshell
+ − 966 and the system resources aren't available for that. */
+ − 967 record_unwind_protect (unwind_init_sys_modes, Vcontrolling_terminal);
+ − 968 stuff_buffered_input (stuffstring);
+ − 969 sys_suspend ();
+ − 970 /* the console is un-reset inside of the unwind-protect. */
771
+ − 971 unbind_to (speccount);
428
+ − 972
+ − 973 #ifdef SIGWINCH
+ − 974 /* It is possible that a size change occurred while we were
+ − 975 suspended. Assume one did just to be safe. It won't hurt
+ − 976 anything if one didn't. */
+ − 977 asynch_device_change_pending++;
+ − 978 #endif
+ − 979
+ − 980 /* Call value of suspend-resume-hook
+ − 981 if it is bound and value is non-nil. */
+ − 982 run_hook (Qsuspend_resume_hook);
+ − 983
+ − 984 UNGCPRO;
+ − 985 return Qnil;
+ − 986 }
+ − 987
+ − 988 /* If STUFFSTRING is a string, stuff its contents as pending terminal input.
+ − 989 Then in any case stuff anything Emacs has read ahead and not used. */
+ − 990
+ − 991 void
2286
+ − 992 stuff_buffered_input (
3146
+ − 993 #if defined(BSD) && defined(HAVE_TTY)
2286
+ − 994 Lisp_Object stuffstring
+ − 995 #else
+ − 996 Lisp_Object UNUSED (stuffstring)
+ − 997 #endif
+ − 998 )
428
+ − 999 {
+ − 1000 /* stuff_char works only in BSD, versions 4.2 and up. */
3146
+ − 1001 #if defined(BSD) && defined(HAVE_TTY)
428
+ − 1002 if (!CONSOLEP (Vcontrolling_terminal) ||
+ − 1003 !CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
+ − 1004 return;
+ − 1005
+ − 1006 if (STRINGP (stuffstring))
+ − 1007 {
665
+ − 1008 Bytecount count;
428
+ − 1009 Extbyte *p;
+ − 1010
440
+ − 1011 TO_EXTERNAL_FORMAT (LISP_STRING, stuffstring,
+ − 1012 ALLOCA, (p, count),
+ − 1013 Qkeyboard);
428
+ − 1014 while (count-- > 0)
+ − 1015 stuff_char (XCONSOLE (Vcontrolling_terminal), *p++);
+ − 1016 stuff_char (XCONSOLE (Vcontrolling_terminal), '\n');
+ − 1017 }
+ − 1018 /* Anything we have read ahead, put back for the shell to read. */
+ − 1019 # if 0 /* oh, who cares about this silliness */
+ − 1020 while (kbd_fetch_ptr != kbd_store_ptr)
+ − 1021 {
+ − 1022 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE)
+ − 1023 kbd_fetch_ptr = kbd_buffer;
+ − 1024 stuff_char (XCONSOLE (Vcontrolling_terminal), *kbd_fetch_ptr++);
+ − 1025 }
+ − 1026 # endif
3146
+ − 1027 #endif /* BSD && HAVE_TTY */
428
+ − 1028 }
+ − 1029
+ − 1030 DEFUN ("suspend-console", Fsuspend_console, 0, 1, "", /*
+ − 1031 Suspend a console. For tty consoles, it sends a signal to suspend
+ − 1032 the process in charge of the tty, and removes the devices and
+ − 1033 frames of that console from the display.
+ − 1034
+ − 1035 If optional arg CONSOLE is non-nil, it is the console to be suspended.
+ − 1036 Otherwise it is assumed to be the selected console.
+ − 1037
+ − 1038 Some operating systems cannot stop processes and resume them later.
+ − 1039 On such systems, who knows what will happen.
+ − 1040 */
2340
+ − 1041 (USED_IF_TTY (console)))
428
+ − 1042 {
+ − 1043 #ifdef HAVE_TTY
+ − 1044 struct console *con = decode_console (console);
+ − 1045
+ − 1046 if (CONSOLE_TTY_P (con))
+ − 1047 {
+ − 1048 /*
+ − 1049 * hide all the unhidden frames so the display code won't update
+ − 1050 * them while the console is suspended.
+ − 1051 */
+ − 1052 Lisp_Object device = CONSOLE_SELECTED_DEVICE (con);
+ − 1053 if (!NILP (device))
+ − 1054 {
+ − 1055 struct device *d = XDEVICE (device);
+ − 1056 Lisp_Object frame_list = DEVICE_FRAME_LIST (d);
+ − 1057 while (CONSP (frame_list))
+ − 1058 {
+ − 1059 struct frame *f = XFRAME (XCAR (frame_list));
+ − 1060 if (FRAME_REPAINT_P (f))
+ − 1061 f->visible = -1;
+ − 1062 frame_list = XCDR (frame_list);
+ − 1063 }
+ − 1064 }
+ − 1065 reset_one_console (con);
+ − 1066 event_stream_unselect_console (con);
+ − 1067 sys_suspend_process (XINT (Fconsole_tty_controlling_process (console)));
+ − 1068 }
+ − 1069 #endif /* HAVE_TTY */
+ − 1070
+ − 1071 return Qnil;
+ − 1072 }
+ − 1073
+ − 1074 DEFUN ("resume-console", Fresume_console, 1, 1, "", /*
+ − 1075 Re-initialize a previously suspended console.
+ − 1076 For tty consoles, do stuff to the tty to make it sane again.
+ − 1077 */
2340
+ − 1078 (USED_IF_TTY (console)))
428
+ − 1079 {
+ − 1080 #ifdef HAVE_TTY
+ − 1081 struct console *con = decode_console (console);
+ − 1082
+ − 1083 if (CONSOLE_TTY_P (con))
+ − 1084 {
+ − 1085 /* raise the selected frame */
+ − 1086 Lisp_Object device = CONSOLE_SELECTED_DEVICE (con);
+ − 1087 if (!NILP (device))
+ − 1088 {
+ − 1089 struct device *d = XDEVICE (device);
+ − 1090 Lisp_Object frame = DEVICE_SELECTED_FRAME (d);
+ − 1091 if (!NILP (frame))
+ − 1092 {
+ − 1093 /* force the frame to be cleared */
+ − 1094 SET_FRAME_CLEAR (XFRAME (frame));
+ − 1095 Fraise_frame (frame);
+ − 1096 }
+ − 1097 }
+ − 1098 init_one_console (con);
+ − 1099 event_stream_select_console (con);
+ − 1100 #ifdef SIGWINCH
+ − 1101 /* The same as in Fsuspend_emacs: it is possible that a size
+ − 1102 change occurred while we were suspended. Assume one did just
+ − 1103 to be safe. It won't hurt anything if one didn't. */
+ − 1104 asynch_device_change_pending++;
+ − 1105 #endif
+ − 1106 }
+ − 1107 #endif /* HAVE_TTY */
+ − 1108
+ − 1109 return Qnil;
+ − 1110 }
+ − 1111
+ − 1112 DEFUN ("set-input-mode", Fset_input_mode, 3, 5, 0, /*
+ − 1113 Set mode of reading keyboard input.
1204
+ − 1114 First arg (formerly INTERRUPT-INPUT) is ignored, for backward compatibility.
428
+ − 1115 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal
+ − 1116 (no effect except in CBREAK mode).
+ − 1117 Third arg META t means accept 8-bit input (for a Meta key).
+ − 1118 META nil means ignore the top bit, on the assumption it is parity.
+ − 1119 Otherwise, accept 8-bit input and don't use the top bit for Meta.
+ − 1120 First three arguments only apply to TTY consoles.
+ − 1121 Optional fourth arg QUIT if non-nil specifies character to use for quitting.
+ − 1122 Optional fifth arg CONSOLE specifies console to make changes to; nil means
+ − 1123 the selected console.
+ − 1124 See also `current-input-mode'.
+ − 1125 */
2340
+ − 1126 (UNUSED (ignored), USED_IF_TTY (flow), meta, quit, console))
428
+ − 1127 {
+ − 1128 struct console *con = decode_console (console);
+ − 1129 int meta_key = (!CONSOLE_TTY_P (con) ? 1 :
+ − 1130 EQ (meta, Qnil) ? 0 :
+ − 1131 EQ (meta, Qt) ? 1 :
+ − 1132 2);
+ − 1133
+ − 1134 if (!NILP (quit))
+ − 1135 {
1204
+ − 1136 if (CHAR_OR_CHAR_INTP (quit) && !meta_key)
+ − 1137 set_quit_events (con, make_char (XCHAR_OR_CHAR_INT (quit) & 0177));
+ − 1138 else
+ − 1139 set_quit_events (con, quit);
428
+ − 1140 }
+ − 1141
+ − 1142 #ifdef HAVE_TTY
+ − 1143 if (CONSOLE_TTY_P (con))
+ − 1144 {
+ − 1145 reset_one_console (con);
+ − 1146 TTY_FLAGS (con).flow_control = !NILP (flow);
+ − 1147 TTY_FLAGS (con).meta_key = meta_key;
+ − 1148 init_one_console (con);
444
+ − 1149 MARK_FRAME_CHANGED (XFRAME (CONSOLE_SELECTED_FRAME (con)));
428
+ − 1150 }
+ − 1151 #endif
+ − 1152
+ − 1153 return Qnil;
+ − 1154 }
+ − 1155
+ − 1156 DEFUN ("current-input-mode", Fcurrent_input_mode, 0, 1, 0, /*
+ − 1157 Return information about the way Emacs currently reads keyboard input.
+ − 1158 Optional arg CONSOLE specifies console to return information about; nil means
+ − 1159 the selected console.
+ − 1160 The value is a list of the form (nil FLOW META QUIT), where
+ − 1161 FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the
+ − 1162 terminal; this does not apply if Emacs uses interrupt-driven input.
+ − 1163 META is t if accepting 8-bit input with 8th bit as Meta flag.
+ − 1164 META nil means ignoring the top bit, on the assumption it is parity.
+ − 1165 META is neither t nor nil if accepting 8-bit input and using
+ − 1166 all 8 bits as the character code.
+ − 1167 QUIT is the character Emacs currently uses to quit.
+ − 1168 FLOW, and META are only meaningful for TTY consoles.
+ − 1169 The elements of this list correspond to the arguments of
+ − 1170 `set-input-mode'.
+ − 1171 */
+ − 1172 (console))
+ − 1173 {
+ − 1174 struct console *con = decode_console (console);
1204
+ − 1175 Lisp_Object flow, meta;
428
+ − 1176
+ − 1177 #ifdef HAVE_TTY
+ − 1178 flow = CONSOLE_TTY_P (con) && TTY_FLAGS (con).flow_control ? Qt : Qnil;
+ − 1179 meta = (!CONSOLE_TTY_P (con) ? Qt :
+ − 1180 TTY_FLAGS (con).meta_key == 1 ? Qt :
+ − 1181 TTY_FLAGS (con).meta_key == 2 ? Qzero :
+ − 1182 Qnil);
+ − 1183 #else
+ − 1184 flow = Qnil;
+ − 1185 meta = Qt;
+ − 1186 #endif
+ − 1187
1204
+ − 1188 return list4 (Qnil, flow, meta, CONSOLE_QUIT_CHAR (con));
428
+ − 1189 }
+ − 1190
+ − 1191
+ − 1192 /************************************************************************/
+ − 1193 /* initialization */
+ − 1194 /************************************************************************/
+ − 1195
+ − 1196 void
+ − 1197 syms_of_console (void)
+ − 1198 {
442
+ − 1199 INIT_LRECORD_IMPLEMENTATION (console);
3092
+ − 1200 #ifdef NEW_GC
+ − 1201 #ifdef HAVE_TTY
+ − 1202 INIT_LRECORD_IMPLEMENTATION (tty_console);
+ − 1203 #endif
+ − 1204 INIT_LRECORD_IMPLEMENTATION (stream_console);
3263
+ − 1205 #endif /* NEW_GC */
442
+ − 1206
428
+ − 1207 DEFSUBR (Fvalid_console_type_p);
+ − 1208 DEFSUBR (Fconsole_type_list);
+ − 1209 DEFSUBR (Fcdfw_console);
+ − 1210 DEFSUBR (Fselected_console);
+ − 1211 DEFSUBR (Fselect_console);
+ − 1212 DEFSUBR (Fconsolep);
+ − 1213 DEFSUBR (Fconsole_live_p);
+ − 1214 DEFSUBR (Fconsole_type);
+ − 1215 DEFSUBR (Fconsole_name);
+ − 1216 DEFSUBR (Fconsole_connection);
+ − 1217 DEFSUBR (Ffind_console);
+ − 1218 DEFSUBR (Fget_console);
+ − 1219 DEFSUBR (Fdelete_console);
+ − 1220 DEFSUBR (Fconsole_list);
+ − 1221 DEFSUBR (Fconsole_device_list);
+ − 1222 DEFSUBR (Fconsole_enable_input);
+ − 1223 DEFSUBR (Fconsole_disable_input);
+ − 1224 DEFSUBR (Fconsole_on_window_system_p);
+ − 1225 DEFSUBR (Fsuspend_console);
+ − 1226 DEFSUBR (Fresume_console);
+ − 1227
+ − 1228 DEFSUBR (Fsuspend_emacs);
+ − 1229 DEFSUBR (Fset_input_mode);
+ − 1230 DEFSUBR (Fcurrent_input_mode);
+ − 1231
563
+ − 1232 DEFSYMBOL (Qconsolep);
+ − 1233 DEFSYMBOL (Qconsole_live_p);
428
+ − 1234
563
+ − 1235 DEFSYMBOL (Qcreate_console_hook);
+ − 1236 DEFSYMBOL (Qdelete_console_hook);
428
+ − 1237
563
+ − 1238 DEFSYMBOL (Qsuspend_hook);
+ − 1239 DEFSYMBOL (Qsuspend_resume_hook);
428
+ − 1240 }
+ − 1241
1204
+ − 1242 static const struct memory_description cte_description_1[] = {
440
+ − 1243 { XD_LISP_OBJECT, offsetof (console_type_entry, symbol) },
2551
+ − 1244 { XD_BLOCK_PTR, offsetof (console_type_entry, meths), 1,
+ − 1245 { &console_methods_description } },
428
+ − 1246 { XD_END }
+ − 1247 };
+ − 1248
1204
+ − 1249 static const struct sized_memory_description cte_description = {
440
+ − 1250 sizeof (console_type_entry),
428
+ − 1251 cte_description_1
+ − 1252 };
+ − 1253
1204
+ − 1254 static const struct memory_description cted_description_1[] = {
440
+ − 1255 XD_DYNARR_DESC (console_type_entry_dynarr, &cte_description),
428
+ − 1256 { XD_END }
+ − 1257 };
+ − 1258
1204
+ − 1259 const struct sized_memory_description cted_description = {
440
+ − 1260 sizeof (console_type_entry_dynarr),
428
+ − 1261 cted_description_1
+ − 1262 };
+ − 1263
1204
+ − 1264 static const struct memory_description console_methods_description_1[] = {
440
+ − 1265 { XD_LISP_OBJECT, offsetof (struct console_methods, symbol) },
+ − 1266 { XD_LISP_OBJECT, offsetof (struct console_methods, predicate_symbol) },
+ − 1267 { XD_LISP_OBJECT, offsetof (struct console_methods, image_conversion_list) },
428
+ − 1268 { XD_END }
+ − 1269 };
+ − 1270
1204
+ − 1271 const struct sized_memory_description console_methods_description = {
440
+ − 1272 sizeof (struct console_methods),
428
+ − 1273 console_methods_description_1
+ − 1274 };
+ − 1275
+ − 1276
+ − 1277 void
+ − 1278 console_type_create (void)
+ − 1279 {
+ − 1280 the_console_type_entry_dynarr = Dynarr_new (console_type_entry);
2367
+ − 1281 dump_add_root_block_ptr (&the_console_type_entry_dynarr, &cted_description);
428
+ − 1282
+ − 1283 Vconsole_type_list = Qnil;
+ − 1284 staticpro (&Vconsole_type_list);
+ − 1285
+ − 1286 /* Initialize the dead console type */
+ − 1287 INITIALIZE_CONSOLE_TYPE (dead, "dead", "console-dead-p");
+ − 1288
+ − 1289 /* then reset the console-type lists, because `dead' is not really
+ − 1290 a valid console type */
+ − 1291 Dynarr_reset (the_console_type_entry_dynarr);
+ − 1292 Vconsole_type_list = Qnil;
+ − 1293 }
+ − 1294
+ − 1295 void
+ − 1296 reinit_vars_of_console (void)
+ − 1297 {
+ − 1298 staticpro_nodump (&Vconsole_list);
+ − 1299 Vconsole_list = Qnil;
+ − 1300 staticpro_nodump (&Vselected_console);
+ − 1301 Vselected_console = Qnil;
+ − 1302 }
+ − 1303
+ − 1304 void
+ − 1305 vars_of_console (void)
+ − 1306 {
+ − 1307 DEFVAR_LISP ("create-console-hook", &Vcreate_console_hook /*
+ − 1308 Function or functions to call when a console is created.
+ − 1309 One argument, the newly-created console.
+ − 1310 This is called after the first frame has been created, but before
+ − 1311 calling the `create-device-hook' or `create-frame-hook'.
+ − 1312 Note that in general the console will not be selected.
+ − 1313 */ );
+ − 1314 Vcreate_console_hook = Qnil;
+ − 1315
+ − 1316 DEFVAR_LISP ("delete-console-hook", &Vdelete_console_hook /*
+ − 1317 Function or functions to call when a console is deleted.
+ − 1318 One argument, the to-be-deleted console.
+ − 1319 */ );
+ − 1320 Vdelete_console_hook = Qnil;
+ − 1321
+ − 1322 #ifdef HAVE_WINDOW_SYSTEM
+ − 1323 Fprovide (intern ("window-system"));
+ − 1324 #endif
+ − 1325 }
+ − 1326
643
+ − 1327 /* The docstrings for DEFVAR_* are recorded externally by make-docfile. */
3263
+ − 1328 #ifdef NEW_GC
2720
+ − 1329 #define DEFVAR_CONSOLE_LOCAL_1(lname, field_name, forward_type, magic_fun) \
+ − 1330 do { \
+ − 1331 struct symbol_value_forward *I_hate_C = \
+ − 1332 alloc_lrecord_type (struct symbol_value_forward, \
+ − 1333 &lrecord_symbol_value_forward); \
+ − 1334 /*mcpro ((Lisp_Object) I_hate_C);*/ \
+ − 1335 \
+ − 1336 I_hate_C->magic.value = &(console_local_flags.field_name); \
+ − 1337 I_hate_C->magic.type = forward_type; \
+ − 1338 I_hate_C->magicfun = magic_fun; \
+ − 1339 \
+ − 1340 MARK_LRECORD_AS_LISP_READONLY (I_hate_C); \
+ − 1341 \
+ − 1342 { \
+ − 1343 int offset = ((char *)symbol_value_forward_forward (I_hate_C) \
+ − 1344 - (char *)&console_local_flags); \
+ − 1345 \
+ − 1346 defvar_magic (lname, I_hate_C); \
+ − 1347 \
+ − 1348 *((Lisp_Object *)(offset + (char *)XCONSOLE (Vconsole_local_symbols))) \
+ − 1349 = intern (lname); \
+ − 1350 } \
+ − 1351 } while (0)
3263
+ − 1352 #else /* not NEW_GC */
617
+ − 1353 #define DEFVAR_CONSOLE_LOCAL_1(lname, field_name, forward_type, magicfun) \
+ − 1354 do { \
+ − 1355 static const struct symbol_value_forward I_hate_C = \
+ − 1356 { /* struct symbol_value_forward */ \
+ − 1357 { /* struct symbol_value_magic */ \
3024
+ − 1358 { /* struct old_lcrecord_header */ \
617
+ − 1359 { /* struct lrecord_header */ \
+ − 1360 lrecord_type_symbol_value_forward, /* lrecord_type_index */ \
+ − 1361 1, /* mark bit */ \
+ − 1362 1, /* c_readonly bit */ \
+ − 1363 1 /* lisp_readonly bit */ \
+ − 1364 }, \
+ − 1365 0, /* next */ \
+ − 1366 0, /* uid */ \
+ − 1367 0 /* free */ \
+ − 1368 }, \
+ − 1369 &(console_local_flags.field_name), \
+ − 1370 forward_type \
+ − 1371 }, \
+ − 1372 magicfun \
+ − 1373 }; \
+ − 1374 \
+ − 1375 { \
+ − 1376 int offset = ((char *)symbol_value_forward_forward (&I_hate_C) \
+ − 1377 - (char *)&console_local_flags); \
+ − 1378 \
+ − 1379 defvar_magic (lname, &I_hate_C); \
+ − 1380 \
+ − 1381 *((Lisp_Object *)(offset + (char *)XCONSOLE (Vconsole_local_symbols))) \
+ − 1382 = intern (lname); \
+ − 1383 } \
428
+ − 1384 } while (0)
3263
+ − 1385 #endif /* not NEW_GC */
428
+ − 1386
+ − 1387 #define DEFVAR_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) \
+ − 1388 DEFVAR_CONSOLE_LOCAL_1 (lname, field_name, \
+ − 1389 SYMVAL_SELECTED_CONSOLE_FORWARD, magicfun)
+ − 1390 #define DEFVAR_CONSOLE_LOCAL(lname, field_name) \
+ − 1391 DEFVAR_CONSOLE_LOCAL_MAGIC (lname, field_name, 0)
+ − 1392 #define DEFVAR_CONST_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) \
+ − 1393 DEFVAR_CONSOLE_LOCAL_1 (lname, field_name, \
+ − 1394 SYMVAL_CONST_SELECTED_CONSOLE_FORWARD, magicfun)
+ − 1395 #define DEFVAR_CONST_CONSOLE_LOCAL(lname, field_name) \
+ − 1396 DEFVAR_CONST_CONSOLE_LOCAL_MAGIC (lname, field_name, 0)
+ − 1397
+ − 1398 #define DEFVAR_CONSOLE_DEFAULTS_MAGIC(lname, field_name, magicfun) \
+ − 1399 DEFVAR_SYMVAL_FWD(lname, &(console_local_flags.field_name), \
+ − 1400 SYMVAL_DEFAULT_CONSOLE_FORWARD, magicfun)
+ − 1401 #define DEFVAR_CONSOLE_DEFAULTS(lname, field_name) \
+ − 1402 DEFVAR_CONSOLE_DEFAULTS_MAGIC (lname, field_name, 0)
+ − 1403
+ − 1404 static void
+ − 1405 common_init_complex_vars_of_console (void)
+ − 1406 {
+ − 1407 /* Make sure all markable slots in console_defaults
+ − 1408 are initialized reasonably, so mark_console won't choke.
+ − 1409 */
3017
+ − 1410 struct console *defs = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
+ − 1411 struct console *syms = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
428
+ − 1412
+ − 1413 staticpro_nodump (&Vconsole_defaults);
+ − 1414 staticpro_nodump (&Vconsole_local_symbols);
793
+ − 1415 Vconsole_defaults = wrap_console (defs);
+ − 1416 Vconsole_local_symbols = wrap_console (syms);
428
+ − 1417
+ − 1418 nuke_all_console_slots (syms, Qnil);
+ − 1419 nuke_all_console_slots (defs, Qnil);
+ − 1420
+ − 1421 /* Set up the non-nil default values of various console slots.
+ − 1422 Must do these before making the first console.
+ − 1423 */
1204
+ − 1424
+ − 1425 /* ... Nothing here for the moment.
+ − 1426 #### Console-local variables should probably be eliminated.*/
428
+ − 1427
+ − 1428 {
+ − 1429 /* 0 means var is always local. Default used only at creation.
+ − 1430 * -1 means var is always local. Default used only at reset and
+ − 1431 * creation.
+ − 1432 * -2 means there's no lisp variable corresponding to this slot
+ − 1433 * and the default is only used at creation.
+ − 1434 * -3 means no Lisp variable. Default used only at reset and creation.
+ − 1435 * >0 is mask. Var is local if ((console->local_var_flags & mask) != 0)
+ − 1436 * Otherwise default is used.
+ − 1437 *
+ − 1438 * #### We don't currently ever reset console variables, so there
+ − 1439 * is no current distinction between 0 and -1, and between -2 and -3.
+ − 1440 */
+ − 1441 Lisp_Object always_local_resettable = make_int (-1);
+ − 1442
+ − 1443 #if 0 /* not used */
+ − 1444 Lisp_Object always_local_no_default = make_int (0);
+ − 1445 Lisp_Object resettable = make_int (-3);
+ − 1446 #endif
+ − 1447
+ − 1448 /* Assign the local-flags to the slots that have default values.
+ − 1449 The local flag is a bit that is used in the console
+ − 1450 to say that it has its own local value for the slot.
+ − 1451 The local flag bits are in the local_var_flags slot of the
+ − 1452 console. */
+ − 1453
+ − 1454 nuke_all_console_slots (&console_local_flags, make_int (-2));
+ − 1455 console_local_flags.defining_kbd_macro = always_local_resettable;
+ − 1456 console_local_flags.last_kbd_macro = always_local_resettable;
+ − 1457 console_local_flags.prefix_arg = always_local_resettable;
+ − 1458 console_local_flags.default_minibuffer_frame = always_local_resettable;
+ − 1459 console_local_flags.overriding_terminal_local_map =
+ − 1460 always_local_resettable;
+ − 1461 #ifdef HAVE_TTY
+ − 1462 console_local_flags.tty_erase_char = always_local_resettable;
+ − 1463 #endif
+ − 1464
+ − 1465 console_local_flags.function_key_map = make_int (1);
+ − 1466
+ − 1467 /* #### Warning, 0x4000000 (that's six zeroes) is the largest number
+ − 1468 currently allowable due to the XINT() handling of this value.
+ − 1469 With some rearrangement you can get 4 more bits. */
+ − 1470 }
+ − 1471 }
+ − 1472
+ − 1473
+ − 1474 #define CONSOLE_SLOTS_SIZE (offsetof (struct console, CONSOLE_SLOTS_LAST_NAME) - offsetof (struct console, CONSOLE_SLOTS_FIRST_NAME) + sizeof (Lisp_Object))
+ − 1475 #define CONSOLE_SLOTS_COUNT (CONSOLE_SLOTS_SIZE / sizeof (Lisp_Object))
+ − 1476
+ − 1477 void
771
+ − 1478 reinit_complex_vars_of_console_runtime_only (void)
428
+ − 1479 {
+ − 1480 struct console *defs, *syms;
+ − 1481
+ − 1482 common_init_complex_vars_of_console ();
+ − 1483
+ − 1484 defs = XCONSOLE (Vconsole_defaults);
+ − 1485 syms = XCONSOLE (Vconsole_local_symbols);
+ − 1486 memcpy (&defs->CONSOLE_SLOTS_FIRST_NAME,
+ − 1487 console_defaults_saved_slots,
+ − 1488 CONSOLE_SLOTS_SIZE);
+ − 1489 memcpy (&syms->CONSOLE_SLOTS_FIRST_NAME,
+ − 1490 console_local_symbols_saved_slots,
+ − 1491 CONSOLE_SLOTS_SIZE);
+ − 1492 }
+ − 1493
+ − 1494
1204
+ − 1495 static const struct memory_description console_slots_description_1[] = {
440
+ − 1496 { XD_LISP_OBJECT_ARRAY, 0, CONSOLE_SLOTS_COUNT },
428
+ − 1497 { XD_END }
+ − 1498 };
+ − 1499
1204
+ − 1500 static const struct sized_memory_description console_slots_description = {
428
+ − 1501 CONSOLE_SLOTS_SIZE,
+ − 1502 console_slots_description_1
+ − 1503 };
+ − 1504
+ − 1505 void
+ − 1506 complex_vars_of_console (void)
+ − 1507 {
+ − 1508 struct console *defs, *syms;
+ − 1509
+ − 1510 common_init_complex_vars_of_console ();
+ − 1511
+ − 1512 defs = XCONSOLE (Vconsole_defaults);
+ − 1513 syms = XCONSOLE (Vconsole_local_symbols);
+ − 1514 console_defaults_saved_slots = &defs->CONSOLE_SLOTS_FIRST_NAME;
+ − 1515 console_local_symbols_saved_slots = &syms->CONSOLE_SLOTS_FIRST_NAME;
2367
+ − 1516 dump_add_root_block_ptr (&console_defaults_saved_slots, &console_slots_description);
+ − 1517 dump_add_root_block_ptr (&console_local_symbols_saved_slots, &console_slots_description);
428
+ − 1518
+ − 1519 DEFVAR_CONSOLE_DEFAULTS ("default-function-key-map", function_key_map /*
+ − 1520 Default value of `function-key-map' for consoles that don't override it.
+ − 1521 This is the same as (default-value 'function-key-map).
+ − 1522 */ );
+ − 1523
+ − 1524 DEFVAR_CONSOLE_LOCAL ("function-key-map", function_key_map /*
+ − 1525 Keymap mapping ASCII function key sequences onto their preferred forms.
+ − 1526 This allows Emacs to recognize function keys sent from ASCII
+ − 1527 terminals at any point in a key sequence.
+ − 1528
+ − 1529 The `read-key-sequence' function replaces any subsequence bound by
+ − 1530 `function-key-map' with its binding. More precisely, when the active
+ − 1531 keymaps have no binding for the current key sequence but
+ − 1532 `function-key-map' binds a suffix of the sequence to a vector or string,
+ − 1533 `read-key-sequence' replaces the matching suffix with its binding, and
2027
+ − 1534 continues with the new sequence. See `key-binding'.
428
+ − 1535
+ − 1536 The events that come from bindings in `function-key-map' are not
+ − 1537 themselves looked up in `function-key-map'.
+ − 1538
+ − 1539 For example, suppose `function-key-map' binds `ESC O P' to [f1].
+ − 1540 Typing `ESC O P' to `read-key-sequence' would return
+ − 1541 \[#<keypress-event f1>]. Typing `C-x ESC O P' would return
+ − 1542 \[#<keypress-event control-X> #<keypress-event f1>]. If [f1]
+ − 1543 were a prefix key, typing `ESC O P x' would return
+ − 1544 \[#<keypress-event f1> #<keypress-event x>].
+ − 1545 */ );
+ − 1546
+ − 1547 #ifdef HAVE_TTY
440
+ − 1548 /* #### Should this somehow go to TTY data? How do we make it
428
+ − 1549 accessible from Lisp, then? */
+ − 1550 DEFVAR_CONSOLE_LOCAL ("tty-erase-char", tty_erase_char /*
+ − 1551 The ERASE character as set by the user with stty.
+ − 1552 When this value cannot be determined or would be meaningless (on non-TTY
+ − 1553 consoles, for example), it is set to nil.
+ − 1554 */ );
+ − 1555 #endif
+ − 1556
442
+ − 1557 /* While this should be const it can't be because some things
428
+ − 1558 (i.e. edebug) do manipulate it. */
+ − 1559 DEFVAR_CONSOLE_LOCAL ("defining-kbd-macro", defining_kbd_macro /*
442
+ − 1560 Non-nil while a keyboard macro is being defined. Don't set this!
428
+ − 1561 */ );
+ − 1562
+ − 1563 DEFVAR_CONSOLE_LOCAL ("last-kbd-macro", last_kbd_macro /*
442
+ − 1564 Last keyboard macro defined, as a vector of events; nil if none defined.
428
+ − 1565 */ );
+ − 1566
+ − 1567 DEFVAR_CONSOLE_LOCAL ("prefix-arg", prefix_arg /*
+ − 1568 The value of the prefix argument for the next editing command.
+ − 1569 It may be a number, or the symbol `-' for just a minus sign as arg,
+ − 1570 or a list whose car is a number for just one or more C-U's
+ − 1571 or nil if no argument has been specified.
+ − 1572
+ − 1573 You cannot examine this variable to find the argument for this command
+ − 1574 since it has been set to nil by the time you can look.
+ − 1575 Instead, you should use the variable `current-prefix-arg', although
+ − 1576 normally commands can get this prefix argument with (interactive "P").
+ − 1577 */ );
+ − 1578
+ − 1579 DEFVAR_CONSOLE_LOCAL ("default-minibuffer-frame",
+ − 1580 default_minibuffer_frame /*
+ − 1581 Minibufferless frames use this frame's minibuffer.
+ − 1582
+ − 1583 Emacs cannot create minibufferless frames unless this is set to an
+ − 1584 appropriate surrogate.
+ − 1585
+ − 1586 XEmacs consults this variable only when creating minibufferless
+ − 1587 frames; once the frame is created, it sticks with its assigned
+ − 1588 minibuffer, no matter what this variable is set to. This means that
+ − 1589 this variable doesn't necessarily say anything meaningful about the
+ − 1590 current set of frames, or where the minibuffer is currently being
+ − 1591 displayed.
+ − 1592 */ );
+ − 1593
+ − 1594 DEFVAR_CONSOLE_LOCAL ("overriding-terminal-local-map",
+ − 1595 overriding_terminal_local_map /*
+ − 1596 Keymap that overrides all other local keymaps, for the selected console only.
+ − 1597 If this variable is non-nil, it is used as a keymap instead of the
+ − 1598 buffer's local map, and the minor mode keymaps and text property keymaps.
+ − 1599 */ );
+ − 1600
+ − 1601 /* Check for DEFVAR_CONSOLE_LOCAL without initializing the corresponding
+ − 1602 slot of console_local_flags and vice-versa. Must be done after all
+ − 1603 DEFVAR_CONSOLE_LOCAL() calls. */
+ − 1604 #define MARKED_SLOT(slot) \
+ − 1605 if ((XINT (console_local_flags.slot) != -2 && \
+ − 1606 XINT (console_local_flags.slot) != -3) \
+ − 1607 != !(NILP (XCONSOLE (Vconsole_local_symbols)->slot))) \
2500
+ − 1608 ABORT ();
428
+ − 1609 #include "conslots.h"
+ − 1610 }
