Mercurial > emacs
diff src/callint.c @ 60681:046708b92d49
(Finteractive): Document G option.
(Fcall_interactively): Implement G option.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 17 Mar 2005 23:33:07 +0000 |
parents | 16fe8b5010b5 |
children | a8fa7c632ee4 30ad2795fdab |
line wrap: on
line diff
--- a/src/callint.c Thu Mar 17 23:30:49 2005 +0000 +++ b/src/callint.c Thu Mar 17 23:33:07 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;