home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / emacs / src / filerite.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-07  |  640 b   |  23 lines
  1. #include    "stdio.h"
  2. #include    "ed.h"
  3.  
  4. /*
  5.  * Ask for a file name, and write the
  6.  * contents of the current buffer to that file.
  7.  * Update the remembered file name and clear the
  8.  * buffer changed flag. This handling of file names
  9.  * is different from the earlier versions, and
  10.  * is more compatable with Gosling EMACS than
  11.  * with ITS EMACS. Bound to "C-X C-W".
  12.  */
  13. ovmain(x, f, n)
  14. {
  15.     register int    s;
  16.     char        fname[NFILEN];
  17.  
  18.     if (( s = mlreply( "Write file: ", fname, NFILEN )) != TRUE )
  19.         return (s);
  20.     return ( writeout( fname ));
  21. }
  22. #include "writeout.c"
  23.