diff src/fileio.c @ 110314:405e3949f580

* lisp/subr.el (y-or-n-p): New function, moved from src/fns.c. Use read-key. * src/fns.c (Fy_or_n_p): Move to lisp/subr.el. (syms_of_fns): Don't defsubr Sy_or_n_p. * src/lisp.h: Don't declare Fy_or_n_p. * src/fileio.c (barf_or_query_if_file_exists): Fy_or_n_p -> y-or-n-p.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 12 Sep 2010 16:35:37 +0200
parents 64732fa6188a
children 55c8c3ca3d48
line wrap: on
line diff
--- a/src/fileio.c	Sun Sep 12 13:06:19 2010 +0200
+++ b/src/fileio.c	Sun Sep 12 16:35:37 2010 +0200
@@ -1842,7 +1842,7 @@
       tem = format2 ("File %s already exists; %s anyway? ",
 		     absname, build_string (querystring));
       if (quick)
-	tem = Fy_or_n_p (tem);
+	tem = call1 (intern ("y-or-n-p"), tem);
       else
 	tem = do_yes_or_no_p (tem);
       UNGCPRO;