comparison src/keyboard.c @ 7224:a96533ce8122

(force_auto_save_soon): New function. (make_lispy_movement): If HAVE_MOUSE, include the mouse handling code.

7223:38931e897e56

  return unbind_to (count, Qnil);
}

/* When an auto-save happens, record the "time", and don't do again soon.  */
record_auto_save ()
{
  last_auto_save = num_nonmacro_input_chars;
}

DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
  "Invoke the editor command loop recursively.\n\
To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\

				  lispy_function_keys, &func_key_syms,
				  (sizeof (lispy_function_keys)
				   / sizeof (lispy_function_keys[0])));
      break;

#ifdef MULTI_FRAME
      /* A mouse click.  Figure out where it is, decide whether it's 
         a press, click or drag, and build the appropriate structure.  */
    case mouse_click:
    case scroll_bar_click:
      {

	    return Fcons (head,
			  Fcons (position,
				 Qnil));
	}
      }
#endif /* MULTI_FRAME */

      /* The 'kind' field of the event is something we don't recognize.  */
    default:
      abort ();
    }

7224:a96533ce8122

  return unbind_to (count, Qnil);
}

/* When an auto-save happens, record the "time", and don't do again soon.  */

record_auto_save ()
{
  last_auto_save = num_nonmacro_input_chars;
}

/* Make an auto save happen as soon as possible at command level.  */

force_auto_save_soon ()
{
  last_auto_save = - auto_save_interval - 1;
}

DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
  "Invoke the editor command loop recursively.\n\
To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\

				  lispy_function_keys, &func_key_syms,
				  (sizeof (lispy_function_keys)
				   / sizeof (lispy_function_keys[0])));
      break;

#if defined(MULTI_FRAME) || defined(HAVE_MOUSE)
      /* A mouse click.  Figure out where it is, decide whether it's 
         a press, click or drag, and build the appropriate structure.  */
    case mouse_click:
    case scroll_bar_click:
      {

	    return Fcons (head,
			  Fcons (position,
				 Qnil));
	}
      }
#endif /* MULTI_FRAME or HAVE_MOUSE */

      /* The 'kind' field of the event is something we don't recognize.  */
    default:
      abort ();
    }