From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Jan 1994 19:34:14 +0000 (+0000)
Subject: Fix bugs that occur after tags-search is finished.
X-Git-Tag: 20090517-FFI~7328
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=018bb9bc1f6555d621f55151ab48393109efced9;p=mit-scheme.git

Fix bugs that occur after tags-search is finished.
---

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index fbddb8efb..bae17ebe1 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: tagutl.scm,v 1.52 1993/10/26 21:46:08 cph Exp $
+;;;	$Id: tagutl.scm,v 1.53 1994/01/10 19:34:14 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -327,7 +327,9 @@ command."
 (define (tags-loop-start)
   (let ((pathnames tags-loop-pathnames))
     (if (null? pathnames)
-	(editor-error "All files processed."))
+	(begin
+	  (set! tags-loop-continuation false)
+	  (editor-error "All files processed.")))
     (set! tags-loop-pathnames (cdr pathnames))
     (let ((buffer
 	   (let ((buffer (pathname->buffer (car pathnames))))
@@ -349,14 +351,16 @@ command."
 
 (define (smart-buffer-kill)
   (let ((buffer tags-loop-current-buffer))
-    (if (and (ref-variable new-tags-behavior? buffer)
-	     (let ((tick (buffer-get buffer 'TAGS-LOOP-MODIFIED-TICK)))
-	       (and tick
-		    (fix:= tick (buffer-modified-tick buffer)))))
-	(kill-buffer buffer)
-	(buffer-remove! buffer 'TAGS-LOOP-MODIFIED-TICK)))
-  (set! tags-loop-current-buffer #f)
-  unspecific)
+    (if buffer
+	(begin
+	  (if (and (ref-variable new-tags-behavior? buffer)
+		   (let ((tick (buffer-get buffer 'TAGS-LOOP-MODIFIED-TICK)))
+		     (and tick
+			  (fix:= tick (buffer-modified-tick buffer)))))
+	      (kill-buffer buffer)
+	      (buffer-remove! buffer 'TAGS-LOOP-MODIFIED-TICK))
+	  (set! tags-loop-current-buffer #f)
+	  unspecific))))
 
 (define (buffer-modified-tick buffer)
   (group-modified-tick (buffer-group buffer)))