From: Chris Hanson Date: Mon, 28 Feb 2000 20:01:12 +0000 (+0000) Subject: Fix thinko. X-Git-Tag: 20090517-FFI~4226 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7aecedb872fa87a988e6f10b0d795ac1ba36909;p=mit-scheme.git Fix thinko. --- diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm index d863cf86b..bda346136 100644 --- a/v7/src/edwin/filcom.scm +++ b/v7/src/edwin/filcom.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: filcom.scm,v 1.206 2000/02/27 05:35:50 cph Exp $ +;;; $Id: filcom.scm,v 1.207 2000/02/28 20:01:12 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology ;;; @@ -446,7 +446,7 @@ With argument, saves all with no questions." (message "(No files need saving)"))))) ;; **** placeholder -(define (maybe-save-abbrevs no-confirmation?) no-confirmation? unspecific) +(define (maybe-save-abbrevs no-confirmation?) no-confirmation? #f) (define-variable-per-buffer buffer-offer-save "True in a buffer means offer to save the buffer on exit