comparison src/data.c @ 83374:0b75ace4f7ad

Fix crash after y-or-n-p prompt triggered by emacsclient. (Reported by Han Boetes, analysis by Kalle Olavi Niemitalo.) * src/keyboard.c (temporarily_switch_to_single_kboard) (record_single_kboard_state, restore_kboard_configuration): New functions. (timer_check): Use record_single_kboard_state instead of naive single_kboard state management. * src/fns.c: Include termhooks.h. (Fy_or_n_p): Use temporarily_switch_to_single_kboard to prevent crashes caused by bogus longjmps in read_char. * src/callint.c (Fcall_interactively): Use temporarily_switch_to_single_kboard instead of single_kboard_state. Make sure it is correctly unwinded. * src/keyboard.c (recursive_edit_unwind): Remove single_kboard stuff. (Frecursive_edit): Use temporarily_switch_to_single_kboard for single_kboard state management. * src/minibuf.c (read_minibuf): Use temporarily_switch_to_single_kboard instead of simply calling single_kboard_state. * src/keyboard.c (push_device_kboard): Remove function. (push_kboard): New function. (push_frame_kboard): Use it. (pop_frame_kboard): Rename to pop_kboard. * src/xdisp.c (display_mode_line, Fformat_mode_line): Update uses. * src/data.c: Include termhooks.h. (Fterminal_local_value, Fset_terminal_local_value): Update. * src/Makefile.in (data.o, fns.o): Add termhooks.h dependency. * src/keyboard.h (push_device_kboard, pop_frame_kboard): Remove declarations. (push_kboard, pop_kboard, temporarily_switch_to_single_kboard) (record_single_kboard_state): New declarations. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-414

83373:35ba943c8399

#include "charset.h"
#include "buffer.h"
#include "keyboard.h"
#include "frame.h"
#include "syssignal.h"

#ifdef STDC_HEADERS
#include <float.h>
#endif

     Lisp_Object symbol;
     Lisp_Object device;
{
  Lisp_Object result;
  struct device *d = get_device (device, 1);
  push_device_kboard (d);
  result = Fsymbol_value (symbol);
  pop_frame_kboard ();
  return result;
}

DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0,
       doc: /* Set the terminal-local binding of SYMBOL on DEVICE to VALUE.

     Lisp_Object device;
     Lisp_Object value;
{
  Lisp_Object result;
  struct device *d = get_device (device, 1);
  push_device_kboard (d);
  result = Fset (symbol, value);
  pop_frame_kboard ();
  return result;
}

/* Find the function at the end of a chain of symbol function indirections.  */

83374:0b75ace4f7ad

#include "charset.h"
#include "buffer.h"
#include "keyboard.h"
#include "frame.h"
#include "syssignal.h"
#include "termhooks.h"  /* For FRAME_KBOARD reference in y-or-n-p. */

#ifdef STDC_HEADERS
#include <float.h>
#endif

     Lisp_Object symbol;
     Lisp_Object device;
{
  Lisp_Object result;
  struct device *d = get_device (device, 1);
  push_kboard (d->kboard);
  result = Fsymbol_value (symbol);
  pop_kboard ();
  return result;
}

DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0,
       doc: /* Set the terminal-local binding of SYMBOL on DEVICE to VALUE.

     Lisp_Object device;
     Lisp_Object value;
{
  Lisp_Object result;
  struct device *d = get_device (device, 1);
  push_kboard (d->kboard);
  result = Fset (symbol, value);
  pop_kboard ();
  return result;
}

/* Find the function at the end of a chain of symbol function indirections.  */