From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Mon, 25 Nov 1991 21:51:20 +0000 (+0000)
Subject: Fix run-on sentence:
X-Git-Tag: 20090517-FFI~10054
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=199b193f54cc4407b8d98c15fb5eeff391df24b8;p=mit-scheme.git

Fix run-on sentence:
  "Tags file has changed, read new contents"
with semicolon.
---

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index 0d9b42c96..4471ce83d 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.44 1991/11/04 20:52:09 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.45 1991/11/25 21:51:20 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -272,7 +272,7 @@ See documentation of variable tags-file-name."
     (let ((buffer (find-file-noselect pathname false)))
       (if (and (not (verify-visited-file-modification-time? buffer))
 	       (prompt-for-yes-or-no?
-		"Tags file has changed, read new contents"))
+		"Tags file has changed; read new contents"))
 	  (revert-buffer buffer true true))
       (if (not (eqv? (extract-right-char (buffer-start buffer)) #\Page))
 	  (editor-error "File "