comparison src/emacs.c @ 21840:89d03805f45a

(main): Use Vbuffer_alist instead of Fbuffer_list. (syms_of_emacs): Fix doc of Vsignal_USR1_hook and Vsignal_USR2_hook.

21839:376ce06ab12d

	  old_log_max = Vmessage_log_max;
	  XSETFASTINT (Vmessage_log_max, 0);
	  message_dolog ("", 0, 1, 0);
	  Vmessage_log_max = old_log_max;

	  for (tail = Fbuffer_list (); CONSP (tail);
	       tail = XCONS (tail)->cdr)
	    {
	      Lisp_Object buffer;

	      buffer = XCONS (tail)->car;
	      /* Verify that all buffers are empty now, as they
		 ought to be.  */
	      if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))
		abort ();
	      /* It is safe to do this crudely in an empty buffer.  */

see `kill-emacs-query-functions' instead.");
  Vkill_emacs_hook = Qnil;

#ifdef SIGUSR1
  DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook,
    "Hook to be run whenever emacs recieves a USR1 signal");
  Vsignal_USR1_hook = Qnil;
#ifdef SIGUSR2
  DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook,
    "Hook to be run whenever emacs recieves a USR2 signal");
  Vsignal_USR2_hook = Qnil;
#endif
#endif

21840:89d03805f45a

	  old_log_max = Vmessage_log_max;
	  XSETFASTINT (Vmessage_log_max, 0);
	  message_dolog ("", 0, 1, 0);
	  Vmessage_log_max = old_log_max;

	  for (tail = Vbuffer_alist; CONSP (tail);
	       tail = XCONS (tail)->cdr)
	    {
	      Lisp_Object buffer;

	      buffer = Fcdr (XCONS (tail)->car);
	      /* Verify that all buffers are empty now, as they
		 ought to be.  */
	      if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))
		abort ();
	      /* It is safe to do this crudely in an empty buffer.  */

see `kill-emacs-query-functions' instead.");
  Vkill_emacs_hook = Qnil;

#ifdef SIGUSR1
  DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook,
    "Hook to be run whenever emacs receives a USR1 signal");
  Vsignal_USR1_hook = Qnil;
#ifdef SIGUSR2
  DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook,
    "Hook to be run whenever emacs receives a USR2 signal");
  Vsignal_USR2_hook = Qnil;
#endif
#endif