(Finteractive): Document the code letter `M'.

(Fcall_interactively): Call Fcompleting_read,
Fread_from_minibuffer, and Fread_string with a proper value for
the arg INHERIT-INPUT-METHOD.  Handle the code letter `M'.

diff --git a/src/callint.c b/src/callint.c
index 7a579fcb20e293d2249548f3e0ac2ce728dad981..7907644db9ddb563764a87df81d6dbc60dae7976 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -96,12 +96,13 @@ i -- Ignored, i.e. always nil.  Does not do I/O.\n\
 k -- Key sequence (downcase the last event if needed to get a definition).\n\
 K -- Key sequence to be redefined (do not downcase the last event).\n\
 m -- Value of mark as number.  Does not do I/O.\n\
+M -- Any string.  Inherits the current input method.\n\
 n -- Number read using minibuffer.\n\
 N -- Raw prefix arg, or if none, do like code `n'.\n\
 p -- Prefix arg converted to number.  Does not do I/O.\n\
 P -- Prefix arg in raw form.  Does not do I/O.\n\
 r -- Region: point and mark as 2 numeric args, smallest first.  Does no I/O.\n\
-s -- Any string.\n\
+s -- Any string.  Does not inherit the current input method.\n\
 S -- Any symbol.\n\
 v -- Variable name: symbol that is user-variable-p.\n\
 x -- Lisp expression read but not evaluated.\n\
@@ -466,7 +467,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
        case 'a':               /* Symbol defined as a function */
          visargs[i] = Fcompleting_read (build_string (callint_message),
                                         Vobarray, Qfboundp, Qt,
-                                        Qnil, Qnil, Qnil);
+                                        Qnil, Qnil, Qnil, Qnil);
          /* Passing args[i] directly stimulates compiler bug */
          teml = visargs[i];
          args[i] = Fintern (teml, Qnil);
@@ -500,7 +501,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
        case 'C':               /* Command: symbol with interactive function */
          visargs[i] = Fcompleting_read (build_string (callint_message),
                                         Vobarray, Qcommandp,
-                                        Qt, Qnil, Qnil, Qnil);
+                                        Qt, Qnil, Qnil, Qnil, Qnil);
          /* Passing args[i] directly stimulates compiler bug */
          teml = visargs[i];
          args[i] = Fintern (teml, Qnil);
@@ -580,6 +581,12 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
          varies[i] = 2;
          break;
 
+       case 'M':               /* String read via minibuffer with
+                                  inheriting the current input method.  */
+         args[i] = Fread_string (build_string (callint_message),
+                                 Qnil, Qnil, Qnil, Qt);
+         break;
+
        case 'N':               /* Prefix arg, else number from minibuffer */
          if (!NILP (prefix_arg))
            goto have_prefix_arg;
@@ -597,7 +604,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
                first = 0;
 
                tem = Fread_from_minibuffer (build_string (callint_message),
-                                            Qnil, Qnil, Qnil, Qnil, Qnil);
+                                            Qnil, Qnil, Qnil, Qnil, Qnil,
+                                            Qnil);
                if (! STRINGP (tem) || XSTRING (tem)->size == 0)
                  args[i] = Qnil;
                else
@@ -633,14 +641,15 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
          varies[i] = 4;
          break;
 
-       case 's':               /* String read via minibuffer.  */
+       case 's':               /* String read via minibuffer without
+                                  inheriting the current input method.  */
          args[i] = Fread_string (build_string (callint_message),
-                                 Qnil, Qnil, Qnil);
+                                 Qnil, Qnil, Qnil, Qnil);
          break;
 
        case 'S':               /* Any symbol.  */
          visargs[i] = Fread_string (build_string (callint_message),
-                                    Qnil, Qnil, Qnil);
+                                    Qnil, Qnil, Qnil, Qnil);
          /* Passing args[i] directly stimulates compiler bug */
          teml = visargs[i];
          args[i] = Fintern (teml, Qnil);