changeset 438:8b54ee2c82d6

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 04 Dec 1991 03:20:22 +0000
parents be739cb3c0fc
children 350065270fc8
files src/callint.c
diffstat 1 files changed, 22 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Wed Nov 27 03:29:02 1991 +0000
+++ b/src/callint.c	Wed Dec 04 03:20:22 1991 +0000
@@ -64,10 +64,10 @@
 C -- Command name: symbol with interactive function definition.\n\
 d -- Value of point as number.  Does not do I/O.\n\
 D -- Directory name.\n\
-e -- Last mouse event.\n\
 f -- Existing file name.\n\
 F -- Possibly nonexistent file name.\n\
 k -- Key sequence (string).\n\
+K -- Mouse click that invoked this command - last-command-char.\n\
 m -- Value of mark as number.  Does not do I/O.\n\
 n -- Number read using minibuffer.\n\
 N -- Prefix arg converted to number, or if none, do like code `n'.\n\
@@ -159,7 +159,12 @@
   Lisp_Object prefix_arg;
   unsigned char *string;
   unsigned char *tem;
+
+  /* If varies[i] > 0, the i'th argument shouldn't just have its value
+     in this call quoted in the command history.  It should be
+     recorded as a call to the function named callint_argfuns[varies[i]].  */
   int *varies;
+
   register int i, j;
   int count, foo;
   char prompt[100];
@@ -173,8 +178,10 @@
 
 retry:
 
-  fun = function;
-  while (XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound)) fun = XSYMBOL (fun)->function;
+  for (fun = function;
+       XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound);
+       fun = XSYMBOL (fun)->function)
+    ;
 
   specs = Qnil;
   string = 0;
@@ -349,11 +356,6 @@
 	  varies[i] = 1;
 	  break;
 
-	case 'e':
-	  varies[i] = 1;
-	  args[i] = Vmouse_event;
-	  break;
-
 	case 'D':		/* Directory name. */
 	  args[i] = Fread_file_name (build_string (prompt), Qnil,
 				     current_buffer->directory, Qlambda, Qnil);
@@ -370,11 +372,20 @@
 	  break;
 
 	case 'k':		/* Key sequence (string) */
-	  args[i] = Fread_key_sequence (build_string (prompt));
+	  args[i] = Fread_key_sequence (build_string (prompt), Qnil);
 	  teml = args[i];
 	  visargs[i] = Fkey_description (teml);
 	  break;
 
+	case 'K':		/* Mouse click.  */
+	  args[i] = last_command_char;
+	  if (NULL (Fmouse_click_p (args[i])))
+	    error ("%s must be bound to a mouse click.",
+		   (XTYPE (function) == Lisp_Symbol
+		    ? (char *) XSYMBOL (function)->name->data
+		    : "Command"));
+	  break;
+
 	case 'm':		/* Value of mark.  Does not do I/O.  */
 	  check_mark ();
 	  /* visargs[i] = Qnil; */
@@ -474,7 +485,8 @@
   if (arg_from_tty || !NULL (record))
     {
       visargs[0] = function;
-      for (i = 1; i < count + 1; i++	if (varies[i] > 0)
+      for (i = 1; i < count + 1; i++)
+	if (varies[i] > 0)
 	  visargs[i] = Fcons (intern (callint_argfuns[varies[i]]), Qnil);
 	else
 	  visargs[i] = quotify_arg (args[i]);