[Emacs-diffs] Changes to emacs/src/callint.c

[Richard M . Stallman]

Index: emacs/src/callint.c
diff -c emacs/src/callint.c:1.137 emacs/src/callint.c:1.138
*** emacs/src/callint.c:1.137   Sun Nov 21 00:59:35 2004
--- emacs/src/callint.c Thu Mar 17 23:33:07 2005
***************
*** 98,103 ****
--- 98,104 ----
       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,610 ****
--- 606,617 ----
                                     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;