diff src/callint.c @ 90127:30ad2795fdab

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-28 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 180-191) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 39-44) - Merge from emacs--cvs-trunk--0 - Update from CVS

--- a/src/callint.c	Wed Mar 16 21:23:11 2005 +0000
+++ b/src/callint.c	Sat Mar 19 02:42:17 2005 +0000
@@ -98,6 +98,7 @@
      This skips events that are integers or symbols.
 f -- Existing file name.
 F -- Possibly nonexistent file name.
+G -- Possibly nonexistent file name, defaulting to just directory name.
 i -- Ignored, i.e. always nil.  Does not do I/O.
 k -- Key sequence (downcase the last event if needed to get a definition).
 K -- Key sequence to be redefined (do not downcase the last event).
@@ -605,6 +606,12 @@
 				     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),
+				     Qnil, Qnil, Qnil, build_string (""), Qnil);
+	  break;
+
 	case 'i':		/* Ignore an argument -- Does not do I/O */
 	  varies[i] = -1;
 	  break;