Mercurial > emacs

comparison src/fileio.c @ 4270:3ce8e11f338b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdo_auto_save): Temporarily clear Vquit_flag.
author Richard M. Stallman <rms@gnu.org>
date Sun, 25 Jul 1993 06:00:32 +0000
parents 39caef7a70c2
children 76b24be40a57
comparison
equal deleted inserted replaced
4269:fcbdc9cca97a 4270:3ce8e11f338b
3002 Lisp_Object tail, buf; 3002 Lisp_Object tail, buf;
3003 int auto_saved = 0; 3003 int auto_saved = 0;
3004 char *omessage = echo_area_glyphs; 3004 char *omessage = echo_area_glyphs;
3005 extern int minibuf_level; 3005 extern int minibuf_level;
3006 int do_handled_files; 3006 int do_handled_files;
3007 Lisp_Object oquit;
3008
3009 /* Ordinarily don't quit within this function,
3010 but don't make it impossible to quit (in case we get hung in I/O). */
3011 oquit = Vquit_flag;
3012 Vquit_flag = Qnil;
3007 3013
3008 /* No GCPRO needed, because (when it matters) all Lisp_Object variables 3014 /* No GCPRO needed, because (when it matters) all Lisp_Object variables
3009 point to non-strings reached from Vbuffer_alist. */ 3015 point to non-strings reached from Vbuffer_alist. */
3010 3016
3011 auto_saving = 1; 3017 auto_saving = 1;
3076 record_auto_save (); 3082 record_auto_save ();
3077 3083
3078 if (auto_saved && NILP (no_message)) 3084 if (auto_saved && NILP (no_message))
3079 message1 (omessage ? omessage : "Auto-saving...done"); 3085 message1 (omessage ? omessage : "Auto-saving...done");
3080 3086
3087 Vquit_flag = oquit;
3088
3081 auto_saving = 0; 3089 auto_saving = 0;
3082 return Qnil; 3090 return Qnil;
3083 } 3091 }
3084 3092
3085 DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved, 3093 DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved,