emacs: src/minibuf.c comparison

comparison src/minibuf.c @ 90751:52a7f3f50b89

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 624-636) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 200-201) - Merge from emacs--devo--0 - Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser. Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-171

author	Miles Bader <miles@gnu.org>
date	Tue, 13 Feb 2007 12:14:16 +0000
parents	f83d17e1ace6 55bd832be66b
children	dd7c098af727

comparison

equal deleted inserted replaced

-:f8cc067aba62
+:52a7f3f50b89
 static Lisp_Object last_exact_completion;
 /* Keymap for reading expressions.  */
 Lisp_Object Vread_expression_map;
+Lisp_Object Vminibuffer_completion_table, Qminibuffer_completion_table;
+Lisp_Object Vminibuffer_completion_predicate, Qminibuffer_completion_predicate;
+Lisp_Object Vminibuffer_completion_confirm, Qminibuffer_completion_confirm;
+Lisp_Object Vminibuffer_completing_file_name;
 Lisp_Object Quser_variable_p;
 Lisp_Object Qminibuffer_default;
 int count = SPECPDL_INDEX ();
 Lisp_Object mini_frame, ambient_dir, minibuffer, input_method;
 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
 Lisp_Object enable_multibyte;
 int pos = INTEGERP (backup_n) ? XINT (backup_n) : 0;
 /* String to add to the history.  */
 Lisp_Object histstring;
 Lisp_Object empty_minibuf;
 Lisp_Object dummy, frame;
 extern Lisp_Object Qfront_sticky;
 extern Lisp_Object Qrear_nonsticky;
 specbind (Qminibuffer_default, defalt);
+/* If Vminibuffer_completing_file_name is `lambda' on entry, it was t
+in previous recursive minibuffer, but was not set explicitly
+to t for this invocation, so set it to nil in this minibuffer.
+Save the old value now, before we change it.  */
+specbind (intern ("minibuffer-completing-file-name"), Vminibuffer_completing_file_name);
+if (EQ (Vminibuffer_completing_file_name, Qlambda))
+Vminibuffer_completing_file_name = Qnil;
 single_kboard_state ();
 #ifdef HAVE_X_WINDOWS
 if (display_hourglass_p)
 cancel_hourglass ();
 /* Arrange to restore a number of minibuffer-related variables.
 We could bind each variable separately, but that would use lots of
 specpdl slots.  */
 minibuf_save_list
 = Fcons (Voverriding_local_map,
-	     Fcons (minibuf_window, minibuf_save_list));
+	     Fcons (minibuf_window,
+		    minibuf_save_list));
 minibuf_save_list
 = Fcons (minibuf_prompt,
 	     Fcons (make_number (minibuf_prompt_width),
 		    Fcons (Vhelp_form,
 			   Fcons (Vcurrent_prefix_arg,
 minibuf_prompt_width = 0;
 minibuf_prompt = Fcopy_sequence (prompt);
 Vminibuffer_history_position = histpos;
 Vminibuffer_history_variable = histvar;
 Vhelp_form = Vminibuffer_help_form;
+/* If this minibuffer is reading a file name, that doesn't mean
+recursive ones are.  But we cannot set it to nil, because
+completion code still need to know the minibuffer is completing a
+file name.  So use `lambda' as intermediate value meaning
+"t" in this minibuffer, but "nil" in next minibuffer.  */
+if (!NILP (Vminibuffer_completing_file_name))
+Vminibuffer_completing_file_name = Qlambda;
 if (inherit_input_method)
 {
 /* `current-input-method' is buffer local.  So, remember it in
 	 INPUT_METHOD before changing the current buffer.  */
 }
 return Fnreverse (allmatches);
 }
-Lisp_Object Vminibuffer_completion_table, Qminibuffer_completion_table;
-Lisp_Object Vminibuffer_completion_predicate, Qminibuffer_completion_predicate;
-Lisp_Object Vminibuffer_completion_confirm, Qminibuffer_completion_confirm;
-Lisp_Object Vminibuffer_completing_file_name;
 DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 8, 0,
 doc: /* Read a string in the minibuffer, with completion.
 PROMPT is a string to prompt with; normally it ends in a colon and a space.
 COLLECTION can be a list of strings, an alist, an obarray or a hash table.
 COLLECTION can also be a function to do the completion itself.
 if (NILP (histpos))
 XSETFASTINT (histpos, 0);
 val = read_minibuf (NILP (require_match)
 		      ? (NILP (Vminibuffer_completing_file_name)
+			 || EQ (Vminibuffer_completing_file_name, Qlambda)
 			 ? Vminibuffer_local_completion_map
 			 : Vminibuffer_local_filename_completion_map)
 		      : (NILP (Vminibuffer_completing_file_name)
+			 || EQ (Vminibuffer_completing_file_name, Qlambda)
 			 ? Vminibuffer_local_must_match_map
 			 : Vminibuffer_local_must_match_filename_map),
 		      init, prompt, make_number (pos), 0,
 		      histvar, histpos, def, 0,
 		      !NILP (inherit_input_method));
 	       doc: /* Non-nil means to demand confirmation of completion before exiting minibuffer.  */);
 Vminibuffer_completion_confirm = Qnil;
 DEFVAR_LISP ("minibuffer-completing-file-name",
 	       &Vminibuffer_completing_file_name,
-	       doc: /* Non-nil means completing file names.  */);
+	       doc: /* Non-nil and non-`lambda' means completing file names.  */);
 Vminibuffer_completing_file_name = Qnil;
 DEFVAR_LISP ("minibuffer-help-form", &Vminibuffer_help_form,
 	       doc: /* Value that `help-form' takes on inside the minibuffer.  */);
 Vminibuffer_help_form = Qnil;

Mercurial > emacs

comparison src/minibuf.c @ 90751:52a7f3f50b89