diff options
| author | Dmitry Antipov <[email protected]> | 2014-06-17 07:14:00 +0400 |
|---|---|---|
| committer | Dmitry Antipov <[email protected]> | 2014-06-17 07:14:00 +0400 |
| commit | 9dc774d4792633e32b3a2e583d6591faa721e637 (patch) | |
| tree | 374dc5f254d18ec80eba68cefd8ecdaa43d89597 /src/fileio.c | |
| parent | 64e104891f14070bccd1bae0b6da8f2d7091a3f1 (diff) | |
* fileio.c (Fread_file_name): Do not pass redundant args and ...
* callint.c (read_file_name): ... convert to static here.
* lisp.h (Fread_file_name): Do not EXFUN it.
* composite.c (CHAR_COMPOSABLE_P): Replace unsafe macro with ...
(char_composable_p): ... static function. All users changed.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/fileio.c b/src/fileio.c index dc3ed431d4..6fe11303de 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5762,24 +5762,6 @@ before any other event (mouse or keypress) is handled. */) return Qnil; } -Lisp_Object -Fread_file_name (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object initial, Lisp_Object predicate) -{ - struct gcpro gcpro1; - Lisp_Object args[7]; - - GCPRO1 (default_filename); - args[0] = intern ("read-file-name"); - args[1] = prompt; - args[2] = dir; - args[3] = default_filename; - args[4] = mustmatch; - args[5] = initial; - args[6] = predicate; - RETURN_UNGCPRO (Ffuncall (7, args)); -} - - void init_fileio (void) { |