diff --git a/hemlock/auto-save.lisp b/hemlock/auto-save.lisp index 4ba9e136a0371081e097aaa5c949784d6839e424..4c773c81e5ced9b3ace88ed8d8b7251f5d312283 100644 --- a/hemlock/auto-save.lisp +++ b/hemlock/auto-save.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/auto-save.lisp,v 1.2 1991/02/08 16:32:35 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/auto-save.lisp,v 1.3 1992/03/24 00:38:45 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -33,7 +33,7 @@ (:print-function print-auto-save-state)) "Per buffer state for auto-save" (buffer nil) ; buffer this state is for; for printing - (key-signature :type fixnum) ; buffer-signature at last keystroke + (key-signature 0 :type fixnum) ; buffer-signature at last keystroke (last-ckp-signature 0 :type fixnum) ; buffer-signature at last checkpoint (key-count 0 :type fixnum) ; # destructive keystrokes since ckp (pathname nil)) ; pathname used to write last ckp file