comparison src/minibuf.c @ 6384:5e8a442a836d

(read_minibuf): Disallow trailing junk.

6383:62db5566c287

	      Fcons (last_minibuf_string, histval));
    }

  /* If Lisp form desired instead of string, parse it. */
  if (expflag)
    val = Fread (val);

  unbind_to (count, Qnil);	/* The appropriate frame will get selected
				   in set-window-configuration.  */

  UNGCPRO;

6384:5e8a442a836d

	      Fcons (last_minibuf_string, histval));
    }

  /* If Lisp form desired instead of string, parse it. */
  if (expflag)
    {
      Lisp_Object expr_and_pos;
      unsigned char *p;

      expr_and_pos = Fread_from_string (val, Qnil, Qnil);
      /* Ignore trailing whitespace; any other trailing junk is an error.  */
      for (p = XSTRING (val)->data + XINT (Fcdr (expr_and_pos)); *p; p++)
	if (*p != ' ' && *p != '\t' && *p != '\n')
	  error ("Trailing garbage following expression");
      val = Fcar (expr_and_pos);
    }

  unbind_to (count, Qnil);	/* The appropriate frame will get selected
				   in set-window-configuration.  */

  UNGCPRO;