changeset 863:427299469901

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Jul 1992 07:15:18 +0000
parents 46630543d659
children fe5f6b7c9727
files src/callint.c src/eval.c src/fileio.c src/fns.c
diffstat 4 files changed, 49 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Fri Jul 24 06:09:27 1992 +0000
+++ b/src/callint.c	Fri Jul 24 07:15:18 1992 +0000
@@ -437,10 +437,7 @@
 	  break;
 
 	case 'S':		/* Any symbol.  */
-	  visargs[i] = read_minibuf (Vminibuffer_local_ns_map,
-				     Qnil,
-				     build_string (prompt),
-				     0);
+	  visargs[i] = Fread_no_blanks_input (build_string (prompt), Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
--- a/src/eval.c	Fri Jul 24 06:09:27 1992 +0000
+++ b/src/eval.c	Fri Jul 24 07:15:18 1992 +0000
@@ -1515,6 +1515,11 @@
 	  val = (*XSUBR (fun)->function) (argvals[0], argvals[1], argvals[2],
 					  argvals[3], argvals[4], argvals[5]);
 	  goto done;
+	case 7:
+	  val = (*XSUBR (fun)->function) (argvals[0], argvals[1], argvals[2],
+					  argvals[3], argvals[4], argvals[5],
+					  argvals[6]);
+	  goto done;
 
 	default:
 	  /* Someone has created a subr that takes more arguments than
@@ -1846,6 +1851,12 @@
 					  internal_args[2], internal_args[3],
 					  internal_args[4], internal_args[5]);
 	  goto done;
+	case 7:
+	  val = (*XSUBR (fun)->function) (internal_args[0], internal_args[1],
+					  internal_args[2], internal_args[3],
+					  internal_args[4], internal_args[5],
+					  internal_args[6]);
+	  goto done;
 
 	default:
 
--- a/src/fileio.c	Fri Jul 24 06:09:27 1992 +0000
+++ b/src/fileio.c	Fri Jul 24 07:15:18 1992 +0000
@@ -101,6 +101,8 @@
 
 Lisp_Object Qfile_error, Qfile_already_exists;
 
+Lisp_Object Qfile_name_history;
+
 report_file_error (string, data)
      char *string;
      Lisp_Object data;
@@ -2941,7 +2943,7 @@
   (prompt, dir, defalt, mustmatch, initial)
      Lisp_Object prompt, dir, defalt, mustmatch, initial;
 {
-  Lisp_Object val, insdef, tem, backup_n;
+  Lisp_Object val, insdef, tem;
   struct gcpro gcpro1, gcpro2;
   register char *homedir;
   int count;
@@ -2968,21 +2970,17 @@
       insdef = dir;
       if (!NILP (initial))
 	{
-	  Lisp_Object args[2];
+	  Lisp_Object args[2], pos;
 
 	  args[0] = insdef;
 	  args[1] = initial;
 	  insdef = Fconcat (2, args);
-	  backup_n = make_number (- (XSTRING (initial)->size));
+	  pos = make_number (XSTRING (dir)->size);
+	  insdef = Fcons (insdef, pos);
 	}
-      else
-	backup_n = Qnil;
     }
   else
-    {
-      insdef = build_string ("");
-      backup_n = Qnil;
-    }
+    insdef = build_string ("");
 
 #ifdef VMS
   count = specpdl_ptr - specpdl;
@@ -2992,7 +2990,8 @@
   GCPRO2 (insdef, defalt);
   val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
 			  dir, mustmatch,
-			  insert_default_directory ? insdef : Qnil, backup_n);
+			  insert_default_directory ? insdef : Qnil,
+			  Qfile_name_history);
 
 #ifdef VMS
   unbind_to (count, Qnil);
@@ -3057,7 +3056,8 @@
   GCPRO2 (insdef, defalt);
   val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
 			  dir, mustmatch,
-			  insert_default_directory ? insdef : Qnil, Qnil);
+			  insert_default_directory ? insdef : Qnil,
+			  Qfile_name_history);
 
 #ifdef VMS
   unbind_to (count, Qnil);
@@ -3096,6 +3096,31 @@
   Qwrite_region = intern ("write-region");
   Qverify_visited_file_modtime = intern ("verify-visited-file-modtime");
 
+  Qfile_name_history = intern ("file-name-history");
+  Fset (Qfile_name_history, Qnil);
+
+  staticpro (&Qcopy_file);
+  staticpro (&Qmake_directory);
+  staticpro (&Qdelete_directory);
+  staticpro (&Qdelete_file);
+  staticpro (&Qrename_file);
+  staticpro (&Qadd_name_to_file);
+  staticpro (&Qmake_symbolic_link);
+  staticpro (&Qfile_exists_p);
+  staticpro (&Qfile_executable_p);
+  staticpro (&Qfile_readable_p);
+  staticpro (&Qfile_symlink_p);
+  staticpro (&Qfile_writable_p);
+  staticpro (&Qfile_directory_p);
+  staticpro (&Qfile_accessible_directory_p);
+  staticpro (&Qfile_modes);
+  staticpro (&Qset_file_modes);
+  staticpro (&Qfile_newer_than_file_p);
+  staticpro (&Qinsert_file_contents);
+  staticpro (&Qwrite_region);
+  staticpro (&Qverify_visited_file_modtime);
+  staticpro (&Qfile_name_history);
+
   Qfile_error = intern ("file-error");
   staticpro (&Qfile_error);
   Qfile_already_exists = intern("file-already-exists");
--- a/src/fns.c	Fri Jul 24 06:09:27 1992 +0000
+++ b/src/fns.c	Fri Jul 24 07:15:18 1992 +0000
@@ -1170,8 +1170,7 @@
   GCPRO1 (prompt);
   while (1)
     {
-      ans = Fdowncase (read_minibuf (Vminibuffer_local_map,
-				     Qnil, prompt, Qnil, 0));
+      ans = Fdowncase (Fread_minibuffer (prompt, Qnil));
       if (XSTRING (ans)->size == 3 && !strcmp (XSTRING (ans)->data, "yes"))
 	{
 	  UNGCPRO;