emacs: src/callint.c comparison

comparison src/callint.c @ 73441:82ed0adffca9

* callint.c (callint_message): Convert to a Lisp string. (syms_of_callint): Initialize it. (callint_message_size): Var deleted. (Fcall_interactively): Use Fformat instead of doprnt to construct prompt string.

author	Chong Yidong <cyd@stupidchicken.com>
date	Thu, 19 Oct 2006 14:13:52 +0000
parents	6d481bdb9779
children	4c1d868b634b 034f67f59091 7eeafaaa9eab

comparison

equal deleted inserted replaced

-:334af48d9710
+:82ed0adffca9
 static Lisp_Object preserved_fns;
 /* Marker used within call-interactively to refer to point.  */
 static Lisp_Object point_marker;
-/* Buffer for the prompt text used in Fcall_interactively.  */
+/* String for the prompt text used in Fcall_interactively.  */
-static char *callint_message;
+static Lisp_Object callint_message;
-/* Allocated length of that buffer.  */
-static int callint_message_size;
 /* ARGSUSED */
 DEFUN ("interactive", Finteractive, Sinteractive, 0, UNEVALLED, 0,
 doc: /* Specify a way of parsing arguments for interactive use of a function.
 For example, write
 `this-command-keys-vector' is used.  */)
 (function, record_flag, keys)
 Lisp_Object function, record_flag, keys;
 {
 Lisp_Object *args, *visargs;
-unsigned char **argstrings;
 Lisp_Object fun;
 Lisp_Object specs;
 Lisp_Object filter_specs;
 Lisp_Object teml;
 Lisp_Object up_event;
 }
 count = j;
 args = (Lisp_Object *) alloca ((count + 1) * sizeof (Lisp_Object));
 visargs = (Lisp_Object *) alloca ((count + 1) * sizeof (Lisp_Object));
-argstrings = (unsigned char **) alloca ((count + 1) * sizeof (char *));
 varies = (int *) alloca ((count + 1) * sizeof (int));
 for (i = 0; i < (count + 1); i++)
 {
 args[i] = Qnil;
 {
 strncpy (prompt1, tem + 1, sizeof prompt1 - 1);
 prompt1[sizeof prompt1 - 1] = 0;
 tem1 = (char *) index (prompt1, '\n');
 if (tem1) *tem1 = 0;
-/* Fill argstrings with a vector of C strings
-	 corresponding to the Lisp strings in visargs.  */
+visargs[0] = build_string (prompt1);
-for (j = 1; j < i; j++)
+if (index (prompt1, '%'))
-	argstrings[j]
+	callint_message = Fformat (i, visargs);
-	  = (EQ (visargs[j], Qnil)
+else
-	     ? (unsigned char *) ""
+	callint_message = visargs[0];
-	     : SDATA (visargs[j]));
-/* Process the format-string in prompt1, putting the output
-	 into callint_message.  Make callint_message bigger if necessary.
-	 We don't use a buffer on the stack, because the contents
-	 need to stay stable for a while.  */
-while (1)
-	{
-	  int nchars = doprnt (callint_message, callint_message_size,
-			       prompt1, (char *)0,
-			       j - 1, (char **) argstrings + 1);
-	  if (nchars < callint_message_size - 1)
-	    break;
-	  callint_message_size *= 2;
-	  callint_message
-	    = (char *) xrealloc (callint_message, callint_message_size);
-	}
 switch (*tem)
 	{
 	case 'a':		/* Symbol defined as a function */
-	  visargs[i] = Fcompleting_read (build_string (callint_message),
+	  visargs[i] = Fcompleting_read (callint_message,
 					 Vobarray, Qfboundp, Qt,
 					 Qnil, Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
 	case 'b':   		/* Name of existing buffer */
 	  args[i] = Fcurrent_buffer ();
 	  if (EQ (selected_window, minibuf_window))
 	    args[i] = Fother_buffer (args[i], Qnil, Qnil);
-	  args[i] = Fread_buffer (build_string (callint_message), args[i], Qt);
+	  args[i] = Fread_buffer (callint_message, args[i], Qt);
 	  break;
 	case 'B':		/* Name of buffer, possibly nonexistent */
-	  args[i] = Fread_buffer (build_string (callint_message),
+	  args[i] = Fread_buffer (callint_message,
 				  Fother_buffer (Fcurrent_buffer (), Qnil, Qnil),
 				  Qnil);
 	  break;
 case 'c':		/* Character */
-	  args[i] = Fread_char (build_string (callint_message), Qnil, Qnil);
+	  args[i] = Fread_char (callint_message, Qnil, Qnil);
 	  message1_nolog ((char *) 0);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = args[i];
 	  visargs[i] = Fchar_to_string (teml);
 	  break;
 	case 'C':		/* Command: symbol with interactive function */
-	  visargs[i] = Fcompleting_read (build_string (callint_message),
+	  visargs[i] = Fcompleting_read (callint_message,
 					 Vobarray, Qcommandp,
 					 Qt, Qnil, Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
 	  /* visargs[i] = Qnil; */
 	  varies[i] = 1;
 	  break;
 	case 'D':		/* Directory name. */
-	  args[i] = Fread_file_name (build_string (callint_message), Qnil,
+	  args[i] = Fread_file_name (callint_message, Qnil,
 				     current_buffer->directory, Qlambda, Qnil,
 				     Qfile_directory_p);
 	  break;
 	case 'f':		/* Existing file name. */
-	  args[i] = Fread_file_name (build_string (callint_message),
+	  args[i] = Fread_file_name (callint_message,
 				     Qnil, Qnil, Qlambda, Qnil, Qnil);
 	  break;
 	case 'F':		/* Possibly nonexistent file name. */
-	  args[i] = Fread_file_name (build_string (callint_message),
+	  args[i] = Fread_file_name (callint_message,
 				     Qnil, Qnil, Qnil, Qnil, Qnil);
 	  break;
 	case 'G':		/* Possibly nonexistent file name,
 				   default to directory alone. */
-	  args[i] = Fread_file_name (build_string (callint_message),
+	  args[i] = Fread_file_name (callint_message,
 				     Qnil, Qnil, Qnil, build_string (""), Qnil);
 	  break;
 	case 'i':		/* Ignore an argument -- Does not do I/O */
 	  varies[i] = -1;
 	case 'k':		/* Key sequence. */
 	  {
 	    int speccount1 = SPECPDL_INDEX ();
 	    specbind (Qcursor_in_echo_area, Qt);
-	    args[i] = Fread_key_sequence (build_string (callint_message),
+	    args[i] = Fread_key_sequence (callint_message,
 					  Qnil, Qnil, Qnil, Qnil);
 	    unbind_to (speccount1, Qnil);
 	    teml = args[i];
 	    visargs[i] = Fkey_description (teml, Qnil);
 	case 'K':		/* Key sequence to be defined. */
 	  {
 	    int speccount1 = SPECPDL_INDEX ();
 	    specbind (Qcursor_in_echo_area, Qt);
-	    args[i] = Fread_key_sequence (build_string (callint_message),
+	    args[i] = Fread_key_sequence (callint_message,
 					  Qnil, Qt, Qnil, Qnil);
 	    teml = args[i];
 	    visargs[i] = Fkey_description (teml, Qnil);
 	    unbind_to (speccount1, Qnil);
 	  varies[i] = 2;
 	  break;
 	case 'M':		/* String read via minibuffer with
 				   inheriting the current input method.  */
-	  args[i] = Fread_string (build_string (callint_message),
+	  args[i] = Fread_string (callint_message,
 				  Qnil, Qnil, Qnil, Qt);
 	  break;
 	case 'N':		/* Prefix arg, else number from minibuffer */
 	  if (!NILP (prefix_arg))
 		    message ("Please enter a number.");
 		    sit_for (make_number (1), 0, 0);
 		  }
 		first = 0;
-		tem = Fread_from_minibuffer (build_string (callint_message),
+		tem = Fread_from_minibuffer (callint_message,
 					     Qnil, Qnil, Qnil, Qnil, Qnil,
 					     Qnil);
 		if (! STRINGP (tem) || SCHARS (tem) == 0)
 		  args[i] = Qnil;
 		else
 		  args[i] = Fread (tem);
 	      }
 	    while (! NUMBERP (args[i]));
 	  }
-	  visargs[i] = last_minibuf_string;
+	  visargs[i] = args[i];
 	  break;
 	case 'P':		/* Prefix arg in raw form.  Does no I/O.  */
 	  args[i] = prefix_arg;
 	  /* visargs[i] = Qnil; */
 	  varies[i] = 4;
 	  break;
 	case 's':		/* String read via minibuffer without
 				   inheriting the current input method.  */
-	  args[i] = Fread_string (build_string (callint_message),
+	  args[i] = Fread_string (callint_message,
 				  Qnil, Qnil, Qnil, Qnil);
 	  break;
 	case 'S':		/* Any symbol.  */
-	  visargs[i] = Fread_string (build_string (callint_message),
+	  visargs[i] = Fread_string (callint_message,
 				     Qnil, Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
 	  break;
 	case 'v':		/* Variable name: symbol that is
 				   user-variable-p. */
-	  args[i] = Fread_variable (build_string (callint_message), Qnil);
+	  args[i] = Fread_variable (callint_message, Qnil);
 	  visargs[i] = last_minibuf_string;
 	  break;
 	case 'x':		/* Lisp expression read but not evaluated */
-	  args[i] = Fread_minibuffer (build_string (callint_message), Qnil);
+	  args[i] = Fread_minibuffer (callint_message, Qnil);
 	  visargs[i] = last_minibuf_string;
 	  break;
 	case 'X':		/* Lisp expression read and evaluated */
-	  args[i] = Feval_minibuffer (build_string (callint_message), Qnil);
+	  args[i] = Feval_minibuffer (callint_message, Qnil);
 	  visargs[i] = last_minibuf_string;
 	  break;
 	case 'Z':		/* Coding-system symbol, or ignore the
 				   argument if no prefix */
 	      varies[i] = -1;
 	    }
 	  else
 	    {
 	      args[i]
-		= Fread_non_nil_coding_system (build_string (callint_message));
+		= Fread_non_nil_coding_system (callint_message);
 	      visargs[i] = last_minibuf_string;
 	    }
 	  break;
 	case 'z':		/* Coding-system symbol or nil */
-	  args[i] = Fread_coding_system (build_string (callint_message), Qnil);
+	  args[i] = Fread_coding_system (callint_message, Qnil);
 	  visargs[i] = last_minibuf_string;
 	  break;
 	  /* We have a case for `+' so we get an error
 	     if anyone tries to define one here.  */
 syms_of_callint ()
 {
 point_marker = Fmake_marker ();
 staticpro (&point_marker);
+callint_message = Qnil;
+staticpro (&callint_message);
 preserved_fns = Fcons (intern ("region-beginning"),
 			 Fcons (intern ("region-end"),
 				Fcons (intern ("point"),
 				       Fcons (intern ("mark"), Qnil))));
 staticpro (&preserved_fns);
 staticpro (&Qenable_recursive_minibuffers);
 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
 staticpro (&Qmouse_leave_buffer_hook);
-callint_message_size = 100;
-callint_message = (char *) xmalloc (callint_message_size);
 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg,
 		 doc: /* The value of the prefix argument for the next editing command.
 It may be a number, or the symbol `-' for just a minus sign as arg,
 or a list whose car is a number for just one or more C-u's
 or nil if no argument has been specified.

Mercurial > emacs

comparison src/callint.c @ 73441:82ed0adffca9